---

Hallo zusammen,

der nachfolgende Code sollte eigendlich einen Text aus der Zeichnung löschen, der mit Test anfängt. Leider nimmt er mir garnix in die Selection sett auf. Kann mir hier jemand helfen???

Sub DeleteTextsBeginningWithSomething()
    ' Create the selection set
    On Error Resume Next
    Dim ssetObj As AcadSelectionSet
    ThisDrawing.SelectionSets.Item("SSET").Delete
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
    mode = acSelectionSetAll
   
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Text"
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    Dim corner1 As Variant, corner2 As Variant
    ssetObj.Select mode, corner1, corner2, groupCode, dataCode
   
    Dim obj As AcadObject
    Dim txtEnt As AcadText
    Dim str As String
    For Each obj In ssetObj
        Set txtEnt = obj
        str = txtEnt.textString
        If StrComp(LCase(Left(str, 4)), "test", vbTextCompare) = 0 Then
            txtEnt.Delete
        End If
    Next

------------------

cu
Heiko

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

---

Fehler gefunden!!!

Naja, nicht wirklich. Hab nur den PC neu gestartet. Jetzt geht es.

------------------

cu
Heiko

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

---

Danke für den Tipp, muss ich mir merken 

lg Nancy

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