| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung
|
|
Autor
|
Thema: CMD-Reactor: kann löschen abgebrochen werden? (1065 mal gelesen)
|
joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung
   Beiträge: 1776
Registriert: 11.10.2004 Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>
|
erstellt am: 13. Nov. 2013 15:04  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, kann man mit einem Command-Reactor den Löschen-Befehl beim Start abbrechen? Mit folgendem Versuch hat es nicht funktioniert:
Code:
(vl-load-com)
(if (not *VLR:JB:CHECK_COMMAND*)
(setq *VLR:JB:CHECK_COMMAND*
(VLR-Command-Reactor
(vla-get-ActiveDocument
(vlax-get-acad-object))
'((:VLR-commandWillStart . R:JB:CHECK_COMMAND_START)
))))(defun R:JB:UT:CHECK_COMMAND_START (A B / whs) (if(member (strcase (car B)) '("ERASE"))
(progn
(alert "Löschen wird abgebrochen")
(if (setq wsh (vlax-create-object "WScript.Shell"))
(progn
(vl-catch-all-apply 'vlax-invoke
(list wsh 'sendkeys "{ESC}"))
(vlax-release-object wsh)))))
)
------------------
viele Grüße Jörn
http://www.bosse-engineering.com Kordinaten einlesen Youtube Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Moderator
CAD on demand GmbH
    
Beiträge: 4200
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 13. Nov. 2013 15:18 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse 
Hallo Jörn, wird wohl nicht gehen (anscheinend hast du das ja schon versucht). Dann gehst du vielleicht einen anderen Weg:
- CommandWillStartReactor: Wenn BefehlStart und das ist der ERASE-Befehl, dann starte einen
- ObjectReactor, der dir alle Elemente einsammelt, die gelöscht wurden.
- CommandEndedReactor: schaltet den Objektreactor wieder aus und stellt die Elemente wieder her (entdel <> ) auf ein gelöschtes Element, stellt das ja wieder her. Ungetestet, vielleicht klappt's? Grüße!
Holger ------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel
Moderator
CAD4FM UG
Beiträge: 1998
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 13. Nov. 2013 15:19 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse
Wieso? Geht doch. Wenn du noch die Löschfunktion Namentlich an den Call Ausdruck anpasst, wir der Löschenbefehl auch abgebrochen. Etwas Anderes ist wenn ein Objekt schon mit Griff versehen ist.
aber griff lösen wirsde sicher hinbekommen, odder? ------------------
Gruß
 CADwiesel
Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung
Beiträge: 1776
Registriert: 11.10.2004 Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>
|
erstellt am: 13. Nov. 2013 15:26 <-- editieren / zitieren --> Unities abgeben:
|
archtools
Mitglied
Beiträge: 991
Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 14. Nov. 2013 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse
Zitat:
Original erstellt von joern bosse:
Hallo Martin, hallo Holger,
ich habe den Wald vor lauter Bäumen nicht gesehen, ich habe nur mit vorher selektierten Objekten und dann die ENTF-Taste ausprobiert. Wenn das der Fall ist, dann kann ich diese aber ja wiederherstellen mit ENTDEL so wie Holger es gesagt.Dank Euch beiden, jetzt gehts wieder weiter 
Als allgemeinere Lösung, die außer Löschen jede beliebige Änderung rückgängig machen kann, kannst Du in der Reaktorfunktion ein vla-SendCommand mit "UNDO" an AutoCAD selbst senden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung
Beiträge: 1776
Registriert: 11.10.2004 Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>
|
erstellt am: 15. Nov. 2013 07:38 <-- editieren / zitieren --> Unities abgeben:
Hallo Archtools, danke für den Hinweis, ich habe mich jetzt aber für folgende Lösung entschieden: Code:
(defun c:JB_TEST ( / )
(entmake (list (cons 0 "LINE")
(cons 10 '(10.0 10.0))
(cons 11 '(20.0 20.0)))) (vl-load-com)
(vlr-object-reactor
(list (vlax-ename->vla-object(entlast)))
(vla-get-handle (vlax-ename->vla-object(entlast)))
'((:VLR-erased . R:JB:OBJECT_ERASED)))) (defun R:JB:OBJECT_ERASED (notifier reactor parameter / )
(setq JB_Handle$$List (cons(vlr-data reactor)JB_Handle$$List))
)
(if (not *VLR:JB:CHECK_COMMAND*)
(setq *VLR:JB:CHECK_COMMAND*
(VLR-Command-Reactor
(vla-get-ActiveDocument
(vlax-get-acad-object))
'((:VLR-commandEnded . R:JB:COMMAND_ENDED)
))))
(defun R:JB:COMMAND_ENDED (A B / )
(cond
((member (strcase (car B))'("ERASE"))
(mapcar '(lambda(A)(entdel(handent A)))JB_Handle$$List)
(setq JB_Handle$$List nil))
)
)
Weil ich die Objekte, die ich während des Löschens überwachen möchte selber erstelle, kann ich zu dem Zeitpunkt der Erstellung einen Objekt-Reactor anhängen. Das Event "erased" schreibt das Handle in eine Liste, damit der Command-Reactor beim beenden das Objekt mit ENTDEL wieder herstellen kann (natürlich kommt da noch eine sinnvolle Abfrage rein, z.B. "Sind Sie sich wirklich sicher...".
Ich denke, daß entspricht im großen und ganzen der Idee von Holger. ------------------
viele Grüße Jörn
http://www.bosse-engineering.com Kordinaten einlesen Youtube Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
