视口平移问题请教
;两视口平移参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88314;有个问题平移后两视口的图形都zoom 最大化了，要保持原来的缩放不变怎么做呢？
(defun c:aa()
(princ "\n******使用命令：aa(两视口平移)******")
(vl-load-com)
(setvar "rtdisplay" 0)
(setq *Doc*(vla-get-activeDocument (vlax-get-acad-object)));当前文档
(setq vps (vla-get-viewports *Doc*)) ;视口集合
(setq pt1(getpoint"平移一点")pt2(getpoint pt1"平移一点")) ;平移点
(vlax-for v vps ;遍历视口集合
(vla-put-activeviewport *Doc* v) ;作用当前视口
(command "-pan" "non" pt1 "non" pt2) ;平移
;
)
(princ)
)
页:
[1]