hi,
thank you for the answer.
I tried to enter the codes but I want to insert a request if possible, for example:
the macro should be looking in a solid(PartBody) and not in Geometrical Set.
Thank you for your help.
Below an example:
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "CATPrtSearch.Fillet,sel"
Set selection1 = CATIA.ActiveDocument.Selection
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 255, 255, 128, 1
selection1.Clear
End Sub