3 清除图层.txt

来自「ao的一些代码集合」· 文本 代码 · 共 18 行

'清除图层
Private Sub ClearLayers() 

  Dim pDoc As IMxDocument    '地图文档
  Dim pActiveView as IActiveView    '活动地图 
  Dim pMap As IMap    '地图

  Set pDoc = Application.Document    '获取当前地图文档
  Set pActiveView = pDoc.ActiveView    '获取当前活动地图

  If TypeOf pActiveView Is IMap Then    '如果当前活动地图为数据视图模式 
    Set pMap = pActiveView    '获取当前地图 
    pMap.ClearLayers    '清除所有图层 
    pDoc.UpdateContents    '更新窗口内容表 
    pActiveView.Refresh    '刷新 
  End If 

End Sub