ArcMap-VBA开发实习讲义.doc

ArcMap VBA开发实习讲义 如何在ArcMap 的VBA 环境中编程 写VBA宏 Step 1：启动宏编辑器 Step 2：选择Single Document Step 3：运行 创建UIControl（交互式VBA 编程） Step 1：用鼠标右击任何工具栏（条），在弹出的上托式菜单中选择Customize菜单项 Step 2：添加按钮 获取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