---

hallo,
ich möchte gerne alle blockreferenzen einer zeichnung (modellbereich sowie auf den einzelnen layouts) auflisten.
derzeit schaffe ich es aus dem modellbereich bzw. dem papierbereich.

    For Each entity In ThisDrawing.PaperSpace
        If LCASE(entity.ObjectName) = "acdbblockreference" Then

        End If
    Next entity

beim papierbereich werden aber nur die referenzen des aktuellen layouts zurückgegeben.
ich benötige aber alle referenzen auf den einzelnen layouts.
hat wer eine idee?

ritchie

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

---

Hier mußt du ran: ThisDrawing.Layouts

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

---

mit

  For Each entity In ThisDrawing.Layouts
        If LCASE(entity.ObjectName) = "acdbblockreference" Then

        End If
  Next entity

erhalte ich runtime error 13: type mismatch

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

---

habs!

zuerst die layouts durchlaufen, nacheinander jedes layout als aktiv sezten, aktuelles layout als paperspace definieren, blockreferenzen auflisten ...

    For Each acLayout In ThisDrawing.Layouts
        'aktives Layout setzen
        ThisDrawing.ActiveLayout = acLayout
        Set acPaperSpace = Documents(0).PaperSpace
        'Paperspace des Layouts durchlaufen
        For Each entity In acPaperSpace
            If entity.ObjectName = "AcDbBlockReference" Then
                Debug.Print entity.ObjectName, entity.Name, entity.Handle
            End If
        Next entity
    Next acLayout

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

---

Hallo ritchie,

ich weiß nicht, was du konkret vor hast, daher noch eine Anmerkung. Besser ist es, du fragst von den Blockdefinitionen die Blockreferenzen ab. Diese untersuchst du dann, auf welchem Layout sich diese befinden. Auf diesem Weg bekommst du auch die Referenzen heraus, die womöglich innerhalb anderer Blöcke verschachtelt sind.
Von den verschachtelten musst du dann natürlich recursiv durch die Verschachtelung nach oben gehen, und musst herausfinden, in welchem Layout die übergeordnete Blockreferenzen angezeigt werden.
Auf deinem Weg bekommst du ja nur die Referenzen heraus, die direkt im Layout eingefügt sind. Das mag für dich reichen, ist aber eben auch an die Bedingung geknüpft, dass niemand mit mehreren Verschachtelungsebenen arbeitet.

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 holger,
hab ich doch geschrieben, dass ich die blockreferenzen abfrage :-). hab es nur umgekehrt gemacht. durchsuche die einzelnen layouts auf blockreferenzen.

ein zugriff auf alle blockreferenzen habe ich nicht geschafft, da ich vorher immer zuerst modelspace oder paperspace angeben muss und der paperspace bezieht sich immer nur auf das aktuelle layout.

zugriff auf alle blockreferenzen (unabhängig wo sie liegen) wäre natürlich schicker ...

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