更改后恢复模型空间中的缩放
嗨，更改后如何在modell空间中恢复缩放？
我使用此代码探测存储窗口属性：
(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 02)))
(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 02)))
(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)
此代码将中心......
但来自保存的文档。不实际！
中心是相同的......相同的...，而我保存了文件...
Thomas
**** Hidden Message ***** 这很好：
(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)
感谢泰克（整整7年后）
页:
[1]