VB中对AutoCAD图形对象进行缩放操作

用AutoCAD应用程序对象的ZoomExtents方法，可以显示图形的全部，使绘制的图形最大限度地充满绘图区域，代码ZoomExtents或AcadApp.ZoomExtents。

当某一部分绘制图形在显示区域之外，可以用ZoomAll方法，使图形全部显示出来，但是图形并不最大限度地充满绘图区域，代码ZoomAll或AcadAPP.ZoomAll。

利用ZoomCenter方法可以将绘制图形中的一个指定点移动到新的视口的中央并按之指定的倍率缩放，语法object.ZoomCenter Center，Magnify，object指代Application对象，Center图形中的指定点，Magnify缩放倍率。

利用ZoomWindow方法，可以缩放一个指定区域内的图形，语法object.ZoomWindow LowerLeft,UpperRight。

利用ZoomPickWindow方法，可以缩放一个指定区域内的图形，该区域由用户点取两点指定，语法object.ZoomPickWindow。

利用ZoomScaled方法，可以将绘制的图形中的一个指定点移动到新的视口中央，并按指定倍率缩放，语法object.ZoomScaled Scaled，ScaledType，object指代Application对象，Scale缩放比率，ScaleType代表缩放类型，它有三个可选参数，AcZoomScaledAbsolute与图形界面相关，AcZoomScaledRelative与当前视图相关，AcZoomScaledRelativePSpace与图纸空间相关。

下面的代码将当前图形放大两倍。

Private Sub Command9_Click()
    Dim scalefactor As Double
    Dim scaletype As Integer
    scalefactor = 2
    scaletype = acZoomScaledRelative
    acadapp.ZoomScaled scalefactor, scaletype
End Sub