---

Hallo,

wie kann ich, wenn ich mehrere Layouts mit Rahmen und Schriftköpfen in der Zeichnung habe den Schriftkopf im aktuellen Layout ermitteln und zB von diesem ein Attribut abfragen  zB. GezVon
Habe in VBA leider noch nicht sehr viel Ahnung.

Vorab schon mal Danke für eure Hilfe
Gerhard

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

---

Hi Gerhard,

Du musst als erstes den Block des Schriftkopfes in Thisdrawing.ActiveLayout ermitteln und kannst dann üb GetAttributes die Attribute durchlaufen und dann ermitteln, welches Attribut du ändern willst.
Vielleicht schaffe ich es noch, später ein Beispiel rein zu stellen.

Gruß, Carsten

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

---

Hallo Carsten,

danke für deine rasche Antwort, aber hast du viellecht ein Code-Beispiel da ich noch nicht sehr viel Erfahrung in VBA habe.

Danke
Gerhard

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

---

Hallo Gerhard,
bin selber noch Anfänger, aber ich versuche trotzdem mal ne Antwort. Unten ist ein Beispiel das so, natürlich keinen Sinn macht. Trotzdem zeigt es wie mann den alten Inhalt Speichern kann und die Attribute mit neuem Text füllen kann.
In dem Beispiel gehe ich davon aus, daß die Schrifftköpfe "A3" heisen und mindestens 10 attribute haben.
Viel Spass beim Probieren.

Public Sub Blockattri()
Dim Kopf As AcadBlockReference
Dim Enti As AcadEntity
Dim Attrib As Variant
Dim Inhaltalt(1 To 10) As String
Dim i As Integer

    For Each Enti In ThisDrawing.ActiveLayout.block
        If Enti.ObjectName = "AcDbBlockReference" Then
            Set Kopf = Enti
            If Kopf.Name = "A3" Then
                Attrib = Kopf.GetAttributes
                For i = 1 To 10
                    Inhaltalt(i) = Attrib(i).TextString
                    Attrib(i).TextString = String(i, "a")
                Next i
            End If
        End If
    Next Enti
End Sub

Gruß, Theo

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

---

Hallo Theo,

danke für den Code, damit kann ich sehrwohl etwas anfangen.
Meißt ist der Anfang immer das schwerste Problem.

Lg.
Gerhard

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