| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Reactor Antwort auswerten (940 mal gelesen)
|
dan_rather Mitglied Techniker HLK
Beiträge: 97 Registriert: 09.12.2003
|
erstellt am: 24. Jun. 2005 08:37 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, folgender Reactor wird in der Zeichnung geladen: (VLR-Reaction-Set (VLR-Command-Reactor) :VLR-commandWillStart 'VLR-trace-reaction) Die Meldung in der Befehlzeile lautet: ; Reaction: :VLR-commandWillStart; Argumentliste: (#<VLR-Command-Reactor> ("MENULOAD")) Wie kann ich "MENULOAD" an eine Variable übergeben bzw explizit auf ds event MENULOAD reagieren bevor der Befehl ausgeführt wird? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 24. Jun. 2005 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather
Hallo dan_rather, das geht eigentlich ganz einfach, du musst nur eine andere Funktion angeben, die ausgeführt werden soll, wenn ein COMMAND startet, endet oder abgebrochen wird. Nachfolgend ein Bsp:
Code:
(if (not *VLR:CHECK_COMMAND*) (setq *VLR:CHECK_COMMAND* (VLR-Command-Reactor (vla-get-ActiveDocument (vlax-get-acad-object)) '((:VLR-commandWillStart . R:CHECK_COMMAND_START) (:VLR-commandEnded . R:CHECK_COMMAND_END) (:VLR-commandCancelled . R:CHECK_COMMAND_CANCEL) ) ) ) ) (defun R:CHECK_COMMAND_START (A B / NETWORKPLOTSTYLEPATH) (terpri) (princ A) (terpri) (princ B) (terpri) (if (and (wcmatch (strcase (car B)) "*PAGESETUP,*PLOT,*PREVIEW") ) (princ "ICH WILL JETZT PLOTTEN!!!") ) ) (defun R:CHECK_COMMAND_END (A B / NETWORKPLOTSTYLEPATH) (terpri) (princ A) (terpri) (princ B) (terpri) (if (and (wcmatch (strcase (car B)) "*PAGESETUP,*PLOT,*PREVIEW") ) (princ "PUHHH .. PLOTTEN GESCHAFFT!!!") ) ) (defun R:CHECK_COMMAND_CANCEL (A B / NETWORKPLOTSTYLEPATH) (terpri) (princ A) (terpri) (princ B) (terpri) (if (and (wcmatch (strcase (car B)) "*PAGESETUP,*PLOT,*PREVIEW") ) (princ "WARUM LÄSST MAN MICH NICHT PLOTTEN, WARUM????") ) )
Setze dir ein paar Haltepunkte in den (defun ...) dann wirst du es verstehen, was da eigentlich passiert. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
dan_rather Mitglied Techniker HLK
Beiträge: 97 Registriert: 09.12.2003
|
erstellt am: 24. Jun. 2005 12:23 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 24. Jun. 2005 12:58 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Jun. 2005 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather
|