Insert BOM Balloon Example (VBA)

This example shows how to insert a BOM balloon.

 

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

'

' Preconditions:

'            (1) Model document is open.

'            (2) Edge, silhouette, face, or vertex is selected.

'

' Postconditions: Split-circle BOM balloon is inserted at the selected object.

'

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

Option Explicit

Public Enum swBalloonStyle_e

    swBS_None = 0

    swBS_Circular = 1

    swBS_Triangle = 2

    swBS_Hexagon = 3

    swBS_Box = 4

    swBS_Diamond = 5

    swBS_SplitCirc = 6

    swBS_Pentagon = 7

    swBS_FlagPentagon = 8

    swBS_FlagTriangle = 9

    swBS_Underline = 10

End Enum

Public Enum swBalloonFit_e

    swBF_Tightest = 0

    swBF_1Char = 1

    swBF_2Chars = 2

    swBF_3Chars = 3

    swBF_4Chars = 4

    swBF_5Chars = 5

End Enum

Public Enum swBalloonTextContent_e

    swBalloonTextCustom = 0

    swBalloonTextItemNumber = 1

    swBalloonTextQuantity = 2

End Enum

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swSelComp               As SldWorks.Component2

    Dim sCompName               As String

    Dim swNote                  As SldWorks.note

    Dim swAnn                   As SldWorks.Annotation

    Dim bRet                    As Boolean

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swNote = swModel.InsertBOMBalloon2( _

                    swBS_SplitCirc, swBF_Tightest, _

                    swBalloonTextCustom, "Upper text", _

                    swBalloonTextCustom, "Lower text")

End Sub

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