I wish to leave from the neverending loop (while T.....) by means of VLR-MOSE-REACTOR using a following code (reductive examle):
(defun TestReactor()
(if
(not at-txtnum:fail)
(setq at-txtnum:fail
(vlr-Mouse-Reactor nil
'((:vlr-beginRightClick . TextNum_Pasteclip_Failed))
)
)
); end if
(princ)
); end of TestReactor
(defun TextNum_Pasteclip_Failed(reac arg)
(vla-eval
(vlax-get-acad-object)
"SendKeys \"{ESC}\"")
(princ)
); end of TextNum_Pasteclip_Failed
(TestReactor)
And it works. However at use in the basic program of some commands, for example:
(while t(command "_.pasteclip" pause)(princ "\nStop me!"))
after interruption of the program on the screen appears Shortcut menu. Whether there is a way to suppress standard reaction?
Expression:
(vla-eval
(vlax-get-acad-object)
"SendKeys \"{ESC}{ESC}\"")
too does not work.