Format Text (Style selection) in a idw drawing VB.NET

[Anonymous]

Hi to all, is there a way to select the Style listed in the Style box, when inserting some text in a idw drawing, using VB.Net?

I would like to add text (Notes and Title) at specific place in the drawing.

Any help will be appreciated, thank's!

[Owner2229]

Hi, here is an example of how to format your text in a new drawing note via VB.Net.

Red highlighted is to be changed.

Dim oDoc As Inventor.Document = InventorApplication.ActiveDocument

Dim stext As String
stext = "<StyleOverride Font='ARIAL' FontSize = '0.1524' >PRINTED: " & Now() & "<Br/>BY: " & InventorApplication.GeneralOptions.UserName & "</StyleOverride>"

' Set a reference to the GeneralNotes object
Dim oGeneralNotes As Inventor.GeneralNotes = oDoc.ActiveSheet.DrawingNotes.GeneralNotes
    
Dim oTG As Inventor.TransientGeometry = InventorApplication.TransientGeometry   
Dim oGeneralNote As Inventor.GeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(0.3, 1.5), stext)

' Set the color of the note
Dim oColor As Inventor.Color = InventorApplication.TransientObjects.CreateColor(128, 128, 128)oGeneralNote.Color = oColor

' Set the rotation of the note in Radians (1.5 ~ 90°)
oGeneralNote.Rotation = 1.5 

[Anonymous]

Thank's Mike, I already tried this one.  What i am looking for, is to select from the Styles Editor Standard Text already estabish.

[smilinger · Accepted solution]

You can just provide the style name when you add the text.

Dim oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(0.3, 1.5), stext, "Your Text Style Name")

[Anonymous]

That's perfect for me!

Thank's smilinger