---

Wenn ich in einer Zeichnung Blöcke mit Attributen habe, ist es mir möglich von der Blockreferenz (AcadBlockReference) auf die Attribute zuzugreifen. Ich möchte nun aber mittels eines SelectionSet Attribute mit einem bestimmten Namen ändern.
Nun kann ich durch alle Blockreferenzen laufen (DXF Code "INSERT") und dann durch alle Attribute laufen, um das Entsprechende zu finden. Das scheint mir aber von der Performance nicht optimal (große Zeichnung enthällt viele Blockreferenzen). Ich kann aber auch nicht nach "ATTRIB" Selektieren, da kommen keine Entities zurück.
Code Bsp1:
    Dim Entity As AcadEntity
    Dim SelSet As AcadSelectionSet
    Set SelSet = mDoc.SelectionSets.Add("All_Attributes")
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
    FilterType(0) = 0
    FilterData(0) = "ATTRIB" 'Select all AcDbAttributeReference
    'add filter for attribute name here
    SelSet.Select acSelectionSetAll, ,FilterType, FilterData
   
    Dim Attref As AcadAttributeReference

    For Each Entity In SelSet
      Set Attref = Entity
      (...)
    Next
    SelSet.Delete

Gibt es eine Möglichkeit die Selektion nach Blöcken zu verschachteln (Selektiere die Blöcke die ein Attribut mit dem Namen "x" enthalten) oder kann man auf eine andere Weise nach ATTRIB suchen?

------------------
Marc Reiter
REITEC GbR
Eberdingen-Nussdorf

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

---

Wie wäre es damit:

Code:

---

    Const TagString As String = "Test"
    Dim objBlk As AcadBlock
    Dim colBlks As AcadBlocks
    Dim objBlkEntity As AcadEntity
    Dim strNamesFilter As String
    Dim objAttribute As AcadAttribute
   
    Dim SS As AcadSelectionSet
    Dim FltTypes(1) As Integer
    Dim FltData(1) As Variant

    Set colBlks = ThisDrawing.Blocks
   
    For Each objBlk In colBlks
        For Each objBlkEntity In objBlk
            If TypeOf objBlkEntity Is AcadAttribute Then
                Set objAttribute = objBlkEntity
                If UCase(objAttribute.TagString) = TagString Then
                  strNamesFilter = strNamesFilter & objBlk.Name & ","
                  Exit For
                End If
            End If
        Next objBlkEntity
    Next objBlk

    Set SS = CreateSelectionSet("SS")

    FltTypes(0) = 0: FltData(0) = "INSERT"
    FltTypes(1) = 2: FltData(1) = strNamesFilter
   
    ' Selectionset erstellen, Benutzer fragen und Filter anwenden
    SS.Clear
    SS.SelectOnScreen FltTypes, FltData

---

Der Code ist auch recht schnell wenn du sehr viele Blöcke in deiner Zeichnung hast

------------------
Roland

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

---

Ich suche auch schon lange nach einer eleganteren Möglichkeit, gibts aber leider nicht. Die Blöcke einzeln zu durchsuchen, dauert bei großen zeichnungen manchmal schon ätzend lang - aber es hilft nichts, Rolands Weg ist meines Wissens der Einzige

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