视口平移问题请教

crazylsp

;两视口平移  参考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)
)