Wanted: filter fields out in a selection set. DXF Code for FIELDS?

Why not just

On Error Resume Next
ThisDrawing.SelectionSets.Item(SSetName).Delete
err.Clear
Set CreateSSet = ThisDrawing.SelectionSets.Add(SSetName)


--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica

My suggestion:

Public Function CreateSSet(SSetName As String) As AcadSelectionSet
Dim SSetObj As AcadSelectionSet
Dim SSetExists As Boolean

SSetExists = False
For Each SSetObj In ThisDrawing.SelectionSets
If SSetObj.Name = SSetName Then
SSetExists = True
Exit For
End If
Next
If SSetExists = True Then ThisDrawing.SelectionSets.Item(SSetName).Delete
Set CreateSSet = ThisDrawing.SelectionSets.Add(SSetName)
End Function

Regards,
Maksim Sestic

 

It happens more often than we think it will
specially if the user is running other apps
that apply the same technique

 

Here's my 2 cents. I always use the delete method of the selection set when I have finished with it. I also have a Selection Set Function I use for simplification of creating selection sets. This function always creates a new selection set and I have never had any problems simply because I delete selection sets as soon as I am finished with them.
Regards - Nathan