Set GeneralNote.fitted

[bcoburn3]

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

[wayne.brill · Accepted 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

[bcoburn3]

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

[wayne.brill]

Hi Ben,

I logged a ticket with Inventor Engineering for this:

"Wish - have the GeneralNotes.AddByRectangle() not automatically have Fitted = True"

Thanks,

Wayne