---

Hallo Zusammen,

ich habe im Layoutbereich einen Zeichnungsrahmen, der als Block abgespeichert ist und hat z.B. den Namen "A1-HOCH". In einem Layoutbereich darf immer nur ein Zeichnungsrahmen sein aber mehrere andere Blöcke, z.B. Schriftkopf, Schnittsymbol...
Nun möchte ich ein VBA Programm schreiben, das den aktiven Layout nach Blocknamen durchsucht. Durch eine CASE Abfrage würde ich je nach Resultat bestimmte Ploteinstellungen zuweisen/festlegen.

Mein Problem ist: ich habe einen Blocknamen und möchte wissen, ob ein Block mit diesem Namen im aktiven Layout vorhanden ist. "ThisDrawing.Blocks" sind alle Blöcke in der Zeichnung. Habe mit ActiveLayout rumexperemntiert, aber zu nichst gekommen.

Ich brauche etwas in der Art:

Dim block As AcadBlock
For Each block In ActiveLayout.Blocks
select case block.name
case "A1-HOCH"
...
case "A1-Quer"
...
end select
next

Gruß
Georg

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

---

Hi Georg,

bitte nicht Blockdefinition (Block) mit Blockreferenz (BlockReference) vertauschen, Du findest im Layout keine Blockdefinitionen, nur -referenzen.

Codebeispiel (durchsucht aktuelles Layout und listet alle Blockreferenz-Namen) wäre:

Code:

---

Public Sub ScanLayout()
  Dim tAcadEnt As AcadEntity
  For Each tAcadEnt In ThisDrawing.ActiveLayout.Block
      If TypeOf tAcadEnt Is AcadBlockReference Then
        Debug.Print tAcadEnt.Name
      End If
  Next
End Sub

---

- alfred -

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

---

1a Danke!!!

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