更改后恢复模型空间中的缩放

(setq acadObject   (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq acadViewport (vla-get-ActiveViewPort acadDocument))
(setq center (vla-get-Center acadViewport))
  (setq center_safe (vlax-variant-value center))
  (setq centerlista (vlax-safearray->list center_safe))
  (setq height (vla-get-Height acadViewport))
  (setq width (vla-get-Width acadViewport))
  (setq bal_also (vlax-make-safearray vlax-vbDouble (cons 0  2)))
  (vlax-safearray-put-element bal_also 0 (- (car centerlista) (/ width 2)))
  (vlax-safearray-put-element bal_also 1 (- (cadr centerlista) (/ height 2)))
  (vlax-safearray-put-element bal_also 2 0)
  (setq jobb_felso (vlax-make-safearray vlax-vbDouble (cons 0  2)))
  (vlax-safearray-put-element jobb_felso 0 (+ (car centerlista) (/ width 2)))
  (vlax-safearray-put-element jobb_felso 1 (+ (cadr centerlista) (/ height 2)))
  (vlax-safearray-put-element jobb_felso 2 0)

(setq acadObject   (vlax-get-acad-object))
  (setq center (getvar "VIEWCTR"))
  (setq height (getvar "VIEWSIZE"))
  (setvar "CMDECHO" 0)
  (vla-ZoomAll acadObject)
.
.
.
.
(vla-ZoomCenter acadObject (vlax-3d-point center) height)
  (setvar "CMDECHO" 1)