Balloon order HELP SW2008 SP3.1

[adn1975]

Is there a way, on a stacked balloon, to put the item numbers in order? SW orders them default by the order you select the components. I would like to re-order so they are ascending numerically without having to pick them in order.

 

[handleman]

Not that I can see. If this is really important to you it could be done with a macro. However, the macro would work by looking at the balloon values and what they are attached to, deleting all the balloons, and re-selecting them in the proper order.

-handleman, CSWP (The new, easy test)

 

[handleman]

Yuck, this one's sort of messy. Maybe I'll clean it up one day. This deletes all the balloons in the stack except for the lowest numbered balloon. This preserves the balloon location, stack direction, size, fonts, etc. It then adds to stack all the ones it didn't delete, in the order that they should appear.

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swNote As SldWorks.Note
Dim swBstack As SldWorks.BalloonStack
Dim swSelMgr As SldWorks.SelectionMgr
Dim bStackDir As Long
Dim bStackFit As Long
Dim StackMembers As Variant
Dim bLength As Long
Dim aStackText() As String
Dim AttachedEnts As Variant
Dim aStackEnts() As SldWorks.Entity
Dim CurTextPoint As Variant
Dim LowStackNum As Long

Dim i As Long
Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swSelMgr = swDoc.SelectionManager

If swSelMgr.GetSelectedObjectCount <> 1 Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelNOTES Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

Set swNote = swSelMgr.GetSelectedObject6(1, -1)
swDoc.ClearSelection2 True
If swNote.IsStackedBalloon = False Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

Set swBstack = swNote.GetBalloonStack
StackMembers = swBstack.Stack
bStackDir = swBstack.Direction
bLength = swBstack.Length
bStackFit = swBstack.Master.GetBalloonSize
CurTextPoint = swBstack.Master.GetTextPoint2

ReDim aStackText(1, 0)
aStackText(0, 0) = swBstack.Master.GetText
aStackText(1, 0) = "0"

ReDim aStackEnts(0)
AttachedEnts = swBstack.Master.GetAnnotation.GetAttachedEntities
Set aStackEnts(0) = AttachedEnts(0)

For i = 1 To (UBound(StackMembers) + 1)
    ReDim Preserve aStackText(1, i)
    Set swNote = StackMembers(i - 1)
    aStackText(0, i) = swNote.GetText
    aStackText(1, i) = i
    
    ReDim Preserve aStackEnts(i)
    AttachedEnts = StackMembers(i - 1).GetAnnotation.GetAttachedEntities
    Set aStackEnts(i) = AttachedEnts(0)
Next i

'Debug.Print "Pre-sort"
'For i = 0 To UBound(aStackText, 2)
'    Debug.Print aStackText(0, i), aStackText(1, i)
'Next i
aSort aStackText

LowStackNum = aStackText(1, 0)
If LowStackNum <> 0 Then
    swBstack.Master.GetAnnotation.Select False
End If
For i = 0 To UBound(StackMembers)
    If i + 1 <> LowStackNum Then
        StackMembers(i).GetAnnotation.Select True
    End If
Next i
swDoc.DeleteSelection False
'Debug.Print "Post-sort"
'For i = 0 To UBound(aStackText, 2)
'    Debug.Print aStackText(0, i), aStackText(1, i)
'Next i


For i = 1 To UBound(aStackText, 2)
    aStackEnts(CLng(aStackText(1, i))).Select False
    swBstack.AddTo swBalloonTextItemNumber, "", swBalloonTextItemNumber, ""
Next i

swDoc.EditRebuild3
End Sub

Private Sub aSort(ByRef myArray As Variant)
Dim tmpVal1 As String
Dim tmpVal2 As String
Dim bMoved As Boolean
Dim i As Long

bMoved = True

While bMoved
    bMoved = False
    For i = 1 To UBound(myArray, 2)
        If myArray(0, i) < myArray(0, i - 1) Then
            bMoved = True
            tmpVal1 = myArray(0, i - 1)
            tmpVal2 = myArray(1, i - 1)
            myArray(0, i - 1) = myArray(0, i)
            myArray(1, i - 1) = myArray(1, i)
            myArray(0, i) = tmpVal1
            myArray(1, i) = tmpVal2
            Exit For
        End If
    Next i
Wend
End Sub

-handleman, CSWP (The new, easy test)

 

[smcadman]

Just an FYI, here is how you do it without a macro:

Step 1:

http://www.paul-flores.com/solidworks_screenshots/table_1.jpg

Step 2:

http://www.paul-flores.com/solidworks_screenshots/table_2.jpg

Flores

 

[handleman]

Paul,
I don't think that quite matches the question. The OP wanted to change the order of balloons in a stacked balloon, not change the item numbers/sort order in the BOM. See attached pic....

-handleman, CSWP (The new, easy test)

 

