changer la couleur d un texte en fonction de celui ci
Page 1 sur 1
changer la couleur d un texte en fonction de celui ci
bonjour,
je travaille actuellement sur la création d un drawing qui permet une fabrication par projection numérique
pour cela j ai besoin d associer une couleur a un texte dans un tableau .
ce texte est lui même lié a un paramètre du 3D qui le fait évoluer en fonction du modèle généré dans le 3D.
j'ai déjà essayé d'appliquer une règle mais cela ne fonctionne pas ou bien je m y prend mal.
pourriez vous m éclairer sur le sujet et suis obligé de passer par une macro si oui laquelle(je ne suis pas expert en macro et encore moins en macro CATIA)
je travaille actuellement sur la création d un drawing qui permet une fabrication par projection numérique
pour cela j ai besoin d associer une couleur a un texte dans un tableau .
ce texte est lui même lié a un paramètre du 3D qui le fait évoluer en fonction du modèle généré dans le 3D.
j'ai déjà essayé d'appliquer une règle mais cela ne fonctionne pas ou bien je m y prend mal.
pourriez vous m éclairer sur le sujet et suis obligé de passer par une macro si oui laquelle(je ne suis pas expert en macro et encore moins en macro CATIA)
dam's- timide
- Messages : 2
Date d'inscription : 11/09/2017
Localisation : villebrumier
Re: changer la couleur d un texte en fonction de celui ci
bonjour,
finalement j ai trouvé un début de solution mais les codes RGB ne correspondent pas
quelqu'un a t il déjà eu ce problème
Sub CATMain()
Set CATDoc = CATIA.ActiveDocument
Set MySheet = CATDoc.Sheets.Item(1)
Set MyView = MySheet.Views.Item(1)
Set MyTable = MyView.Tables.Item(3)
Set DrwText = MyTable.GetCellObject(1, 2)
Select Case DrwText.Text
Case "AD3"
DrwText.TextProperties.Color = RGB(255, 255, 0)
Case "AD6"
DrwText.TextProperties.Color = RGB(0, 255, 255)
End Select
MySheet.ForceUpdate
End Sub
finalement j ai trouvé un début de solution mais les codes RGB ne correspondent pas
quelqu'un a t il déjà eu ce problème
Sub CATMain()
Set CATDoc = CATIA.ActiveDocument
Set MySheet = CATDoc.Sheets.Item(1)
Set MyView = MySheet.Views.Item(1)
Set MyTable = MyView.Tables.Item(3)
Set DrwText = MyTable.GetCellObject(1, 2)
Select Case DrwText.Text
Case "AD3"
DrwText.TextProperties.Color = RGB(255, 255, 0)
Case "AD6"
DrwText.TextProperties.Color = RGB(0, 255, 255)
End Select
MySheet.ForceUpdate
End Sub
dam's- timide
- Messages : 2
Date d'inscription : 11/09/2017
Localisation : villebrumier
Sujets similaires
» Changer de couleur automatiquement
» Catdrawing comment changer le fond pour mettre un fond couleur dégradé
» Vue 3D en couleur
» Changer la projection de vue, possible?
» VBA Changer de set Geometrique
» Catdrawing comment changer le fond pour mettre un fond couleur dégradé
» Vue 3D en couleur
» Changer la projection de vue, possible?
» VBA Changer de set Geometrique
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|