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