Mit einem Makro könnte es in etwa so aussehen:
Sub CATMain()
Dim MyDocument As document
Set MyDocument = CATIA.ActiveDocument
Dim MyPart As Part
Set MyPart = MyDocument.Part
Dim MyMainBody As Body
Set MyMainBody = MyPart.Bodies.Item(1)
Dim r, g, b As Long
' ----------------------------
' hier muesste also der Parameter aus deinem Part geholt werden
' z.B.
' Dim MyColorparameter As RealParam
' Set MyColorparameter = MyPart.Parameters.Item("Mein Farbparameter")
' Hier Beispielhaft zugewiesen
MyColorparameter = 1 ' wieder auskommentieren wenn Parameter wie oben benannt im Part vorkommt
' ----------------------------
If MyColorparameter.Value = 1 Then
r = 255
g = 128
b = 255
End If
' etc. etc.
If MyColorparameter.Value = 2 Then
r = 128
g = 255
b = 255
End If
Dim MySelection As Selection
Set MySelection = MyDocument.Selection
MySelection.Clear
MySelection.Add MyMainBody
MySelection.VisProperties.SetRealColor r, g, b, 1
End Sub
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP