Set BOM Balloon Text Example (VBA)

This example shows how to set the text in a BOM balloon with custom text.

'---------------------------------------------------

'

' Preconditions: Drawing document is open and a balloon

                 with custom text is selected.

'

' Postconditions: None

'

'----------------------------------------------------

Option Explicit

Public Enum swDetailingNoteTextContent_e

    swDetailingNoteTextCustom = 1

    swDetailingNoteTextItemNumber = 2

    swDetailingNoteTextQuantity = 3

End Enum

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.modelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swNote                      As SldWorks.note

    Dim swAnn                       As SldWorks.Annotation

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swNote = swSelMgr.GetSelectedObject5(1)

    Set swAnn = swNote.GetAnnotation

    Debug.Assert swNote.IsBomBalloon

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Name                 = " & swAnn.GetName

    Debug.Print "    Upper text         = " & swNote.GetBomBalloonText(True) & " [" & swNote.GetBomBalloonTextStyle(True) & "]"

    Debug.Print "    Lower text         = " & swNote.GetBomBalloonText(False) & " [" & swNote.GetBomBalloonTextStyle(False) & "]"

    ' Append new text to existing text if balloon has custom text

    bRet = swNote.SetBomBalloonText( _

                swNote.GetBomBalloonTextStyle(True), _

                swNote.GetBomBalloonText(True) & " Lower", _

                swNote.GetBomBalloonTextStyle(False), _

                swNote.GetBomBalloonText(False) & " Upper"): Debug.Assert bRet

End Sub

'---------------------------------------------------