Topic: incrementing group names

[ELOQUINTET]

i don't have that much knowledge of using groups but a coworker of mine is looking for a way to be able to incrementally name his groups. he wants to be able to open a drawing and it would read the last group suffix example: group 5. if he were to create a new group it would be named group 6. it would behave the same way if he were to copy that group or if he were to paste in a group from another drawing. i'm just wondering how one might acheive this via lisp or perhaps vba?

[MP]

You could just use anonymous group names and have a reactor rename them behind the scenes to suit, but it wouldn't be a trivial little exercise.

[Bob Wahr]

really limited testing but this should get you well on your way

Code: [Select]

Sub Fishies()
Dim objGroup As AcadGroup
Dim objGroups As AcadGroups
Dim intGroup As Integer
Dim intTemp As Integer
Dim objSelSet As AcadSelectionSet
Dim objSelSets As AcadSelectionSets
Dim entGrouped() As AcadEntity

On Error GoTo ErrorControl
 
  Set objSelSets = ThisDrawing.SelectionSets
  Set objGroups = ThisDrawing.Groups
  KillSet "Grouper"
 
  Set objSelSet = objSelSets.Add("Grouper")
    objSelSet.SelectOnScreen
 
  For Each objGroup In objGroups
    intTemp = Right(objGroup.Name, 1)
    If intTemp > intGroup Then
      intGroup = intTemp
    End If
  Next objGroup
  ReDim entGrouped(0 To objSelSet.Count - 1)
  For intTemp = 0 To UBound(entGrouped)
    Set entGrouped(intTemp) = objSelSet.Item(intTemp)
  Next intTemp
 
  Set objGroup = objGroups.Add(intGroup + 1)
  objGroup.AppendItems entGrouped

ExitHere:
Exit Sub

ErrorControl:
  Select Case Err.Number
    Case Else
      MsgBox "''" & Err.Description & "'' error has occured in Fishies" & vbCrLf
      GoTo ExitHere
  End Select
 
End Sub


Function KillSet(strSet As String)
  Dim objSelSet As AcadSelectionSet
  Dim objSelSets As AcadSelectionSets
 
  Set objSelSets = ThisDrawing.SelectionSets
     
  For Each objSelSet In objSelSets
    If objSelSet.Name = strSet Then
      ThisDrawing.SelectionSets.Item(strSet).Delete
    Exit For
    End If
  Next

End Function


[ELOQUINTET]

yeah didn't sound like a very simple matter to me either. i was just wondering what your thoughts on it would be.

[Bob Wahr]

Damn, I feel a bit like the invisible man here.

[MP]

Sorry Bob. Didn't run it but it looks like it would work to me, tho the group name would only be a number (maybe I'm wrong), whereas I think he wanted "name" + number. Nonetheless, certainly a good starting point.

[Bob Wahr]

No need to say sorry MP, it wasn't you who completely ignored my post.
All he would have to do for name +# is strip the right X places off of the name and replace with the number.

[MP]

Nodding. It happens but it's rarely malicious. Dan's a good egg, maybe he's still processing it.

/guess

[Bob Wahr]

I'm sure it's not malicious.  I appologize for the tone of my post.  It's been a pretty messed up week which has thinned my skin considerably.  I'll do my best to stick to the "If you can't say anything nice..." rule.

[MP]

No worries Bob, no harm, no foul. Hope the worst is behind you.

PS: My skin has been thinned so many times I can see my internals; ackkk.

[JohnK]

Bob, would it help if i insult you a bit?

[Bob Wahr]

Probably not today.  You never did that snow thing for me anyway so I don't like you.

[ELOQUINTET]

o i'm sorry bob didn't mean to snub you i've just been very busy and just kind of threw the question out there to see what the responcses would be. it's not my project so it's not really on my mind. i appreciate everyones time and effort. o yeah and mp likes me he reallllly likes me. it's friday man almost over virtual beer for everone ahhhh yum

[MP]

I was just sayin' to Mark that we don't get enough Sally Field impressions 'round here.

/technicolor yawn

[JohnK]

What snow thing?! *blink* Oh.... CRAP!? I forgot all about that!  *snicker!*