Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
VB group codes for Groups
- Thread starter rocheey
- Start date
TCARPENTER
Programmer
Hi rocheey,
You don't. Use this utility I've adapted from my faq687-5792 :
HTH
Todd
You don't. Use this utility I've adapted from my faq687-5792 :
Code:
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 FunctionHTH
Todd
- Status
Similar threads
- Locked
- Question