CAD Forums > CAD General
Recover a zoom in modell space after a change
(1/1)
ttechnik:
Hi,
How to recover a zoom in modell space after a change?
I probe store the window properties with this code:
--- Code: ---
(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)
--- End code ---
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: ---(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)
--- End code ---
Peter2:
Thanks ttechnik (after exactly 7 years :laugh: )
Navigation
[0] Message Index
Go to full version