求一个监视命令的反应器
求一个监视命令的反应器(defun wx-cmd (x1 x2)
(setq cmdstr (car x2))
(setq layer (getvar "CLAYER"))
(princ "\n开始命令:")
(if (= (strcase cmdstr t) "line")
(setq en (entlast)))
)
(defun wx-cmd1 (x1 x2)
(princ "\n结束命令:")
(setq a1 x1 a2 x2)
(setvar "CLAYER" layer)
)
(defun wx-cmd2 (x1 x2)
(princ "\n取消命令:")
(setq a1 x1 a2 x2)
(setvar "CLAYER" layer)
)
(or :vlr-wx-cmd
(setq :vlr-wx-cmd (vlr-command-reactor nil (list
(cons :vlr-commandWillStart (function wx-cmd));开始命令
(cons :vlr-commandEnded (function wx-cmd1));结束命令
(cons :vlr-commandCancelled (function wx-cmd2));取消命令
)))
)
页:
[1]