Topic: Cancelling command with reactor...

[Andrea]

Hi all...

can anyone know how to cancel any command with reactor ?

(CANCELCOMMANDHERE)

Code: [Select]

(defun loadTreactor ()
(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startTCommand)))
)

(defun startTCommand (calling-reactor startcommandInfo)
(if (nth 0 startcommandInfo) (CANCELCOMMANDHERE)))

(loadTreactor)
??

Or if you have any other suggestion.....i'll take it ! 

[Patrick_35]

Salut

You can use
:vlr-commandCancelled --> An AutoCAD command has been canceled. 
:vlr-commandFailed --> An AutoCAD command failed to complete.
 
@+

[Andrea]

i've tried...

but not working PAt..
maybe i don't know how to..

[Patrick_35]

An example

Code: [Select]

(defun CancelCommand (Rea Cde)
  (alert (strcat "Command Cancelled --> " (car Cde)))
)

(setq a (vlr-command-reactor nil (list (cons :vlr-commandCancelled (function CancelCommand)))))
Use any commands ....

And for removing reactor

Code: [Select]

(vlr-remove a)
@+

[Andrea]

Thanks PAT..

But is not realy what I'm looking for....

I need to cancel all command...or
unable all command..or
desactive all command...or
return NIL all command...or.....

the code you posted...run someting AFTER the command was ENDED or FAILED....
but I need to run somthing AFTER the command was DETECTED to cancel this current command.

so was thinking that  (:vlr-commandWillStart.....) can be the job..

The..

Code: [Select]

(defun CancelCommand (Rea Cde)
(exit);(alert (strcat "Command Cancelled --> " (car Cde)))
)

(setq a (vlr-command-reactor nil (list (cons :vlr-commandWillStart (function CancelCommand)))))

  not seem to work...it call the (exit) before starting the command.

[Patrick_35]

The cancel work during the command. Not at the beginning and at the end
Besides this solution to intercept a cancel, I don't see the solution and I don't think that a willstart will give the solution. Nothing stopped an reactor, at least I found this solution yet 

@+

[LUCAS]

check!

http://discussion.autodesk.com/thread.jspa?messageID=4195793

[Andrea]

thanks LUCAS....but

can anyone tell me why this code load VBA module ?

Code: [Select]

(vla-eval (vlax-get-acad-object)
(strcat "Sendkeys \"{ESC}\"")
)

[Andrea]

OK....i found something...

Code: [Select]

(command "_line")
(vla-sendcommand
(vla-get-activedocument (vlax-get-acad-object))
"(command) "))