---

Hallo zusammen,

ich weiß, dass ich in der Zeichnung mit dem unten angeführten Code nach dem eingefügten Block suchen kann. 
(ssget "X" '((0 . "INSERT")(2 . "BockXX")))

Wie müsste der Code nun ausehen wenn der Block den ich suche in einem anderen Block (Block in Block) enthalten ist.
Vielleicht hat ja jemand ein Codebeispiel mit dem ich weiterarbeiten kann.

Vorab schon mal Danke für eure Hilfe
Gerhard

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

---

mit (setq BL(tblnext "BLOCK" .... durch die Blocktabelle laufen .. dabei mit (tblobjname "BLOCK"(cdr(assoc 2 BL))) das Blockobjekt holen und von diesem mittels (entnext.. die Blockelemente durchlaufen ..diese auf "INSERT" testen und gucken ob der Name mit dem vorgegebenen übereinstimmt..

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

wenn du nur wissen möchtest, ob der Block in der Zeichnung enthalten ist, dann genügt auch die folgende Zeile
(tblobjname "BLOCK" "NAME")
Existiert ein Block mit dem Namen "NAME" gibts den Elementnamen zurück ansonsten nil.
Mit dem Ergebnis kann natürlich noch keine Aussage darüber getroffen werden, ob der Block auch irgendwo eingefügt ist. Dann hilft  CADmiums Hinweis.

Bei Fragen ...

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Thomas,

danke für deine rasche Antwort aber das hab ich jetzt nicht alles so richtig verstanden.
Ich programmiere zwar ein bisschen aber das ist mir dann auf die schnell zu hoch.

Wäre es dir möglich mit das ein wenig verständlicher zu zeigen, das wäre ganz toll von dir.

Liebe Grüße
Gerhard 

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

---

..eigentlich sollte ja genau Suchbegriffe bei gewesen sein .. ?!

Was willst du denn genau wissen / machen ?

(tblobjname "BLOCK" "AAA")  -> liefert dir das Blockdefinitionsobjekt, wenn vorhanden

--------
(while (setq BL(tblnext "BLOCK" ))  ----> geht durch die Blocktabelle
  (princ(strcat "\n"(cdr(assoc 2 BL))))
)

------

(setq BLOCKNAME "AAA")
(setq BLOCKLISTE nil)

(while (setq BL(tblnext "BLOCK" ))  ----> geht durch die Blocktabelle
  (setq OBJDATA(entget(tblobjname "BLOCK"(cdr(assoc 2 BL)))))
  (while(/= (cdr (assoc 0 OBJEKTDATA)) "SEQEND") 
    (setq OBJEKTDATA (entget (entnext (cdr (assoc -1 OBJEKTDATA)))))
    (if (and(=(cdr (assoc 0 OBJEKTDATA)) "INSERT")                       
            (=(strcase (cdr(assoc 2 OBJEKTDATA))) (strcase BLOCKNAME))
        )
      (setq BLOCKLISTE(cons (cdr (assoc -1 OBJEKTDATA) BLOCKLISTE))
    )
  )
)

und in Blockliste haste dann die Blockreferenzen ...

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

auch wenn du mich jetzt nicht explizit angesprochen hast, was hast du denn genau vor?
Wie mir scheint, ist dir der Aufbau der Zeichnungsdatenbank nicht ganz klar. Daher ist es vielleicht sinnvoll, wenn du beschreibst, was dein Ziel ist, dann können wir einschätzen, ob der von dir eingeschlagene Weg überhaupt zielführend ist.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Thomas,

danke für deine Hilfe, jetzt ist es für mich verständlich.

Lg.
Gerhard

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