ArcMap中，View——〉Data Frame Properties——〉Coordinate System：

有一系列的坐标及投影方式，可以通过以下方式获得

Public Sub getSpatialReference()

    Dim pDoc As IMxDocument
    Dim pMap As IMap
   
    Set pDoc = ThisDocument
    Set pMap = pDoc.FocusMap
   
    Dim pSpatialReference As ISpatialReference
   
    Set pSpatialReference = pMap.SpatialReference
   
    Dim pProjectedCS As IProjectedCoordinateSystem
    Dim pGeographicCS As IGeographicCoordinateSystem
    Dim pProjection As IProjection
   
    Set pProjectedCS = pSpatialReference
    Set pGeographicCS = pProjectedCS.GeographicCoordinateSystem
    Set pProjection = pProjectedCS.Projection
    
    Debug.Print pProjectedCS.Name
    Debug.Print pGeographicCS.Name
    Debug.Print pProjection.Name

End Sub

输出结果：

NAD_1983_StatePlane_Vermont_FIPS_4400

GCS_North_American_1983
Transverse_Mercator：横轴墨卡托投影

by feifeiwua 阅读全文 | 回复(1) | 引用通告 | 编辑

by GIS(游客) 个人主页 | 引用 | 返回 | 删除 | 回复