Check for empty

Q1. As I select a specific layer which is empty, how can I check
(1) the selection set, objSS is empty? Because objSS.count is unable to show the value.
(2) the layer is empty so that I will not perform the selection?

 

Hi anttam

If you create a named selection set you've always a count property:

Code:

Public Function MeSelectionSet(SetNme As String) As AcadSelectionSet

On Error Resume Next

With ThisDrawing.SelectionSets
Set MeSelectionSet = .Add(SetNme)
If Err.Number <> 0 Then
Err.Clear
.Item(SetNme).Delete
Set MeSelectionSet = .Add(SetNme)
End If
End With

End Function

Check GenerateUsageData method (A2k5+)

Cheers