Arcgis vba开发实例.doc

Arcgis vba开发实例 在ARCGIS属性表中，一般不会包含实体几何信息，可以采取VBA进行计算。下面是几个简单的代码（转载自集思学院） 特点:1推荐给不会使用AO的朋友2可以保存为CAL文件以备下次方便使用使用方法1打开属性表,选择计算的字段,右点选择Calculate Values； 2.选择“是”，进入Field Calculator； 2选择Advance选项；3 在Pre-Logic VBA Script Code编辑框中输入VBA代码；4在下面编辑框中输入赋值部分.1--点坐标XVBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPoint As IPointSet pPoint = pGeo赋值部分:pPoint.X2--点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为文件存储的固有值,和是否使用On the Fly坐标表示无关。返回当前显示的坐标值参看8,93--多边形周长VBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPolygon As IPolygonSet pPolygon = pGeo赋值部分:pPolygon.Length4--多边形面积VBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPolygon As IPolygonSet pPolygon = pGeoDim pArea As IAreaSet pArea = pPolygon赋值部分:pArea.Area5--多边形重心XVBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPolygon As IPolygonSet pPolygon = pGeoDim pArea As IAreaSet pArea = pPolygonDim pPoint As IPointSet pPoint = pArea.Centroid赋值部分:pPoint.X6--多边形重心YVBA部分:同上赋值部分:pPoint.Y7--Polyline长度VBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPolyline As IPolylineSet pPolyline = pGeoDim pCurve As IPolycurveSet pCurve = pPolyline赋值部分:pCurve.Length8--表示点坐标XVBA部分:Dim pDoc As IMxDocumentSet pDoc = ThisDocumentDim pSpRef As ISpatialReferenceSet pSpRef = pDoc.FocusMap.SpatialReferenceDim pClone As ICloneSet pClone = [Shape]Dim pGeo As IGeometrySet pGeo = pClone.CloneDim pPoint as IPointSet pPoint = pGeopGeo.Project pSpRef赋值部分:pPoint.X9--表示点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为On the Fly显示的坐标,不是文件存储的固有坐标10--连续编号VBA部分:Static lCount as longlCount=lCount+1赋值部分:lCount (从1开始)lCount-1 (从0开始) VBA+AO入门50例完全注释版 网上下的码，自己加的注。 初学，瞎搞，不好，见笑。 和跟我一样的初学者探讨一下怎么入门最快最好，为中国GIS教育事业添一根小火柴 1.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Set pMxDocument = Application.Document????获取当前应用程序的文档????????MsgBox pMxDocument.FocusMap.Name????显示当前地图的名称End Sub 2.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Dim pMaps As IMaps????地图集????Dim pMap As IMap???