ArcMap經常使用VBA

1--點座標X
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPoint As IPoint
Set pPoint = pGeo
賦值部分:
pPoint.X

2--點座標Y
VBA部分:
同上
賦值部分:
pPoint.Y

座標值爲文件存儲的固有值,和是否使用On the Fly座標表示無關。返回當前顯示的座標值參看8,9

3--多邊形周長
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolygon As IPolygon
Set pPolygon = pGeo
賦值部分:
pPolygon.Length

4--多邊形面積
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolygon As IPolygon
Set pPolygon = pGeo
Dim pArea As IArea
Set pArea = pPolygon
賦值部分:
pArea.Area

5--多邊形重心X
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolygon As IPolygon
Set pPolygon = pGeo
Dim pArea As IArea
Set pArea = pPolygon
Dim pPoint As IPoint
Set pPoint = pArea.Centroid
賦值部分:
pPoint.X

6--多邊形重心Y
VBA部分:
同上
賦值部分:
pPoint.Y

7--Polyline長度
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolyline As IPolyline
Set pPolyline = pGeo
Dim pCurve As IPolycurve
Set pCurve = pPolyline
賦值部分:
pCurve.Length

8--表示點座標X
VBA部分:
Dim pDoc As IMxDocument
Set pDoc = ThisDocument
Dim pSpRef As ISpatialReference
Set pSpRef = pDoc.FocusMap.SpatialReference

Dim pClone As IClone
Set pClone = [Shape]
Dim pGeo As IGeometry
Set pGeo = pClone.Clone
Dim pPoint as IPoint
Set pPoint = pGeo

pGeo.Project pSpRef
賦值部分:
pPoint.X

9--表示點座標Y
VBA部分:
同上
賦值部分:
pPoint.