macro to change Text Style font

[jl]

Inventor 2012.

Does anybody know how to make a macro that changes the font for a specific Text Style. The name of the Text Style is eg. "3mm", which I want to change from RomanS to Verdana.

Best regards,

Jorn L.

[xiaodong_liang]

Hi,

GeneralOptions.TextAppearance is what you are looking for. Please refer to the code below:

Sub test()

Dim oGen As GeneralOptions
Set oGen = ThisApplication.GeneralOptions

oGen.TextAppearance = "RomanC"

End Sub

Regards,

Xiaodong Liang

Developer Technical Services