用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