Programmstart über Doppelklick eines Blockes (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Programmstart über Doppelklick eines Blockes (1456 mal gelesen)

mundal
Mitglied
Techniker

Senden Sie eine Private Message an mundal

Schreiben Sie einen Gästebucheintrag für mundal

Beiträge: 320
Registriert: 14.02.2005

erstellt am: 30. Sep. 2011 08:35

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo Zusammen,

lässt sich ein Lispprogramm über einen Doppelklick auf die Kontur eines Blockes starten.

Gruß
Joachim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

neurosis
Mitglied
dipl.ing.

Senden Sie eine Private Message an neurosis

Schreiben Sie einen Gästebucheintrag für neurosis

Beiträge: 224
Registriert: 22.08.2006

erstellt am: 30. Sep. 2011 08:39

<-- editieren / zitieren -->

Unities abgeben:

Nur für mundal

hallo joachim,
ja, ist moeglich ueber vlr-beginDoubleClick von vlr-mouse-reactor.
das problem ist nur (zumindest bei mir), dass sich dabei auch das eigenschaftenfenster von acad oeffnet.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

mundal
Mitglied
Techniker

Beiträge: 320
Registriert: 14.02.2005

erstellt am: 30. Sep. 2011 11:16

<-- editieren / zitieren -->

Unities abgeben:

Hallo Marco,

danke für den Tipp.
Hast Du für mich ein komplettes Beispiel ?
Dann kann ich mal testen.

Gruß
Joachim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

neurosis
Mitglied
dipl.ing.

Beiträge: 224
Registriert: 22.08.2006

erstellt am: 30. Sep. 2011 12:54

<-- editieren / zitieren -->

Unities abgeben:

Nur für mundal

ungetestet:

Code:

; initialisieren des reactors
(vlr-mouse-reactor nil '((:vlr-beginRightClick . reactors-OnBeginRightClick)))
(defun reactors-OnBeginDoubleClick ( callingReactor data / en sel )
(if (and (setq sel (nentselp (trans (car data) 0 1)))
(= (type (setq en (car (last sel)))))
(= (cdr (assoc 0 en)) "INSERT"))
(progn
(if (= (cdr (assoc 8 (entget en))) "TestLayerName")
(MacheIrgendWas)
)
)
)
)

es wird auf ein insert auf layer "TestLayerName" reagiert und die funktion (MacheIrgendWas) ausgefuehrt

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:	Infos zum Werbeplatz >>
HGS-STAHL CAD APP für AEC - Architektur-, Ingenieur- und Bauwesen Dieses Tool ermöglicht eine präzise Planung und Visualisierung von Stahlbausystemen und trägt dazu bei, die Effizienz und Qualität des Stahlbaus zu verbessern. HGS-STAHL ist ein Software-Tool von HGSimon CAD Engineering für den Stahlbau, für AUTO-CAD; BRICS-CAD; ZWCAD; GSTAR-CAD

CADmium
Moderator
Maschinenbaukonstrukteur