| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: Reactor Antwort auswerten (986 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: 4201
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
|
| | Anzeige: | Infos zum Werbeplatz >> | BlechCAD 3D CAD APP für Blechverarbeitung Metallbau- Fassadenbau- Planer, die aus fertigen Ansichten und Schnitten von Blechen, die Abwicklung zu bearbeiten haben, für eine NC-Software und Kantbankdaten.
Speziell für Aufträge die immer verschiedene Blecharten und Abmessungen aufweisen.
Blechabwicklungen für die Fertigung erstellen in 2-3 Mi
|
|
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13533
Registriert: 30.11.2003 .
|
erstellt am: 24. Jun. 2005 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather
|
Foren auf CAD.de
| 
- 
