Topic: Recover a zoom in modell space after a change

[ttechnik]

Hi,

How to recover a zoom in modell space after a change?

I probe store the window properties with this code:

Code: [Select]


(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)



This code bring the center.....
But from the saved document. Not actual!

The center is same....same..., while I saved the file...

Thomas

[ttechnik]

This is good:

Code: [Select]

(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)