---

Hallo.

ich habe das Problem, das ich es nicht hinbekomme, beim Programmstart nachzufragen, ob ein Auswahlsatz schon vorhanden ist und wenn ja, zu löschen.
Zur Zeit mache ich es so:

ThisDrawing.SelectionSets.Add ("SS1")
Set AusWa = ThisDrawing.SelectionSets("SS1")

Beim Beenden wird der Satz gelöscht:
Private Sub Ende_Click()
AusWa.Delete
Unload Me
End Sub

Wenn das Programm aber jetzt zwischendurch abgebrochen wird, bekomme ich beim nächsten Start immer die Fehlermeldung, das der Satz schon vorhanden ist.
Irgendwo hatte ich mal gesehen, wie man das macht, ich komme aber einfach nicht drauf.
Also beim Start einfach nachschauen, ob der Satz exitiert, wenn ja löschen und dann einen Neuen erstellen.

Gruß Ralf33

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

---

Hallo Ralf,

Schau dir mal diesen Beitrag an. Dort ist es recht gut Beschrieben.

Gruß, Carsten

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

---

Hallo Carsten,

besten Dank für deine Antwort.
Leider kann ich beide Methoden, die da beschrieben werden nicht nachvollziehen. (die zweite Methode funktioniert nicht, die erste begreife ich nicht :-)
Gibt es nich eine einfache Methode, beim Neustart des Programmes alle eventuell noch vorhandenen Auswahlsätze zu löschen.

Ich habe jetzt ers einmal die fehlermeldung mit:
On Local Error Resume Next
Ausgeschaltet. Ist sicher aber keine elegante Lösung.

Gruß Ralf33

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

---

Hallo Ralf,

Hier nochmal die Funktion aus dem Link(Ein wenig abgewandelt):

Sub test()
CreateSelectionSet ("SS1") 'Benötigten Selectionset zur Funktion übergeben.
End Sub

Public Function CreateSelectionSet(Optional ssName As String = "SS") As AcadSelectionSet
    Dim sset As AcadSelectionSet
        For Each sset In ThisDrawing.SelectionSets'Alle Selectionsets durchlaufen
          If sset.Name = ssName Then 'Wenn Selectionset mit angegebenem Namen vorhanden, dann...
            ThisDrawing.SelectionSets.Item(ssName).Delete 'Vorhandenen Selectionset löschen
            Exit For
          End If
        Next
    Set sset = ThisDrawing.SelectionSets.Add(ssName) 'Selectionset erstellen
End Function

Die Funktion durchläuft die vorhandenen Selectionsets und löscht bei Bedarf den Selectionset, wenn er vorhanden ist. Danach wird der Selectionset neu erstellt.

Ich denke, so sollte es einigermaßen verständlich sein.

Gruß, Carsten

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

---

Hallo Carsten,

vielen Dank jetzt habe ich es begriffen und es hat auch funktioniert !

Schönes Wochenende und frohe Pfingsten.

Gruß Ralf33

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