AO开发50例.doc

VBA+AO入门50例 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 If End 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.与例2 同 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 Sub SUB_ERROR: \行标签 MsgBox Error: Err.Number - Err.Description \显示错误数和错误信息 End Sub 5.设置图层可视状态 Public Sub MakeLayerVisible() Dim pMxDocument As IMxDocument \地图文档 Dim pMap As IMap \地图 Dim pFeatureLayer As IFeatureLayer \要素层 Dim pActiveView As IActiveView \活动视图 Dim pContentsView As IContentsView \窗口内容表 \获取地图的第一层 Set pMxDocument = ThisDocument \获取当前应用程序的文档 Set pMap = pMxDocument.FocusMap \获取当前地图 Set pFeatur