---

Als "Spin-Off" meines Frage http://ww3.cad.de/foren/ubb/Forum145/HTML/003214.shtml  stehe ich jetzt vor der nächsten Frage:

Wie erreiche ich ENDBLK im BLOCK - im Unterschied zu SEQEND im INSERT?

Beispiel: Block "a" besteht nur aus einer Linie.

Code:

---

(setq objektdef (entget (tblobjname "block" "a")))

---

bringt mir den Anfang des Blockes mit BLOCK

Code:

---

((-1 . <Objektname: 7bd08f40>;) (0 . "BLOCK") (330 . <Objektname: 7bd08f38>;) (5
. "A8") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockBegin") (70 .
0) (10 0.0 0.0 0.0) (-2 . <Objektname: 7bd08f50>;) (2 . "a") (1 . ""))

---

Dann gehe ich weiter zur Linie:

Code:

---

(entget (entnext (cdr (assoc -1 objektdef))))
ODER
(entget (cdr (assoc -2 objektdef)))

---

bringen mir gleich die Daten der Linie:

Code:

---

((-1 . <Objektname: 7bd08f50>;) (0 . "LINE") (330 . <Objektname: 7bd08f38>;) (5 .
"AA") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbLine") (10 4.77196
3.02864 0.0) (11 8.55558 6.18779 0.0) (210 0.0 0.0 1.0))

---

Und damit ist Schluss - ich finde den Weg zu ENDBLK nicht  
In einem INSERT geht es mit ENTNEXT weiter bis zum SEQEND. Aber im BLOCK??

Die Hilfe ist hier eher schweigsam - und "tblnext" steht

Zitat:

---

If a block contains no entities, the –2 group returned by tblnext is the entity name of its endblk entity.

---

Das ist schön, aber da ein Block üblicherweise Einträge hat nicht sehr hilfreich ....

Danke für Hinweise

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

[Diese Nachricht wurde von Peter2 am 09. Sep. 2010 editiert.]

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

---

Code sagt mehr als worte:

(setq OBJ(tblobjname "BLOCK" "BLOCKNAME"))
(while (setq OBJEKT (entnext OBJEKT))
  ....
)

and das Endblk kommst du nachher eigentlich nie wieder ran .. deshalb .. wenn man einen Block "entmaket" und mit (entmake ... (list  ..... '(0 . "ENDBLK") )) abschließt und da einen Layer zuweist  .... 

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

---

 

Zitat:

---

Original erstellt von CADmium:
(setq OBJ(tblobjname "BLOCK" "BLOCKNAME"))
(while (setq OBJEKT (entnext OBJEKT))
  ....
)

---

????

 

Zitat:

---

Original erstellt von CADmium:
...and das Endblk kommst du nachher eigentlich nie wieder ran ..

---

Was ist "nachher"? Die Blöcke sind aus der guten alten Zeit - kann ich mir die Arbeit sparen?

Aber eigentlich können wir diesen Nebenthread wegen der Lösung des Hauptthreads schliessen. http://ww3.cad.de/foren/ubb/Forum145/HTML/003214.shtml

Vielen Dank

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

[Diese Nachricht wurde von Peter2 am 09. Sep. 2010 editiert.]

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