它不会像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)
|