Couleurs encodées en RGBA
4 participants
Page 1 sur 1
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.
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.
bamboou9- actif
- Messages : 31
Date d'inscription : 28/03/2014
Localisation : reims
mike688- actif
- Messages : 257
Date d'inscription : 23/12/2009
Age : 43
Localisation : Portieux (88)
Re: Couleurs encodées en RGBA
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.
J'ai 255 quelque soit la couleur choisis.
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Couleurs encodées en RGBA
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 )
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 )
des_urgences- timide
- Messages : 10
Date d'inscription : 12/06/2013
Localisation : Le plus loin possible
Re: Couleurs encodées en RGBA
he bah ... tout ça pour attribuer une couleur à un objet ... Je commence à comprendre pourquoi Catia est si lourd ...
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum