arcgis vba开发实例

《arcgis vba开发实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

3、ySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaAsIAreaSetpArea=pPolygon赋值部分:pArea.Area5--多边形重心XVBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaAsIAreaSetpArea=pPolygonDimpPointAsIPointSetpPoint=pArea.Centroid赋值部分:pPoi

4、nt.X6--多边形重心YVBA部分:同上赋值部分:pPoint.Y7--Polyline长度VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolylineAsIPolylineSetpPolyline=pGeoDimpCurveAsIPolycurveSetpCurve=pPolyline赋值部分:pCurve.Length8--表示点坐标XVBA部分:DimpDocAsIMxDocumentSetpDoc=ThisDocumentDimpSpRefAsISpatialReference

5、SetpSpRef=pDoc.FocusMap.SpatialReferenceDimpCloneAsICloneSetpClone=[Shape]DimpGeoAsIGeometrySetpGeo=pClone.CloneDimpPointasIPointSetpPoint=pGeopGeo.ProjectpSpRef赋值部分:pPoint.X9--表示点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为OntheFly显示的坐标,不是文件存储的固有坐标10--连续编号VBA部分:StaticlCountaslonglC

6、ount=lCount+1赋值部分:lCount(从1开始)lCount-1(从0开始)VBA+AO入门50例完全注释版网上下的码，自己加的注。初学，瞎搞，不好，见笑。和跟我一样的初学者探讨一下怎么入门最快最好，为中国GIS教育事业添一根小火柴1.SubMyMacro()    DimpMxDocumentAsIMxDocument    '地图文档    SetpMxDocument=Application.Document    '获取当前应用程序的文档        MsgBoxpMxDocument.FocusMap.N

7、ame    '显示当前地图的名称EndSub2.SubMyMacro()    DimpMxDocumentAsIMxDocument    '地图文档    DimpMapsAsIMaps    '地图集    DimpMapAsIMap    '地图    SetpMxDocument=Application.Document    '获取当前应用程序的文档    SetpMaps=pMxDocument.Maps    '获取当前地图文档的地图集    IfpMaps.Count>1Then    '如果该地图集的地图数

8、大于1        SetpMap=pMaps.Item(1)    '获取该地图集中的第一幅地图        MsgBoxpMap.Name    '显示该地图的名称    EndIfEndSub3.SubMyMacro()    DimpMxDocume