(vl-load-com)
(if (and (= (type $cv_Command_reactor) 'VLR-Command-Reactor)
         (vlr-added-p $cv_Command_reactor))
   (vlr-remove $cv_Command_reactor)
)
(foreach |item (vlr-reactors :vlr-Command-reactor)
   (setq |reactor (cadr |item))
   (if (= (setq |str (vlr-data |reactor)) "CADvantage Command Reactor")
      (progn
         (if (= (vl-doc-ref '$cv_test_mode) 1)
            (princ (strcat "\n" |str " found"))
         )
         (setq $cv_Command_reactor |reactor)
      )
   )
)
(setq |reactor nil)
(if (= (type $cv_Command_reactor) 'VLR-Docmanager-Reactor)
   (progn
      (if (not (vlr-added-p $cv_Command_reactor))
         (vlr-add $cv_Command_reactor)
      )
   )
   (setq $cv_Command_reactor
      (vlr-Command-reactor "CADvantage Command Reactor"
        '(
            (:vlr-commandWillStart . @cancel)
         )
      )
   )
)
(defun @cancel (calling-reactor CommandInfo / |cmdnames |command |picked)
   (setq |cmdnames  (strcase (getvar "cmdnames"))
         |command (car CommandInfo)
         |picked (and (> (getvar "pickfirst") 0)(member 'PICKSET (mapcar 'type (ssgetfirst))))
   )
   (if (= (vl-doc-ref '$cv_test_mode) 1)
      (progn
         (princ "\n\nPerforming @cancel")
         (princ "\nCalling Reactor: ")(prin1 calling-reactor)
         (princ "\nCalling Reactor Type: ")(prin1 (type calling-reactor))
         (princ "\nCommand Info: ")(prin1 CommandInfo)
         (princ "\nCommand Info Type: ")(prin1 (type CommandInfo))
         (princ "\ncmdnames: ")(prin1 |cmdnames)
         (princ "\n")
      )
   )
   (if (wcmatch |command "ERASE,MOVE,SAVE,QSAVE,QUIT")
      (progn
         (vla-sendcommand (vlax-get (vlax-get-acad-object) "activedocument") "(vl-cmdf) ")
         (princ "\r                                            \r")
      )
   )
)