ArcMap-VBA开发实习讲义.docVIP

ArcMap-VBA开发实习讲义

Step3：运行

创建UIControl（交互式VBA编程）

Step1：用鼠标右击任何工具栏（条），在弹出的上托式菜单中选择Customize菜单项

Step2：添加按钮

获取ArcMap对象

DimpMxDocAsIMxDocument

DimpMapAsIMap

DimpFLayerAsIFeatureLayer

SetpMxDoc=ThisDocumentThisisamodule-levelvariable!

SetpMap=pMxDoc.FocusMap

SetpFLayer=pMap.Layer(0)

MsgBoxpFLayer.name

用户界面

1、添加按钮

Step1:点击

Step2：添加按钮

Step3：将按钮拖至界面（要拖到某一个工具条上）

Step4：更换图标（右键）

2、添加工具条

Step1:点击

Step2:添加工具条

Step3:添加成功，可以把按钮放在工具条上（同上）

访问图层数据

//定义文档、Map对象、图层

DimpMxDocAsIMxDocument

DimpMapAsIMap

DimpFLayerAsIFeatureLayer

DimpFClassAsIFeatureClass

SetpMxDoc=ThisDocumentThisisamodule-levelvariable!

SetpMap=pMxDoc.FocusMap

SetpFLayer=pMap.Layer(0)

//定义Feature集

SetpFClass=pFLayer.FeatureClass

//定义选择操作对象

DimpFCursorAsIFeatureCursor

SetpFCursor=pFClass.Search(Nothing,True)

DimpFeatureAsIFeature

SetpFeature=pFCursor.NextFeature

//遍历

DoUntilpFeatureIsNothing

MsgBoxpFeature.Value(6)

SetpFeature=pFCursor.NextFeature

Loop