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

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

利用ZoomCenter方法可以將繪制圖形中的一個(gè)指定點(diǎn)移動(dòng)到新的視口的中央并按之指定的倍率縮放，語(yǔ)法object.ZoomCenter Center，Magnify，object指代Application對(duì)象，Center圖形中的指定點(diǎn)，Magnify縮放倍率。

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

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

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

下面的代碼將當(dāng)前圖形放大兩倍。

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