Insert a Note Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open a drawing document.
'
' Postconditions: A geometric tolerance symbol is inserted at the specified
'                 location.
'----------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Sub main()

        Dim Part As ModelDoc2
        Dim Annotation As Annotation
        Dim Note As Note
        Dim boolstatus As Boolean
        Dim longstatus As Integer

        Part = swApp.ActiveDoc
        Note = Part.InsertNote("<MOD-CL>")

        If Not Note Is Nothing Then
            Note.Angle = 0
            boolstatus = Note.SetBalloon(0, 0)

            Annotation = Note.GetAnnotation()

            If Not Annotation Is Nothing Then
                longstatus = Annotation.SetLeader3(0, 0, True, True, False, False)
                boolstatus = Annotation.SetPosition(0.1038962799325, 0.135343450253, 0)
            End If

        End If

        Part.ClearSelection2(True)
        Part.WindowRedraw()

    End Sub

  
    Public swApp As SldWorks


End Class