Grüß Euch alle!
Habe ein heikles Problem, über das sich manche von Euch vielleicht schon den Kopf zerbrochen haben:
solange ESC senden bis der aktuelle Befehl komplett beendet ist.
für gewöhnlich:
(while (> (getvar "cmddia" 0) (command))
(als Beispiel innerhalb von PEDIT - Vertices da müsste man 2-3x ESC drücken um den Befehl zu verlassen)
Dies funktioniert aber nicht wenn diese Fehlerfunktion über eine Reaktor ausgelöst wird. Dort sind keine Commands erlaubt.
ebenso bei einem geöffneten Dialogfenster (DCL) wird´s zum Absturz kommen.
Das hab ich schon probiert:
(exit) - bricht alles ab
(vl-cmdf "\U+001B") - funkt nicht
auch mit Sendkeys über ein WSCRIPT-SHELL ist sehr labil weil´s anscheinend an die aktuelle Anwendung sendet. funktioniert hin und wieder, nach Belieben aber für mich nicht nachvollziehbar
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) (chr 3))
(vla-SendCommand (vla-get-activedocument(vlax-get-acad-object)) (chr 27))
(vla-sendcommand (vlax-get (vlax-get-acad-object) "activedocument") "(vl-cmdf) ")
- sendet zwar Abbruch, aber es ist immer ein Command aktiv
somit Endlosschleife
aus der AC Hilfe vom command: Invoking command with no argument is equivalent to pressing ESC and cancels most AutoCAD commands.
*pfuh* - mir raucht der Kopf schon
lg
Wolfgang S
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP