VB group codes for Groups

[rocheey]

Im attempting to try the filterdata on a selection set.
Straightforward enough for graphic entities; but how could i filter for a "Group" object itself?

 

[TCARPENTER]

Hi rocheey,

You don't. Use this utility I've adapted from my faq687-5792 :

Public Function vbdPowerGroup(strName As String) As AcadGroup
  '
  ' *** vbdPowerGroup ***
  '
  ' Function to add a new group by name, and check
  ' for an existing group.
  '
  Dim objGrp As AcadGroup
  Dim objGrpCol As AcadGroups
  Set objGrpCol = AcadDoc.Groups
    For Each objGrp In objGrpCol
      If objGrp.Name = strName Then
        objGrpCol.Item(strName).Delete
        Exit For
      End If
    Next
  Set objGrp = objGrpCol.Add(strName)
  Set vbdPowerGroup = objGrp
End Function

HTH
Todd