Setting the active standard, ActiveStandarsStyle

[Anonymous]

Hi

I have been working on a method to set the active standard from VBA in Inventor 11, but with no luck.

From help the property ActiveStandarsStyle should be able to get and set the active standard style.

I have managed to get the standard style name by:

oStyleName = oIDWDoc.StylesManager.ActiveStandardStyle.Name

but can't figure out how to set it.

Any suggestions?

Regards Claus

[YuhanZhang]

See below sample code:

Sub ChangeStandardStyle()
    
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    oDoc.StylesManager.ActiveStandardStyle = oDoc.StylesManager.StandardStyles("Default Standard (ISO)")
    Debug.Print oDoc.StylesManager.ActiveStandardStyle.Name
End Sub

[Anonymous]

So easy...! And it works.

Thanks a lot.

Ragards Claus