Delete all named selection sets

[mdhutchinson]

How can I delete all named selection sets from a drawing?
I tried a simple interation thru the collection to do it and I crashed AutoCAD.

[Anonymous]

Have you tried

If ThisDrawing.SelectionSets.Count > 0 Then
While ThisDrawing.SelectionSets.Count > 0
ThisDrawing.SelectionSets.Item(ThisDrawing.SelectionSets.Count - 1).Delete
Wend
End If

[mdhutchinson]

I am currently using:
[code]
Dim ssSelSets As AcadSelectionSets
Dim ssSelSet As AcadSelectionSet
Dim i As Integer
For i = (ssSelSets.Count - 1) To 0 Step -1
Set ssSelSet = Application.ActiveDocument.SelectionSets(i)
ssSelSet.Delete
Next i
'===============
But it looks yours is better. I tweeked it a bit:

While ThisDrawing.SelectionSets.Count > 0
ThisDrawing.SelectionSets.Item(0).Delete
Wend
[/code]
many thanks!

[mdhutchinson]

okay... next question:

It seems that I can:

Set MySelSet = Nothing
but the selection set can still be retrieved via the name property?... is this correct?
... although
If I delete the selection set of a given name... the variable is destroyed... correct?

[Anonymous]

I am not a pro, so take this with a grain of salt. When you set your variable to nothing, e.g. Set MySelSet = Nothing, you are just removing the pointer to the selectionset object, it still exist in the selectionset collection. However, when you delete the object, the variable has nothing to point to, so it is not available.

[Anonymous]

it depends on the nature of the object you are pointing to.
an object may have many variables pointing on it, and there is a counter of them. when last variable pointing to object is removed [either by going out of the scope or changing value fe setting to nothing], the runtime sends request to object to delete himself [each object has some kind of constructor and destructor methods]. now, it depends on the object should it accept request for self-deleting or not. usualy such non-self-deleting objects have special "delete" method that you must separately call to delete such object

[Anonymous]

You deserve a medal for this sub routine.

THANK YOU!!!

[Anonymous]

I use the similar one

Dim oSset As AcadSelectionSet
With ThisDrawing.SelectionSets
While .Count > 0
.Item(0).Delete
Wend
Set oSset = .Add("NewOne")
End With

~'J'~