This is a simple macro I recorded
What I want to do here is
1) how to let the user select a setpoint at runing or current position of the SolidWorks cursor
2) the user can keep adding notations without rerun the macro
any help, pls
Thx, Chris




Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager

Dim Note As Object
Dim Annotation As Object
Dim TextFormat As Object
Set Note = Part.InsertNote("")
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.329949345597, -0.04584111233276, 0)
boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

End SubSolidworksApi macros