1 放大缩小.txt

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

'放大/缩小
Sub MyZoom()

  Dim pDoc As IMxDocument    '地图文档
  Dim pActiveView As IActiveView    '活动地图
  Dim pEnv As IEnvelope    '显示范围

  Set pDoc = Application.Document    '获取当前文档，等同于ThisDoucument
  Set pActiveView = pDoc.ActiveView    '获取当前活动地图 
 
  Set pEnv = pActiveView.Extent    '获取当前显示范围
  pEnv.Expand 0.5, 0.5, True    '按比例放大两倍，把0.5改为2则为缩小一半
  pActiveView.Extent = pEnv    '更新显示范围
  pActiveView.Refresh    '刷新

End Sub


MxApplication代表ArcMap本身，只管理一个文档MxDocument（ArcMap是单文档界面）。MxDocument管理一组Map对象和一个PageLayout对象。在数据视图下，ActiveView是一个Map；而在页面视图下，ActiveView是PageLayout。无论在何种视图下，总是只有一个FocusMap，显示操作都是对ActiveView进行。