---

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

---

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

---

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

---

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

------------------
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

---

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

---

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