Insert a Note Example (VBA)

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

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

Option Explicit

Sub main()

Dim swApp As SldWorks.SldWorks

Dim Part As ModelDoc2

Dim Annotation As Annotation

Dim Note As 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.SetLeader2(False, 0, True, True, False, False)

      boolstatus = Annotation.SetPosition(0.1038962799325, 0.135343450253, 0)

   End If

End If

Part.ClearSelection2 TRUE

Part.WindowRedraw

End Sub