Hi,
I have a hopefully simple problem: I can't figure out how to add a GeneralNote to a drawing sheet in VBA without it being "fitted". That is, The GeneralNote.Fitted property is always true, and I can't set it to be false.
Is there a good workaround to this?
Thanks,
Ben Coburn
Solved! Go to Solution.
Solved by wayne.brill. Go to Solution.
Hi Ben,
I see that setting the Height or Width could do what you need. Here is a VBA snippet:
Dim oPt As Point2d
Set oPt = ThisApplication.TransientGeometry.CreatePoint2d(10, 10)
Dim onote As GeneralNote
Set onote = oSheet.DrawingNotes.GeneralNotes.AddFitted(oPt, sFormattedText)
'Set onote = oSheet.DrawingNotes.GeneralNotes.AddByRectangle(oPt, oPt2, sFormattedText)
onote.height = 10
onote.width = 30
Debug.Print onote.Fitted
Thanks,
Wayne
That solves my problem, thanks 🙂
Could I ask that creating a note using AddByRectangle() not create a fitted note by default? I'm not sure what it's for given that.
Ben Coburn
Hi Ben,
I logged a ticket with Inventor Engineering for this:
"Wish - have the GeneralNotes.AddByRectangle() not automatically have Fitted = True"
Thanks,
Wayne