关于reactors的帮助?
你好我需要一个反应器,当“CMDACTIVE”系统变量将其值更改为等于8时触发动作。 它不会像sysvar反应堆那样工作。不幸的是,sysvar不会引发反应。您可以做的是每次启动命令时检查CmdActive值,然后使用if测试它是否等于(或任何值)8。
(defun R:TestCmdActive (obj info / )
(princ "The command starting: ") (princ info) (princ "\t - CmdActive=")
(princ (getvar "CmdActive")) (princ "\n")
(princ)
)
(VLR-Reaction-Set (VLR-Command-Reactor "TEST") :VLR-commandWillStart 'R:TestCmdActive) 谢谢你irneb,
据我所知,当出现一个对话框时,CMDACTIVE=8,但在我的情况下仍然等于1,您能帮忙吗。
页:
[1]