Changing the color of a surface with a formula
Changing the color of a surface with a formula
(OP)
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
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





RE: Changing the color of a surface with a formula
`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