【C008】ArcGIS VBA+AO入门15例
摘要:
1.Sub MyMacro() Dim pMxDocument As IMxDocument '地图文档 Set pMxDocument = Application.Document '获取当前应用程序的文档 MsgBox pMxDocument.FocusMap.name '显示当前地图的名称End Sub2.Sub MyMacro() Dim pMxDocument As IMxDocument '地图文档 Dim pMaps As IMaps '地图集 Dim pMap As IMap '地图 Set pMxDocument = Appli 阅读全文
posted @ 2011-11-10 15:51 McDelfino 阅读(593) 评论(0) 推荐(0) 编辑