'==================================================================
'如何设置地理坐标系和投影坐标系
'本例要实现的功能是给Map 设置地理坐标系或者投影坐标系.如果改变Map
'中的地理坐标系或投影坐标系，Map 中图形的形状也会随之改变。
'要点
'在ArcGIS 中，坐标系分为地理坐标系和投影坐标系，创建一个坐标系通常
'用接口ISpatialReferenceFactory2 实现?在接口ISpatialReferenceFactory2
'中有两个常用的方法: CreateGeographicCoordinateSystem 和
'CreateProjectedCoordinateSystem，分别用来创建地理坐标系和投影坐标系。
'并且，ArcGis 中预定义了大多数国际上公认的坐标系统的参数，可以直接引用。
'此外，也可以读入prj 文件进行设置。
'程序说明
'本例在点击按钮事件中设置Map 的坐标系。由于Map 中不能同时设置地理坐
'标系和投影坐标系，所以例子代码中注释了设置地理坐标系的代码。如果读者想
'给Map 设置地理坐标系，只要去掉相关地理坐标系的注释，并且注释掉相关投影
'坐标系的代码即可
'==================================================================
Dim pMap As IMap
Dim pSpatialReferenceF As ISpatialReferenceFactory2
Dim pProjectedCoordinateS As IProjectedCoordinateSystem
'Dim pGeographicCoordinateS As IGeographicCoordinateSystem
On Error GoTo ErrorHandler
Set pMap = MapControl1.ActiveView.FocusMap
'实例化ISpatialReferenceFactory2 的变量
Set pSpatialReferenceF = New SpatialReferenceEnvironment
Set pProjectedCoordinateS = pSpatialReferenceF. _
CreateProjectedCoordinateSystem(esriSRProjCS_Beijing1954_3_Degree_GK_CM_102E)
'创建地理坐标系，类型为GCS_Tokyo
' Set pGeographicCoordinateS = pSpatialReferenceF. _
CreateGeographicCoordinateSystem(esriSRGeoCS_Tokyo)
'给Map 设置投影坐标系
Set pMap.SpatialReference = pProjectedCoordinateS
'给Map 设置地理坐标系
'Set pMap.SpatialReference = pGeographicCoordinateS
'弹出消息框显示当前Map 的坐标系名字
MsgBox pMap.SpatialReference.Name
MapControl1.ActiveView.Refresh
Exit Sub
ErrorHandler:
MsgBox Err.Description |
（本文已被浏览 次） | | |
相关评论
