ARCGISfieldcalculator妙用

1、在ARCGIS属性表中增加需要的字段，并自动赋值使用方法1打开属性表，选择计算的字段，右点选择Calculate Values； 2.选择是，进入 Field Calculator；2选择Advance选项；3在Pre-Logic VBA Script Code编辑框中输入VBA代码；4在下面编辑框中输入赋值部分.1 一点坐标XVBA部分：Dim pGeo As IGeometrySet pGeo = ShapeDim pPoint As IPointSet pPoint = pGeo赋值部分：pPoint.X2一点坐标YVBA部分：同上赋值部分：pPoint.Y坐标值为文件存储的固有值，和是

2、否使用On the Fly坐标表示无关。返回当前显示的坐标值参看8,93-多边形周长VBA部分：Dim pGeo As IGeometrySet pGeo = ShapeDim pPolygon As IPolygonSet pPolygon = pGeo赋值部分：pPolygon.Length4-多边形面积VBA部分:Dim pGeo As IGeometrySet pGeo = ShapeDim pPolygon As IPolygonSet pPolygon = pGeoDim pArea As lAreaSet pArea = pPolygon赋值部分：pArea.Area5-多边形重

3、心XVBA部分:Dim pGeo As IGeometrySet pGeo = ShapeDim pPolygon As IPolygonSet pPolygon = pGeoDim pArea As lAreaSet pArea = pPolygonDim pPoint As IPointSet pPoint = pArea.Centroid赋值部分：pPoint.X6-多边形重心YVBA部分：同上赋值部分：pPoint.Y7-PolylinexxVBA部分：Dim pGeo As IGeometrySet pGeo = ShapeDim pPolyline As IPolylineSet

4、pPolyline = pGeoDim pCurve As IPolycurveSet pCurve = pPolyline赋值部分：pCurve.Length8-表示点坐标XVBA部分：Dim pDoc As IMxDocumentSet pDoc = ThisDocumentDim pSpRef As ISpatialReferenceSet pSpRef = pDoc.FocusMap.SpatialReferenceDim pCIone As ICIoneSet pCIone = ShapeDim pGeo As IGeometrySet pGeo = pCIone.CloneDim pPoint as IPointSet pPoint = pGeopGeo.Project pSpRef赋值部分：pPoint.X9-表示点坐标YVBA部分：同上赋值部分：pPoint.Y坐标值为On the Fly显示的坐标，不是文件存储的固有坐标10-连续编号VBA部分：Static