ArcMap VBA开发实习讲义一、 如何在ArcMap 的VBA 环境中编程1、 写VBA宏Step 1：启动宏编辑器Step 2：选择Single DocumentStep 3：运营2、 创立UIControl（交互式VBA 编程）Step 1：用鼠标右击任何工具栏（条），在弹出的上托式菜单中选择菜单项Step 2：添加按钮3、 获取ArcMap对象Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFLayer As IFeatureLayer Set pMxDoc = ThisDocument 'This is a module-level variable! Set pMap = pMxDoc.FocusMap Set pFLayer = pMap.Layer(0) MsgBox pFLayer.name二、 顾客界面1、添加按钮Step 1: 点击Step 2：添加按钮Step 3：将按钮拖至界面（要拖到某一种工具条上）Step 4：更换图标（右键）2、添加工具条Step 1: 点击Step 2: 添加工具条Step 3: 添加成功，可以把按钮放在工具条上（同上）三、 访问图层数据//定义文档、Map对象、图层Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFLayer As IFeatureLayer Dim pFClass As IFeatureClass Set pMxDoc = ThisDocument 'This is a module-level variable! Set pMap = pMxDoc.FocusMap Set pFLayer = pMap.Layer(0)//定义Feature集 Set pFClass = pFLayer.FeatureClass//定义选择操作对象 Dim pFCursor As IFeatureCursor Set pFCursor = pFClass.Search(Nothing, True) Dim pFeature As IFeature Set pFeature = pFCursor.NextFeature //遍历Do Until pFeature Is Nothing MsgBox pFeature.Value(6) Set pFeature = pFCursor.NextFeature Loop。
