---

Hallo miteinander. Ich hab da ein kleines problem. ich muß die Farbe von Attributen in Blockreferenzen ändern.
Jetzt hab ich folgendes Problem, daß ich auf die Attribute in einer Blockreferenz zugreifen kann aber nicht auf die Attribute welche sich in Unterblöcken in der Blockreferenz sich befinden. Gibt es da einen Trick?
Bin für jede Hilfe sehr dankbar.

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

---

ganz normal alle Elemente des zur ausgewählten Referenz gehörenden Blockes durchlaufen, wenn ein Insert darunter gefunden wurde, diese auf Attribute testen, wenn positiv, dann das Attributarray holen und die Attribute anpassen.
Am besten die ganze Funktion rekursiv aufbauen, damit auch Mehrfachschachtelungen berücksichtigt werden.

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

---

Danke für die Schnelle Antwort. Das hab ich mir schon gedacht nur ich hab es nicht hinbekommen. Hast du mir nen Kleinen Tip?

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

---

Nö,sorry, ich mach nix in VBA 

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

---

Schade aber trotzem danke

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

---

Hallo Hannes,

schau dir doch mal das Blockinfo an. Im Code gibt es eine Funktion die die Blöcke rekursiv, u. a. nach Attriubuten  durchsucht. Da sollte es leicht möglich sein bei der Gelegenheit die Farbe zu ändern.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Danke für den TIP. Bin jetzt leider aber nicht wirklich weitergekommen. Ich finde die Stelle nicht wo du in den Blockreferenzen nach den Unterblöcken suchst und wo du sie Herhast.

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

---

Hallo Hannes,

Vielleicht hilft dies als Ansatz.

Gruß, Carsten

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

---

Hallo Hannes,

der Code ist in der Hauptform in der Funltion FillBlockInfo

hier mal ein Auszug:

Code:

---

    EntityCount = 0
    For Each Entity In Block
        EntityCount = EntityCount + 1
        ' ---------------------------
        ' Blöcke
        '      Block1
        '            Layer
        '                      Layer1
        '                      Layer2
        '            Attribute
        '            SUB-BLOKS
        ' Key = Layer_DummyBlock_Verdeckt
        Set LayerNode = TreeView.Nodes.Add(LayersNode.key, tvwChild, LayersNode.key & "\" & Entity.Layer, Entity.Layer)
        LayerNode.Tag = "BLOCKLAYER"
       
        Set LineTypeNode = TreeView.Nodes.Add(LineTypesNode.key, tvwChild, LineTypesNode.key & "\" & Entity.Linetype, Entity.Linetype)
        LineTypeNode.Tag = "BLOCKLINE"
       
        If Entity.ObjectName = "AcDbAttributeDefinition" Then
          ' =AcDbAttributeDefinition (5)
          ' = AcDbBlockTableRecord (7)
            ' Wenn Attributsdefinition
            ' ---------------------------
            ' Blöcke
            '      Block1
            '            Layer
            '                      Layer1
            '                      Layer2
            '            Attribute
            '                      Attribut1
            '                      Attribut2
            '            SUB-BLOKS
          Set AttributNode = TreeView.Nodes.Add(AttributeNode.key, tvwChild, AttributeNode.key & "\" & Entity.TagString, Entity.TagString)
          AttributNode.Tag = "ATTRIBUT"
        End If

        If Entity.ObjectName = "AcDbBlockReference" Then
          ' Wenn Block in Block
          Set SubBlockDef = ThisDrawing.Blocks(Entity.Name)
            ' ---------------------------
            ' Blöcke
            '      Block1
            '            Layer
            '                      Layer1
            '                      Layer2
            '            Attribute
            '                      Attribut1
            '                      Attribut2
            '            SUB-BLOCKS
            '                      SubBlock1
            ' Rekursiv die Blockdefinitionen untersuchen
            FillBlockInfo SubBlockNode, SubBlockDef, Ebene + 1
            ' ---------------------------
            ' Blöcke
            '      Block1
            '            Layer
            '                      Layer1
            '                      Layer2
            '            Attribute
            '                      Attribut1
            '                      Attribut2
            '            SUB-BLOCKS
            '                      SubBlock1
            '                              Layer
            '                              Attribute
            '                              Sub-Blocks
            '                                        Block1....
        End If
        ' Fehlerbehandlung für gleichen Layernamen (nur ein Eintrag erforderlich)
        On Error Resume Next
    Next Entity

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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