Insert a Note Example (VBA)

This example shows show to insert a note, specifically a geometric tolerance symbol, in an active drawing document.

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

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim Part As SldWorks.ModelDoc2
    Dim Annotation As SldWorks.Annotation
    Dim Note As SldWorks.Note
    Dim boolstatus As Boolean
    Dim longstatus As Long
   

    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
    Set Note = Part.InsertNote("<MOD-CL>")
   

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

       Set 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