摘要： 图层的添加：1.Sub MyMacro()Dim pMxDocument As IMxDocument '地图文档Set pMxDocument = Application.Document '获取当前应用程序的文档 MsgBox pMxDocument.FocusMap.Name '显示当前地图的名称End Sub2.Sub MyMacro()Dim pMxDocument As IMxDocu... 阅读全文