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

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