2 全图.txt

ao的一些代码集合

'全图：
Sub FullExtentPlus()

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

  Set pDoc = Application.Document    '获取当前地图文档
  Set pActiveView = pDoc.activeView    '获取当前活动地图
  
  pActiveView.Extent = pDoc.ActiveView.FullExtent    '全图显示
  pActiveView.Refresh    '刷新当前视图

End Sub