Good morning guys -

How would I go about getting the current position of the SolidWorkscursor? I have a macro that I put together that inserts text at aspecific location. How could I change my code to read the locationof the cursor, and input the text at that location?


Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim feature As Object
Dim NoteText As String
Dim Annotation As Object
Dim TextFormat As Object
Dim Note1 As Object
Private Sub Create_Click()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
'boolstatus = Part.ActivateView("Drawing View1")
NoteText = UCase(" " & Form1.Note.Text & " ")
Set Note1 = Part.InsertNote(NoteText)
Note1.Angle = 0
boolstatus = Note1.SetBalloon(8, 0)
Set Annotation = Note1.GetAnnotation()
longstatus = Annotation.SetLeader2(False, 0, True, False, False,False)
'''''''''''''Text insertion point defined here
boolstatus = Annotation.SetPosition(0.06533629508197,0.1862069836066, 0)
boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
Part.ClearSelection2 True
Part.WindowRedraw
Form1.Note.Text = ""
Set SelMgr = Nothing
Set Part = Nothing
Set swApp = Nothing
Form1.Hide
End Sub

Thanks!SolidworksApi macros