用AutoCAD應(yīng)用程序?qū)ο蟮腪oomExtents方法，可以顯示圖形的全部，使繪制的圖形最大限度地充滿繪圖區(qū)域，代碼ZoomExtents或AcadApp.ZoomExtents。

當某一部分繪制圖形在顯示區(qū)域之外，可以用ZoomAll方法，使圖形全部顯示出來，但是圖形并不最大限度地充滿繪圖區(qū)域，代碼ZoomAll或AcadAPP.ZoomAll。

利用ZoomCenter方法可以將繪制圖形中的一個指定點移動到新的視口的中央并按之指定的倍率縮放，語法object.ZoomCenter Center，Magnify，object指代Application對象，Center圖形中的指定點，Magnify縮放倍率。

利用ZoomWindow方法，可以縮放一個指定區(qū)域內(nèi)的圖形，語法object.ZoomWindow LowerLeft,UpperRight。

利用ZoomPickWindow方法，可以縮放一個指定區(qū)域內(nèi)的圖形，該區(qū)域由用戶點取兩點指定，語法object.ZoomPickWindow。

利用ZoomScaled方法，可以將繪制的圖形中的一個指定點移動到新的視口中央，并按指定倍率縮放，語法object.ZoomScaled Scaled，ScaledType，object指代Application對象，Scale縮放比率，ScaleType代表縮放類型，它有三個可選參數(shù)，AcZoomScaledAbsolute與圖形界面相關(guān)，AcZoomScaledRelative與當前視圖相關(guān)，AcZoomScaledRelativePSpace與圖紙空間相關(guān)。

下面的代碼將當前圖形放大兩倍。

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