vla方式实现PAN效果遇到问题

vectra

2. (defun make-vlax-point2d (p2)
   
3.   (vlax-make-variant
   
4.     (vlax-safearray-fill
   
5.       (vlax-make-safearray vlax-vbdouble '(0 . 1))
   
6.       (list (car p2) (cadr p2))
   
7.     )
   
8.   )
   
9. )
   
10. 
    
11. (defun ace-set-viewport-center (/ doc vport)
    
12.   (setq  doc   (vla-get-activedocument (vlax-get-acad-object))
    
13.   vport (vla-get-activeviewport doc)
    
14.   )
    
15. 
    
16.   (vla-put-center vport (make-vlax-point2d (getpoint)))
    
17.   (vla-put-activeviewport doc vport)
    
18. )

(defun make-vlax-point2d (p2)<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray vlax-vbdouble '(0 . 1))<br />       (list (car p2) (cadr p2))<br />     )<br />   )<br /> )<br /> <br /> (defun ace-set-viewport-center (/ doc vport)<br />   (setq  doc   (vla-get-activedocument (vlax-get-acad-object))<br />   vport (vla-get-activeviewport doc)<br />   )<br /> <br />   (vla-put-center vport (make-vlax-point2d (getpoint)))<br />   (vla-put-activeviewport doc vport)<br /> )

上面的代码希望设置视图中心，实现类似平移的效果，但ace-set-viewport-center执行后，位置是移动了，缩放比例也同时变化了。故求助，是不是漏了什么步骤？

自贡黄明儒

为什么不用vla-ZoomCenter?

wangph

还需要设置customscale

wangph

vla-put-center好像不行吧，他是设置布局中视口的中心位置，是平移视口的，而不是平移模型中的图