---

Hallo,
ich benötige dringend Hilfe bei folgendem Problem:
Ich wähle mir aus einer DWG Blöcke (Block-Referenzen) aus und schreibe diese in einen Auswahlsatz. Aus diesem Auswahlsatz lese ich nun die Attribute (TextString + TagString) in eine Listenansicht (ListView). Ich benötige zur genaueren Unterscheidung der Attribute jedoch noch die Eingabeaufforderung (PromptString). Kann ich aus Block-Referenzen überhaupt die Eingabeaufforderung auslesen? Wie kann das Problem gelöst werden?

Hier ein Auszug aus dem Code:

    For Each ent In sset                                                    If ent.EntityName = "AcDbBlockReference" Then                          BlFound = True
            If ent.HasAttributes Then
                AttFound = True
                BlName = ent.Name                                  ' Blockname
                AttArray = ent.GetAttributes                        ' Array mit Attributen werden eingelesen
                AnzAttr = UBound(AttArray)                          ' Attribut-Anzahl
                For Count = LBound(AttArray) To UBound(AttArray)    ' Elemente aus AttArray werden in Listenansicht eingelesen
                    If StrComp(AttArray(Count).EntityName, "AcDbAttribute", 1) = 0 Then
                        AttTagString = AttArray(Count).TagString
                        AttTextString = AttArray(Count).TextString
                        Set listView = frmAttBearb.LvAttribute.ListItems.Add()
                        listView.Text = AttTagString
                        listView.SubItems(1) = AttTextString
                        listView.SubItems(3) = BlName
                    End If
                Next Count
            End If
        End If
    Next ent

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

---

Du musst den Block (Acadblock) nehmen, dort die Attributes auslesen. Dort bekommst du die Eingabeaufforderung her.

Public Property Get Eingabeaufforderung() As String
    On Error GoTo Fehler
    Dim BLK As AcadBlock
    Set BLK = thisdrawing.Blocks(Blockname)
    If BLK Is Nothing Then Exit Function
    Dim iX As Integer, Nr As Integer
    For iX = 0 To BLK.Count
        If BLK.Item(iX).ObjectName = "AcDbAttributeDefinition" Then
            Nr = Nr + 1
            If Nr = AttNr Then
                Dim ATT As AcadAttribute
                Set ATT = BLK.Item(iX)
                Eingabeaufforderung = ATT.Promptstring
                Exit Property
            End If
        End If
    Next
    Exit Property
Fehler:
    MsgBox "Fehler bei der Ermittlung der Eingabeausfforderung für das Attribut (" & AttNr & ") aus dem Block (" & Me.BlockRef.Name & ")" _
    & vbCrLf & vbCrLf & Err.Description, vbCritical
    Err.Clear
End Property

Ich hoffe es hilft

------------------
Marco

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

---

Vielen Dank für Deine schnelle Hilfe.

Gruß

Wolfgang

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