关于显示图形限制和范围 （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