vba09-01.txt

ao的一些代码集合

'是图层可视
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 pFeatureLayer = pMap.Layer(0)    '获取当前地图的第一层  
  
  '如果要素层不可见，则使其可见
  If Not pFeatureLayer.Visible Then
    pFeatureLayer.Visible = True
  End If
  
  '刷新地图
  Set pActiveView = pMap    '将当前地图设为活动地图
  pActiveView.Refresh    '刷新
  
  '刷新窗口内容表
  Set pContentsView = pMxDocument.CurrentContentsView    '获取当前地图文档的窗口内容表
  pContentsView.Refresh pFeatureLayer    '刷新
End Sub