AE开发日记 2016-01-27桌面GIS应用软件的开发方式.pdfVIP

AE 开发笔记常考 By lincx 2016-01-27 桌面GIS 应用软件的开发方式 1、VBA 桌面扩展 1）VBA 是简化的Visual Basic 语言及其子集 2）用于支持VBA 扩展的Windows 程序，不能离开宿主程序独立运行 3）VBA 定制和开发的代码均存储于本身程序数据工作文件中 4）VBA 开发于ArcGIS 10.1 转为ADD -IN 方式并官方强调并建议不使用VBA 进行软件 开发，并推荐利用Python 语言扩展 5）VBA 程序安装包不再包含Desktop 安装内，需要独立从安装光盘里进行安装 6）VBA 开发分为宏（自动执行的操作命令集）和UIControl （可交互的宏）两种方式 7）VBA 程序是事件驱动的，常用MouseDown 事件 1.1、 宏开发方式 Sub CLyrBySel () 定义文档变量 Dim pMxDoc As IMxDocument 有Dim 就有Set Set pMxDoc = Application.Document 定义地图文档 Dim pMap As IMap Set pMap = pMxDoc.ActiveView.FocusMap 核心代码 定义变量 Dim pLayer As ILayer, pNewLayer As ILayer Dim pEnumLyr As IEnumLayer Dim pFeatLyr As IFeatureLayer, pNewFeatLyr As IFeatureLayer Dim pFeatSel As IFeatureSelection Dim pFeatLyrDef As IFeatureLayerDefinition 获取当前地图中的图层枚举类型 Set pEnumLyr = pMap.Layers pEnumLyr.Reset 重置刷新，初始化枚举数位置于第一成员前面 Set pLayer = pEnumLyr.Next 第一图层成员(Top) 循环遍历当前地图文档中的所有图层 While (Not pLayer Is Nothing) Set pFeatLyr = pLayer ILayer转IFeatureLayer Set pFeatSel = pFeatLyr IFeatureLayer转IFeatureSelection 判定当前图层是否有选中要素，有则根据选中要素生成图层，无则直接跳过 If pFeatSel.SelectionSet.Count 0 Then 选择集不为零则 Set pFeatLyrDef = pFeatSel IFeatureSelection转 IFeatureLayerDefinition Set pNewFeatLyr = pFeatLyrDef.CreateSelectionLayer (New + pFeatLyr.FeatureClass.AliasName, True, , ) pFeatSel.Clear 选中图层显示消失 将根据选择集生成的图层加载到当前地图文档中 If Not pNewFeatLyr Is Nothing Then Set pNewLayer = pNewFeatLyr IFeatureLayer转ILayer pMap.AddLayer pNewLayer 不用括号(pNewLayer) End If End If Set pLayer = pEnumLyr.Next 更新下一个图层进行判断 Wend pMxDoc.ActiveView.Refresh 刷新地图 End Sub 1.2、 UIControl 用户界面控制 1）VBA 宏的可交互替代,进行交互式开发 2）UIControl 类型与用途 UIControl 类型 用途 UIButtonControl 创建按钮 UIToolControl 创建与Map 交互的工具 UIEditBoxControl 创建编辑框（编辑文本） UIC