Add Autoballoon to Face (VB.NET)

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.
'--------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swModel As ModelDoc2
        Dim swDraw As DrawingDoc
        Dim swModelDocExt As ModelDocExtension
        Dim drawing As String
        Dim errors As Integer
        Dim warnings As Integer
        Dim status As Boolean
        Dim notes As Object

        drawing = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw"
        swModel = swApp.OpenDoc6(drawing, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
        swDraw = swModel
        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(swBalloonLayoutType_e.swDetailingBalloonLayout_Square, False, swBalloonStyle_e.swBS_SplitCirc, swBalloonFit_e.swBF_5Chars, -1, "", -1, "", "FORMAT", True)


    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class