Changing the color of a surface with a formula

[tsqman]

Hello:

This may sound like a simple question but the subject has never came up with me.

I can change a value with a formula but can I change the color of a surface with a formula?

If this can be done please post a sample of the syntax so I may apply it to my part.

Thank you in Advance

 

[DBezaire]

You need the KWA license for this and it would go in a rule or reaction.

`Geometrical Set.1\Extrude.1` .Color = "Blue"


Scripting can change to colors too. Here is a sample script (Thank Ferdo and his portable script center for this)

Sub CATMain()

Dim partDocument1 As Documents
Set partDocument1 = Catia.ActiveDocument

Dim part1 As Parts
Set part1 = partDocument1.Part

Dim selection As Selection
Set selection = Catia.ActiveDocument.Selection

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

'~ setup filter
ReDim sFilter(0)
MsgBox "Select a Face"
sFilter(0) = "Face"
sStatus = Selection.SelectElement2(sFilter, "select a Face", False)

Dim Obj As VispProperties
Set Obj = Selection.VisProperties

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties

'~ change layer
visProperties1.SetLayer catVisLayerBasic, 200

'~ change colour
Obj.SetRealColor 100,10,255,0
Obj.SetRealLineType 4,0
Obj.SetRealWidth 100,0

part1.Update



End Sub





Regards,
Derek