Verifies that an existing group is empty, or contains no object members.
Rhino.IsGroupEmpty (strGroup)
|
strGroup |
Required. String. The name of an existing group. |
|
Boolean |
True if successful, otherwise False. |
|
Null |
On error. |
Dim arrGroups, strGroup
arrGroups = Rhino.GroupNames
If IsArray(arrGroups) Then
For Each strGroup in arrGroups
If Rhino.IsGroupEmpty(strGroup) Then
Rhino.DeleteGroup strGroup
End If
Next
End If