通过arcmap提取面要素边界点到属性表字段中

1.打开数据属性表添加用于存储点坐标信息的字段（shape文件支持的字符类型长度为254，GDB中的字段理论长度可以达到2147483647）

2.选择计算字段值，并勾中advanced选项。在其中编写提取面要素边界点的VBA代码

3.核心代码如下（其中[shape]字段代表几何对象）：

Dim geo As IGeometry
Set geo =[Shape]
Dim gtmp As IRing
Dim geos As IGeometryCollection
Dim points As IPointCollection
Set geos = geo
     For i = 0 To geos.GeometryCount – 1
       Set gtmp = geos.Geometry(i)
       Set points = gtmp
       For j = 0 To points.PointCount – 1
       ‘根据实际情况设定保留的小数位数Round函数第二个参数
       temp = temp + CStr(Format(Round(points.point(j).X, 3), “.000”)) + “,” + CStr   (Format(Round(points.point(j).Y, 3), “.000”)) + “;”
       Next
     Next

4.并在结果等于一栏中输入VBA计算的结果字符串temp，OK后即可完成操作

5.可以在此基础上扩展通用的点线面计算方法，并将脚本保存为扩展名为.cal的文件，以后使用直接通过load方式加载即可。

转载自：https://blog.csdn.net/esrichinacd/article/details/7464646