VBA+AO入门50例完全注释版.docVIP

收藏本页联系我们论坛帮助 ? dlian 重登录 隐身 用户控制面板 搜索 风格 论坛状态 论坛展区 道具中心 论文中心 论坛设施 图强商城 下载中心 GIS博客 退出  全面了解和讨论基于ArcObjects,ArcGIS Server和ArcEngine开发的技术，展示最新技术和问题，在线解决开发问题。 我的收件箱 (1) GIS帝国论坛地理信息系统帝国 → 国外GIS软件 → ARCOBJECTS开发 → VBA+AO入门50例完全注释版  ? ??牋 您是本帖的第 1627 个阅读者 ? 标题：VBA+AO入门50例完全注释版 树形?? 打印?? 收藏?? 推荐?? ???? 冲亚 牋牋 牋牋 牋牋 头衔：明年读研兵????等级：外卖仔????文章：71????积分：174????注册：2005-06-01 ? 楼主 VBA+AO入门50例完全注释版 网上下的码，自己加的注。 初学，瞎搞，不好，见笑。 和跟我一样的初学者探讨一下怎么入门最快最好，为中国GIS教育事业添一根小火柴 1.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Set pMxDocument = Application.Document????获取当前应用程序的文档????????MsgBox pMxDocument.FocusMap.Name????显示当前地图的名称End Sub 2.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Dim pMaps As IMaps????地图集????Dim pMap As IMap????地图????Set pMxDocument = Application.Document????获取当前应用程序的文档????Set pMaps = pMxDocument.Maps????获取当前地图文档的地图集????If pMaps.Count 1 Then????如果该地图集的地图数大于1????????Set pMap = pMaps.Item(1)????获取该地图集中的第一幅地图????????MsgBox pMap.Name????显示该地图的名称????End IfEnd Sub 3.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Dim pMap As IMap????地图????Dim lCount As Long????Dim lIndex As Long????Set pMxDocument = Application.Document????获取当前应用程序的文档????Set pMap = pMxDocument.FocusMap????获取当前地图????lCount = 0????For lIndex = 0 To (pMap.LayerCount - 1)????????If TypeOf pMap.Layer(lIndex) Is IFeatureLayer Then????如果当前地图的第lIndex层的类型是IFeatureLayer????????????lCount = lCount + 1????计数器加1????????End If????Next lIndex????MsgBox Number of the feature layers _????in the active map: lCount????显示当前地图的要素层的总数End Sub 4.Sub MyMacro()????Dim pMxDocument As IMxDocument????获取当前应用程序的文档????Dim pMaps As IMaps????地图集????Dim pMap As IMap????地图????On Error GoTo SUB_ERROR????错误处理????Set pMxDocument = Application.Document????获取当前应用程序的文档????Set pMaps = pMxDocument.Maps????获取当前地图文档的地图集????Set pMap = pMaps.Item(1)????获取该地图集中的第一幅地图????MsgBox pMap.Name????显示该地图的名称????Exit SubSUB_ERROR:?