Change color by name?

[borisboris]

hi,

I would to make a macro to change CATPart(s) color in CATProduct according to their names.
I always have the same names and I'd like standardizing colors for every part (ex: "screw" in blue, "nut" in yellow, "washer" in green

Have you an idea?

Thank's!


time to loose:

http://www.flickr.com/people/12898221@N08/

 

[ferdo]

Hi,

Bellow is a simple example, modify the code according to your needs

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "CATProductSearch.Part.PartNumber=screw*,all"

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 0,128,255,1

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 255,1

selection1.Clear

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[borisboris]

thank's a lot Ferdo

time to loose:

http://www.flickr.com/people/12898221@N08/