API: Set text style color to bylayer?

[Anonymous]

Is it possible to set the text style color to "bylayer" via the API? If so, how?

Thanks!

[Anonymous]

This capability is new to the API in Inventor 2010. See sample below.

Sanjay-


Sub ColorToByLayer()

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oTS As TextStyle
Set oTS = oDoc.StylesManager.TextStyles("Label Text (ANSI)")

' Create color with any rgb values and set source as layer
Dim oColor As Color
Set oColor = ThisApplication.TransientObjects.CreateColor(0, 0, 0)
oColor.ColorSourceType = kLayerColorSource

oTS.Color = oColor

End Sub