---

...Und noch ein Problem...

Ich habe in meiner Zeichnung Polylinien und Texte die XData enthalten. Diese Elemente liegen auf dem Layer "Ansichtsfenster_Auto". Der unten aufgeführte Filter wählt nur die Polylinien aus, nicht die Texte. Wo liegt hier der Fehler? Das gleiche Problem habe ich auch bei Blöcken.

   
    Dim REgpCode(6) As Integer
    Dim REdataValue(6) As Variant
    Dim ssetRE As AcadSelectionSet
    Dim AcEntity As AcadEntity
 

    With ThisDrawing
           
        REgpCode(0) = 8:        REdataValue(0) = "Ansichtsfenster_Auto"
        REgpCode(1) = 1001:    REdataValue(1) = "String_Anhang"
        REgpCode(2) = 1000:    REdataValue(2) = AfXData
        REgpCode(3) = -4:      REdataValue(3) = "<or"
        REgpCode(4) = 0:        REdataValue(4) = "LWPolyLine"
        REgpCode(5) = 0:        REdataValue(5) = "Text"
        REgpCode(6) = -4:      REdataValue(6) = "or>"
       

mode = acSelectionSetAll
            On Error Resume Next
    '##################################################
        For Each ssetRE In ThisDrawing.SelectionSets
            If ssetRE.Name = "SETREAktual" Then
                ssetRE.Delete
            End If
        Next ssetRE

        Set ssetRE = ThisDrawing.SelectionSets.Add("SETREAktual")
        On Error GoTo 0
        ssetRE.Select mode, , , REgpCode, REdataValue
    End With

Vielen Dank für Eue Hilfe im Voraus!!!!

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

---

Weil du dich ggf. irrst und du überhaupt keine TEXTelemente hast ?
Evtl. nutzt du nur MTEXTe ?

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Hallo cadffm und danke für die schnelle Antwort.

Ich habe wirklich Texte, wenn ich den Filter für die XData rausnehme werden alle in Frage kommenden Elemente richtig ausgewählt.

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

---

Du kannst nicht auf Teile der ExtEntData filtern, maximal auf den Applicationname-Eintrag (aber eben nix darunter).
Noch ne Kleinigkeit statt des <OR ... OR> im Filter: das geht auch so:
REgpCode(3) = 0: REdataValue(3) = "LWPolyLine,Text"

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

---

Hallo Manfred,

besten Dank, sehr guter Tipp! Ich frage mich trotzdem warum ich die Polylinien auf diesem Wege wählen kann und die Texte nicht... Hängt es eventuell damit zusammen, dass mehrere XData auf dem Code 1000 liegen?
Hier mal die Daten des Textes aus AutoCAD ausgelesen mit XDLIST

* Registered Application Name: AcadAnnotative
* Code 1000, ASCII string: AnnotativeData
* Code 1002, Starting or ending brace: {
* Code 1070, 16-bit integer: 1
* Code 1070, 16-bit integer: 1
* Code 1002, Starting or ending brace: }

* Registered Application Name: String_Anhang
* Code 1000, ASCII string: AF-1-MSTB-1_10|FDF9

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