在arcgis属性表中增加需要的字段并自动赋值

《在arcgis属性表中增加需要的字段并自动赋值》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在ArcGIS属性表中，一般不会包含实体几何信息，可以采取VBA进行计算。下面是几个简单的代码特点:1推荐给不会使用AO的朋友2可以保存为CAL文件以备下次方便使用使用方法1打开属性表,选择计算的字段,右点选择CalculateValues；2.选择“是”，进入FieldCalculator；2选择Advance选项；3在Pre-LogicVBAScriptCode编辑框中输入VBA代码；4在下面编辑框中输入赋值部分.1--点坐标XVBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPointAsIPointSetpPoint=pGe

2、o赋值部分:pPoint.X2--点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为文件存储的固有值,和是否使用OntheFly坐标表示无关。返回当前显示的坐标值参看8,93--多边形周长VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeo赋值部分:pPolygon.Length4--多边形面积VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaA

3、sIAreaSetpArea=pPolygon赋值部分:pArea.Area5--多边形重心XVBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaAsIAreaSetpArea=pPolygonDimpPointAsIPointSetpPoint=pArea.Centroid赋值部分:pPoint.X6--多边形重心YVBA部分:同上赋值部分:pPoint.Y7--Polyline长度VBA部分:DimpGeoAsIGeometrySetpGeo=[Sh

4、ape]DimpPolylineAsIPolylineSetpPolyline=pGeoDimpCurveAsIPolycurveSetpCurve=pPolyline赋值部分:pCurve.Length8--表示点坐标XVBA部分:DimpDocAsIMxDocumentSetpDoc=ThisDocumentDimpSpRefAsISpatialReferenceSetpSpRef=pDoc.FocusMap.SpatialReferenceDimpCloneAsICloneSetpClone=[Shape]DimpGeoAsIGeometrySetpGeo=pC

5、lone.CloneDimpPointasIPointSetpPoint=pGeopGeo.ProjectpSpRef赋值部分:pPoint.X9--表示点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为OntheFly显示的坐标,不是文件存储的固有坐标10--连续编号VBA部分:StaticlCountaslonglCount=lCount+1赋值部分:lCount(从1开始)lCount-1(从0开始)