---

Hallo zusammen.
Ich suche verzweifelt in der Hilfe nach o.g. Thema.
Ich habe einen Block in der Zeichnung, der einen 2. Block inne hat (verschachtelter Block). Nun möchte ich den Namen des 2. Blocks erhalten. Leider funktioniert das nicht mit (entnext....)
1. Blockname -kein Problem
  (setq ele1 (entget (car (entsel))))
  (setq name1 (cdr (assoc 2 ele1)))
doch 2. Name ??
  (setq ele2 (entnext (cdr (assoc -1 ele1))))  ??? geht nicht.

Kann mir jemand auf die Sprünge helfen ?

Vielen Dank im Voraus.
Peter

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

---

Vielleicht statt (entsel) (nentsel).

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

---

1. Möglichkeit: Object mit nentsel wählen und den Owner des Objektes ermitteln
z.B.
(cdr(assoc 2(entget(car(car(reverse(nentsel)))))))

2. Moglichkeit Insert mit (entsel..) wählen , dann den Blocknamen ermiiteln dann mit tblobjname auf die  Blockdefinition zugreifen und die Blockdefinition mit (while (entnext...) duchlaufen und die Objekte auf Objekttyp Insert untersuchen

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

---

Hallo Henning.
Danke für die schnelle Antwort. Nentsel habe ich bereits versucht, es bringt aber nur die Daten des im Block angewählten Elementes.

Gruss Peter

------------------
Peter Böhne
CAD Systemtechnik, Böhne

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

---

 

Zitat:

---

Original erstellt von cadsys:
Hallo Henning.
Danke für die schnelle Antwort. Nentsel habe ich bereits versucht, es bringt aber nur die Daten des im Block angewählten Elementes.

Gruss Peter

---

... deshalb hab ich dir ja oben mal ein Bsp gepostet ...
für dich nochmal:
(cdr(assoc 2(entget(car(car(reverse(nentsel)))))))

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

---

Hallo CADmium.
Danke für deine Antwort.
Mögl. 1- bringt auch nur den Namen des 1. Blockes, nicht den verschachtelten.
Mögl. 2- habe ich noch nicht versucht....

Gruß  Peter

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

---

???

Block AA besteht aus Linie und Kreis
Block BB besteht aus einem Kreisbogen und einer Referenz von AA

Klicke ich den Kreis an liefert mir die Zeile "AA"
Klicke ich den Kreisbogen an liefert mir die Zeile "BB"

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

---

Hallo CADmium.
Du hast recht.
Da ich aber nicht weiß, wo der User den Block wählt, ist dies zu ungenau. Ich möchte nach 1-maligem anklicken, beide Namen in Variablen speichern.

Gruß  Peter

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

---

na dann

(mapcar
  '(lambda(X)
    (cdr(assoc 2(entget X)))
  ) 
  (car(reverse(nentsel)))
)

liefert dir die ganze Schachtelreihe

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

---

auch richtig, doch es setzt voraus, den verschachtelten 2. Block anzuwählen, sonst erhalte ich nur den Namen des 1. :-(

Gruß  Peter

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

---

na dann nimm Möglichkeit 2 von oben .... aber da das mehr als eine Zeile ist .... vllt hat noch jemand mehr Zeit heute ..

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

---

danke CADmium,
ich werde es in der nächsten Woche probieren und Ergebnisse melden.....

Vielen Dank bis hierhin.

Gruß  Peter

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

---

Hallo Peter,
hier nochmal CADmiums 2. Möglichkeit. Es wird ein Block ausgewählt, dann werden die enthaltenen Blocknamen aus Liste ausgegeben.

Wenn man dann noch auf Block im Block usw. testen will muss man das rekursiv gestalten.

Code:

---

(defun c:Blocknamen ( / obj)
  (if (and(setq obj(car(entsel)))
          (=(cdr(assoc 0 (entget obj)))"INSERT"))
    (Blocknamen:suchen obj)))

(defun Blocknamen:suchen (obj / LISTE)
  (setq obj(tblobjname "BLOCK" (cdr(assoc 2 (entget obj)))))
  (while (and(setq obj (entnext obj))
            (/= (cdr(assoc 0 (entget obj)))"SEQEND"))
    (if (=(cdr(assoc 0 (entget obj)))"INSERT")
      (setq liste (cons (cdr(assoc 2 (entget obj)))liste))))
  liste)

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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