AnsweredAssumed Answered

Editing existing text notes in a drawing

Question asked by Jeffrey Yeh on Jan 17, 2012
Latest reply on Feb 8, 2018 by Gaurav Bhonsule

I am trying to write a macro that will go into my drawings and edit an existing text note. This annotation is not attached to any drawing views; When using the macro recorder to try and see what API calls are used, the editing portion is not recorded. For example, in the following code generated from the Macro Recorder, I first created a text note "This is a text note". I then reselected the text note and changed its value to "This is a sample text note". However, this edit is not recorded in the macro. I was wondering if any of you out there know if there is an API call that I can use to edit the text note's value after it has already been created.

 

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

 

Sub main()

     Set swApp = Application.SldWorks

   

     Set Part = swApp.ActiveDoc
     Dim myModelView As Object
     Set myModelView = Part.ActiveView
     myModelView.FrameState = swWindowState_e.swWindowMaximized

    

     Dim myNote As Object
     Dim myAnnotation As Object
     Dim myTextFormat As Object
     Set myNote = Part.InsertNote("This is a text note")
     If Not myNote Is Nothing Then
        myNote.Angle = 0
        boolstatus = myNote.SetBalloon(0, 0)
        Set myAnnotation = myNote.GetAnnotation()
        If Not myAnnotation Is Nothing Then
             longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, True)
             boolstatus = myAnnotation.SetPosition(0.1791476075924, 0.2016534633028, 0)
             boolstatus = myAnnotation.SetTextFormat(0, True, myTextFormat)
        End If
     End If
     Part.ClearSelection2 True
     Part.WindowRedraw

     boolstatus = Part.Extension.SelectByID2("DetailItem38@Sheet1", "NOTE", 0.2090247176842, 0.1981793807339, 0, False, 0, Nothing, 0)
    

     'I believe the API call to edit the text of the note to "This is a sample text note" should appear at this point?
    

     Part.ClearSelection2 True
End Sub

 

The results of the macro are shown below

drawing text note.jpg

Outcomes