Is there a method to change the extents of a note? I am trying to insert a really long multi-line note. The current note goes waaaay off the page and i cannot figure out a command to resize the note. My code below inserts a note and repositions it. Does anyone know how to resize it?
Dim
mynote As INoteDim myannotation As IAnnotation
mynote=ximodeldoc2.insertnote("SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS" + Chr(13) + Chr(10) + "SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS/SEE ABOVE FOR KEY PART NUMBERS")
If
mynote IsNot Nothing Then
myannotation = mynote.GetAnnotation()
myannotation.SetPosition(0.32, 0.12, 0)
Dim value As Object
value = mynote.GetExtent()
value(3) = 1
'0.39
value(4) = 1
'0.079
End If
SolidworksApi macros