在ARCGIS属性表中增加需要的字段,并自动赋值2009-11-20
1打开属性表,选择计算的字段,右点选择Calculate Values;2.选择“是”,进入Field Calculator;
2选择Advance选项;
3 在Pre-Logic VBA Script Code编辑框中输入VBA代码;
4在下面编辑框中输入赋值部分.
1--点坐标X
VBA部分:
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPoint As IPoint
Set pPoint = pGeo
赋值部分:
pPoint.X
2--点坐标Y
VBA部分:
2021-08-31 17:30:14
28KB
ARCGIS
1