[求助]同步视口?!

jaminth

当前CAD在模型空间中开了两个视口(-vports命令),因为经常在两个视口中较对图形,突然有个想法:

即当按下鼠标中键（命令为PAN）时，移动一个视口，能不能也让另一个视口也跟随着移动？！

caoyin

;|
还需添加视口打开状态和锁定状态的判断:
vla-get-ViewportOn
vla-get-DisplayLocked

未考虑 UCS 的因素
|;
(defun c:tt (/ lt:ss-map tag vp p1 p2 n ang dis)
  (defun lt:ss-map (ss fun / n)
    (repeat (setq n (fix (sslength ss)))
      (apply fun (list (ssname ss (setq n (1- n)))))
    )
  )
  (if (/= (getvar "tilemode") 0)
     (progn
       (princ "\n** 命令不允许在模型选项卡中使用 ** ")
       (exit)
    )
  )
  (if (/= (getvar "cvport") 1)
    (progn
      (command "_.pspace")
      (setq tag T)
    )
  )
  (if (and (setq vp (ssget '((0 . "viewport"))))
           (setq p1 (getpoint "\n指定移屏的起点: "))
           (setq p2 (getpoint p1 "\n指定移屏的终点: "))
      )
    (progn
      (setq ang (angle p1 p2)
            dis (distance p1 p2)
      )
      (command "_.mspace")
      (lt:ss-map vp '(lambda (x / ctr sc)
                       (setvar "cvport" (cdr (assoc 69 (entget x))))
                       (setq ctr (getvar "viewctr")
                             sc  (vla-get-CustomScale (vlax-ename->vla-object x))
                       )
                       (command "_.-pan" ctr (polar ctr ang (/ dis sc)))
                     )
      )
    )
  )
  (if (not tag) (command "_.pspace"))
  (princ)
)

jaminth

不好意思,弄错了!我最初的原意是要在模型空间下执行!!

GamIng

caoyin 发表于 2008-1-26 10:46
本帖最后由 作者 于 2008-1-26 10:55:02 编辑  ;|还需添加视口打开状态和锁定状态的判断:vla-get-Viewport ...

这功能相当于是同时移动了两个视口，但我们经常是在某个视口对照另一个视口进行比较操作。能不能对其中一个视口进行缩放、平移时，另一个视口自动跟着缩放、平移？