Hi all,
who knows a way to cancell a command via reactors
Here is my code of traping event of starting commands. I want to prevent AutoCAD of continuing some commands, with no success:
(VLR-Command-Reactor
nil
(list
(cons
:VLR-commandWillStart
'Reactor:commandWillStart
)
)
)
(defun Reactor:commandWillStart (-calling-reactor- -info- / *cmdname*)
(setq *cmdname* (read (car -info-)))
(cond
((member *cmdname* '(STYLE DIMSTYLE DDIM ))
[color=red][b](command); it doesn't work [/b][/color]
)
(T (mapcar 'princ (list *cmdname* " will start.")))
)
)
Any suggestion will be greatly appreciated