关于显示图形限制和范围 （VBA/ActiveX）

可以使用 、 或 方法显示基于图形边界或图形中对象范围的视图。ZoomAllZoomExtentsZoomPrevious

ZoomAll显示整个图形。如果对象超出限制，则显示对象的范围。如果对象在限制范围内绘制，则显示限制。ZoomAllZoomAll

ZoomExtents根据活动视口的范围（而不是当前视图）计算缩放。通常，活动视口是完全可见的，因此结果明显且直观。但是，在纸张空间视口中工作时，在模型空间中使用这些方法时，如果放大到纸张空间视口的边界之外，则缩放的某些区域可能不可见。Zoom

ZoomExtents更改视图以包含当前图形的实体范围。在某些情况下（对于两者和 ），这可能会导致再生。在冻结或关闭的图层上不会发生再生。如果图形没有对象，则显示图形限制。ZoomAllZoomExtentsZoomExtents

对于 3D 视图，并具有相同的效果。无限构造线 （xlines） 和射线不会影响任一选项。ZoomAllZoomExtents

ZoomPrevious将当前视口缩放到其先前的范围。

Sub Ch3_ZoomAll()
' ZoomAll
  MsgBox "Perform a ZoomAll", , "ZoomAll"
  ThisDrawing.Application.ZoomAll

' ZoomExtents
  MsgBox "Perform a ZoomExtents", , "ZoomExtents"
  ThisDrawing.Application.ZoomExtents
End Sub