Couleur dans un Set Géométrique

Bonjour,

Je me permets de revenir vers vous car j'ai une application à développer en VBA et j'aurais quelques questions à vous poser.
Pour plus de clarté, je préfère dissocier les topics.

Ici ma question concerne les propriétés d'un Set Géométrique, et plus particulièrement les couleurs.

- J'ai donc généré un Set Géométrique A
- Dans ce dernier, j'ai généré plusieurs centaines de points, lignes, courbes...
- Je voudrais que tous ces éléments prennent une couleur particulière (ex : vert), ceci afin de les différencier des éléments contenus dans le Set Géométrique B (ex : bleu), etc.

Ma question est : Peut-on attribuer une couleur à l'ensemble des éléments filaires d'un Set ?

Jusqu'à présent si je sélectionne l'hybridBody puis que je fais un SetRealColor, il ne me change que la couleur des surfaces.
Sinon j'ai essayé en sélectionnant un par un tous les éléments via une boucle, mais c'est trop long, il y a trop d'éléments.

Je me réponds concernant le fait de changer d'un seul coup la couleur des points contenus dans un Set Géométrique.
La méthode de contournement serait de sélectionner ensemble tous les points via la fonction Search :

Code:

Dim selection1 As Selection

Selection1.Add hybridBody1
Selection1.Search "(CATGmoSearch.Point.Name = Point.*), Sel"
visPropertySet1.SetRealColor 220, 0, 220, 1
Selection1.Clear

Idem pour les courbes, etc.

Code:


Selection1.Add hybridBody1
Selection1.Search "(CATGmoSearch.Curve.Name = Courbe.*), Sel"
visPropertySet1.SetRealColor 220, 0, 220, 1
Selection1.Clear


J'ai pas trouvé la réponse à la question initiale, mais cette méthode marche.

Oui, c'est la fonction "search" qu'il faut utiliser, comme tu le fais, c'est généralement le plus fiable et plus simple.