社区 › AutoLISP/Visual LISP 编程技术 › vla方式实现PAN效果遇到问题

vectra 发表于 2014-10-15 20:09:02

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

(defun make-vlax-point2d (p2)
(vlax-make-variant
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbdouble '(0 . 1))
      (list (car p2) (cadr p2))
    )
)
)

(defun ace-set-viewport-center (/ doc vport)
(setqdoc   (vla-get-activedocument (vlax-get-acad-object))
vport (vla-get-activeviewport doc)
)

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

自贡黄明儒 发表于 2014-10-21 08:40:32

为什么不用vla-ZoomCenter?

wangph 发表于 2014-10-22 07:33:38

还需要设置customscale

wangph 发表于 2014-10-23 11:16:56

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

查看完整版本: vla方式实现PAN效果遇到问题