[求助]双击布局中的视口模型和图纸空间的切换问题

carrot1983

;; 回调函数
(defun CJW-DOUBLECLICK-DCL-CALLBACK (REACTOR PT)
  (setq PT (trans (car PT) 0 1))
  (or (nentselp PT)
      (alert "我是对话框")
  )
  (princ)
)
(vl-load-com)
(or *CJW-DOUBLECLICK-DCL-REACTOR*
    (setq *CJW-DOUBLECLICK-DCL-REACTOR*
    (vlr-mouse-reactor
      "CJW-DOUBLECLICK-REACTOR"
      '((:vlr-begindoubleclick . CJW-DOUBLECLICK-DCL-CALLBACK))
    )
    )
)

以上的代码如何修改后满足：

双击布局中的视口时，也就是模型和图纸空间的切换的时候，不弹出(alert "我是对话框")

如何修改，请知道的赐教。

zml84

(defun CJW-DOUBLECLICK-DCL-CALLBACK (REACTOR PT )
  (setq PT (trans (car PT) 0 1))
  (or (nentselp PT)
      (= (getvar "CTAB") TMP)
      (alert "我是对话框")
      (setq TMP (getvar "CTAB"))
  )
  (princ)
)

carrot1983

首先，谢谢zml的帮助。
其次，似乎不可行。
是双击布局中的视口时自动切换。。。

carrot1983

似乎没有人知道？
双击布局中的视口时，会调用命令

命令: _.MSPACE
和
命令: _.PSPACE

现在就是不知道如何判断：是否执行了双击视口这个动作。

highflybird

用鼠标反应器不可以吗？双击反应器。

carrot1983

highflybird 发表于 2011-4-27 15:19
用鼠标反应器不可以吗？双击反应器。

一楼就是用 双击反应器。
这个暂时没找到好办法。
就先放弃了。

zlg258369

想要达到什么目的呢，不弹出(alert "我是对话框")，要干什么，看看有没有其他的办法解决