---

Hallo,

Habe da eine Frage bezüglich des reaktors ":vlr-beginDoubleClick" bzw. dessen Auswertung in Richtung Block...

Code:

---

(defun add-mouse-reactors( / )
(vl-load-com)
(if(not *mouse-reaktor*)
(progn
(setq *mouse_Reaktor_dC_O/I* 'T
*mouse_Reaktor_rC_O/I* 'T
)
(vlr-mouse-reactor
nil
'((:vlr-beginDoubleClick . mouse-reaktor_dKlick))
)
(vlr-mouse-reactor
nil
'((:vlr-beginRightClick . mouse-reaktor_rKlick))
)
(setq *mouse-reaktor* 'T)
)
)
'nil
)

(vl-load-com)
(add-mouse-reactors)

;###############################################################################
;###############################################################################

(defun mouse-reaktor_dKlick (obj pkt / obj pkt en tmp)

(if
(setq en (car (nentselp (car pkt))))
(progn
(setq GC (entget en))
(cond
;***************************************************************
('T 'nil)
;***************************************************************
)
)
(progn
'nil
)
)

)

---

Das Problem:
Klicke ich auf einen Block doppelt, bekomme ich nicht den Block als gewähltes Objekt "(nentselp (car pkt))" ,sondern immer das Objekt im Block...

Die Frage:
Wie komme ich denn zum Block, um dessen Namen zu vergeleichen?

Feststellungen:
Anscheinend enthält das element im Block keinen Gruppencode 410, ist das so richtig?

Hoffend auf Denkanstöße

LG
reltro

[Diese Nachricht wurde von reltro am 30. Aug. 2010 editiert.]

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

---

Hi,

statt nentsel ein entsel?

- alfred -

------------------
www.hollaus.at

---

hallo alfred,

(entsel) funktioniert mit einem Punkt leider nicht, hab ich schon ausprobiert...

lg
reltro

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

---

mit nentselp das Objekt ermitteln und sich dann mit Property Objectowner sich bis zum Blockcontainer hochhangeln

oder (ssget "_cp" ...) und dann ssname ... verwenden

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

vielleicht reicht auch ein (ssname (ssgetfirst) 0), da durch das Doppelklicken das Objekt ja markiert wird.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

des Rätsels lösung:

(ssname (cadr (ssgetpickfirst)) 0) !!statt!! (car (nentselp (car pkt)))

vielen Dank Wronzky

Unities sind unterwegs... =) an alle beteiligten...

vielen Danke
LG
reltro

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

---

was ist (ssgetpickfirst) ??

nentsel liefert sehr wohl auch den (obersten) Block

z.B.:
Ergebniss von Nentsel:
(<Objektname: 7e05a0a8> (18.3912 2.64102 0.0) ((-1.022
1.25159e-016 0.0) (-4.51895e-017 -0.369 0.0) (0.0 0.0 0.016) (19.3203 2.27123 0.578)) (<Objektname: 7e05a6a0> <Objektname: 7e05a530> ))

Die beiden fett markierten Einträge sind der Reihe nach die verschatelten Blockstrukturen. Das heist der letzte Eintrag ist immer die 'oberste' 'angreifbare' Blockeinfügung

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