[adn1975]

That is correct Handleman....I don't want to re-order the bill, just the balloons. Now after using the software for 9 years, i have to use my first macro....I'm sure i can figure it out, with the help of this forum of course...

Thanks again for all your help.

 

[adn1975]

Okay, I just ran my first Macro!!!! Low it behold it works, WELL kinda works. It orders them by the first balloon number. It puts ballon in order like this, 5 6 6 4 2 13 15. see attached.

Handleman, can this be fixed?

 

[smcadman]

Oops, hey it's Friday, maybe I'm focusing on 5:00 too much...

Flores

 

[ctopher]

I like having them in order of assembly. It makes sense to the assembly workers.

Chris
SolidWorks/PDMWorks 08 3.1
AutoCAD 06/08
ctopher's home (updated Apr 30, 2008)

 

[handleman]

Oops, I sorted by string rather than number. When considered as a string, 13 comes before 3. Below are the changes to sort numerically.

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swNote As SldWorks.Note
Dim swBstack As SldWorks.BalloonStack
Dim swSelMgr As SldWorks.SelectionMgr
Dim bStackDir As Long
Dim bStackFit As Long
Dim StackMembers As Variant
Dim bLength As Long
Dim aStackText() As String
Dim AttachedEnts As Variant
Dim aStackEnts() As SldWorks.Entity
Dim CurTextPoint As Variant
Dim LowStackNum As Long

Dim i As Long
Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swSelMgr = swDoc.SelectionManager

If swSelMgr.GetSelectedObjectCount <> 1 Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelNOTES Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

Set swNote = swSelMgr.GetSelectedObject6(1, -1)
swDoc.ClearSelection2 True
If swNote.IsStackedBalloon = False Then
    MsgBox "Please select one stacked balloon and try again."
    Exit Sub
End If

Set swBstack = swNote.GetBalloonStack
StackMembers = swBstack.Stack
bStackDir = swBstack.Direction
bLength = swBstack.Length
bStackFit = swBstack.Master.GetBalloonSize
CurTextPoint = swBstack.Master.GetTextPoint2

ReDim aStackText(1, 0)
aStackText(0, 0) = swBstack.Master.GetText
aStackText(1, 0) = "0"

ReDim aStackEnts(0)
AttachedEnts = swBstack.Master.GetAnnotation.GetAttachedEntities
Set aStackEnts(0) = AttachedEnts(0)

For i = 1 To (UBound(StackMembers) + 1)
    ReDim Preserve aStackText(1, i)
    Set swNote = StackMembers(i - 1)
    aStackText(0, i) = swNote.GetText
    aStackText(1, i) = i
    
    ReDim Preserve aStackEnts(i)
    AttachedEnts = StackMembers(i - 1).GetAnnotation.GetAttachedEntities
    Set aStackEnts(i) = AttachedEnts(0)
Next i

'Debug.Print "Pre-sort"
'For i = 0 To UBound(aStackText, 2)
'    Debug.Print aStackText(0, i), aStackText(1, i)
'Next i
aSort aStackText

LowStackNum = aStackText(1, 0)
If LowStackNum <> 0 Then
    swBstack.Master.GetAnnotation.Select False
End If
For i = 0 To UBound(StackMembers)
    If i + 1 <> LowStackNum Then
        StackMembers(i).GetAnnotation.Select True
    End If
Next i
swDoc.DeleteSelection False
'Debug.Print "Post-sort"
'For i = 0 To UBound(aStackText, 2)
'    Debug.Print aStackText(0, i), aStackText(1, i)
'Next i


For i = 1 To UBound(aStackText, 2)
    aStackEnts(CLng(aStackText(1, i))).Select False
    swBstack.AddTo swBalloonTextItemNumber, "", swBalloonTextItemNumber, ""
Next i

swDoc.EditRebuild3
End Sub

Private Sub aSort(ByRef myArray As Variant)
Dim tmpVal1 As String
Dim tmpVal2 As String
Dim bMoved As Boolean
Dim i As Long

bMoved = True

While bMoved
    bMoved = False
    For i = 1 To UBound(myArray, 2)
        If CLng(myArray(0, i)) < CLng(myArray(0, i - 1)) Then
            bMoved = True
            tmpVal1 = myArray(0, i - 1)
            tmpVal2 = myArray(1, i - 1)
            myArray(0, i - 1) = myArray(0, i)
            myArray(1, i - 1) = myArray(1, i)
            myArray(0, i) = tmpVal1
            myArray(1, i) = tmpVal2
            Exit For
        End If
    Next i
Wend
End Sub

-handleman, CSWP (The new, easy test)

 

[adn1975]

I prefer to put them in order of assembly also. How ever certain engineers/design approvers, when they can't find anything wrong with the design they tend to pick on ticky tacky things.....

Works great thank you.