Couleurs encodées en RGBA

Bonjour,

J'aimerai affecter des couleurs à différents textes. J'ai trouvé pour cela la propriété "Color " dans le fichier .chm Cependant, je ne comprends pas comment elle marche.
J'aimerai automatiser l'attribution de couleurs différentes à des textes.
Auriez vous une idée ?

Merci d'avance,
Bonne journée.

trouvé?

J'a un peu cherché, je n'ai pas trouvé, d'ailleurs en tentant de lire la valeur, le résultat est assez étrange

J'ai 255 quelque soit la couleur choisis.

Bonjour ..
J'en ai un peu bavé pour comprendre ..
mais j'arrive avec Set realcolor ..

pour cela il faut envoyer l’élément a coloriser dans une sélection
puis rentrer dans les propriétés "VisProperties" de la sélection
et ensuite on peut envoyer les valeurs par SetRealColor a l'objet ..


Un exemple de script .
Je trace un point sans un set géométrique ...

Blablabla ...

Dim oColor()

ReDim oColor(3) '

 ' definition de la couleur
' un exemple de couleur : Rose : R =220 V = 0 B = 255
           oColor(0) = i ' valeur en R
           oColor(1) = j ' valeur en V
           oColor(2) = k ' Valeur en B
           oColor(3) = l ' Valeur en A ' mais le A n'a aucune incidence a priori donc on peut le laisser a 0 ou 1
           PointName = "Point Color : R " & i & "_ G " & j & "_ B " & k & "_ A " & l
           
           Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(X, Y, Z)
           hybridBody1.AppendHybridShape hybridShapePointCoord1
           part1.InWorkObject = hybridShapePointCoord1
' mon point c'est hybridShapePointCoord1
           
           hybridShapePointCoord1.Name = PointName ' renommage du point
           part1.Update ' Update (important car si pas d'update .. pas de changement de couleur !
             
           ' création d'une sélection dans le document actif
           Set MySelection = CATIA.ActiveDocument.Selection ' la sélection est vide ...
           
           MySelection.Add (hybridShapePointCoord1) ' on ajoute le point a la sélection
           
           Set obj = MySelection.VisProperties ' on va dans les propriétés de la sélection
       obj.SetRealColor oColor(0), oColor(1), oColor(2), oColor(3) 'on force la couleur de la sélection
       MySelection.Clear ' et on vide la sélection !



Pour les couleurs .. en RVBA .. fait une recherche dans la doc avec oColor .. il y a un bel exemple de script !
de table de couleur oColor (19,2) ... donc tu a 19 couleurs possible de definie ..


dans ce cas .. pour envoyer la couleur ..
tu peux ecrire ..

couleur = 5

et le script sera alors
        obj.SetRealColor oColor(couleur,0), oColor(couleur,1), oColor(couleur,2), 1 'on force la couleur de la selection
'( et j'ai forcé le A a 1 )

he bah ... tout ça pour attribuer une couleur à un objet ... Je commence à comprendre pourquoi Catia est si lourd ...