VL : (vla-ZoomScaled object Scale ScaleType)

(vla-ZoomScaled acadapplic SC acZoomScaledRelative)

• Object : Application
  The object or objects this method applies to.
• Scale : Double; input-only
  The zoom factor for the zoom.
• ScaleType : AcZoomScaleType enum, input-only; optional
  acZoomScaledAbsolute
  acZoomScaledRelative
  acZoomScaledRelativePSpace

Remarks

The ScaleType value determines how the scale factor is applied:

Relative to the drawing limits—use acZoomScaledAbsolute
Relative to the current view—use acZoomScaledRelative
Relative to paper space units—use acZoomScaledRelativePSpace

This method applies to the current active viewport (paper space viewport or model space viewport).

Example :

(defun c:al-zs ()

(vl-load-com)

;get reference to the Application Object
(setq acadapplic (vlax-get-acad-object))

;get reference to the Utility object
(setq util (vla-get-utility (vla-get-activedocument acadapplic)))

;get the scale factor
(setq SC (vla-getreal util "\nEnter a scale factor : "))

;zoom Scaled
(vla-ZoomScaled acadapplic SC acZoomScaledRelative)

(princ)

);defun

(princ)