Add Autoballoon to Face (VBA)

This example adds an autoballoon to a face in a drawing view.

'-------------------------------------
' Preconditions:
'   Specified drawing document exits.
'
' Postconditions:
' 1. Specified drawing document is opened.
' 2. An autoballoon is attached to a face
'    in the selected drawing view.
' 3. Interactively zoom in where
'    the balloon was attached to
'    verify that it was attached to
'    a face.
'
' NOTE: Because this drawing is used in a
' a SolidWorks tutorial, do not save any
' changes when closing the document.
'--------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swDraw                  As SldWorks.DrawingDoc
    Dim swModelDocExt           As SldWorks.ModelDocExtension
    Dim drawing                 As String
    Dim errors                  As Long
    Dim warnings                As Long
    Dim status                  As Boolean
    Dim notes                   As Variant

    Set swApp = Application.SldWorks
    drawing = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw"
    Set swModel = swApp.OpenDoc6(drawing, swDocDRAWING, swOpenDocOptions_Silent, "", errors, warnings)
    Set swDraw = swModel
    Set swModelDocExt = swModel.Extension
    

    ' Select a view in the drawing
    status = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.2186798453432, 0.2744441083077, 0, False, 0, Nothing, 0)

   ' Insert a split-circle autoballoon,
   ' using the document's default upper-text
   ' and lower-text content, and
   ' attach balloon to a face
    notes = swDraw.AutoBalloon4(swDetailingBalloonLayout_Square, False, swBS_SplitCirc, swBF_5Chars, -1, "", -1, "", "FORMAT", True)
   

End Sub