Hiya fella's !
I was having trouble with getting a hold on a Note on a drawing.
I want to move an existing note, and edit the text.
-(If this doesn't work, I might have to delete the note, and add anew one (wich I know how to) but I'm eager to make this way work)-
this is my code :
Any ideas ?
Cheers,
BertSolidworksApi macros
I was having trouble with getting a hold on a Note on a drawing.
I want to move an existing note, and edit the text.
-(If this doesn't work, I might have to delete the note, and add anew one (wich I know how to) but I'm eager to make this way work)-
this is my code :
Dim swApp As SldWorks.SldWorks
Dim modeldoc2 As SldWorks.modeldoc2
Dim swAnnotation As SldWorks.Annotation
Dim swNote As SldWorks.Note
Dim swSlmgr As SldWorks.SelectionMgr
'Set swApp & modeldoc2
Set swApp = Application.SldWorks
Set modeldoc2 = swApp.ActiveDoc
'Select the existing Note
boolstatus = modeldoc2.Extension.SelectByID2("DetailItem126@Alukader", "NOTE", etc , etc)
'Here is where it goes wrong, doesn't want to set my Note to whatis currently selected ..
Set swNote = swSlmgr.GetSelectedObject6(1, 0)
'Set my annotation.
Set swAnnotation = swNote.GetAnnotation()
'Set my new text value
boolstatus = swAnnotation.SetText("my new text value")
'Set new position (aka move)
boolstatus = swAnnotation.SetPosition(0.2623072470817,0.2840568093385, 0)
Cheers,
BertSolidworksApi macros
