Language="VBSCRIPT"

Sub CATMain()

'Deklaration des aktiven Dokuments ------------------------------------
Set Document1 = CATIA.ActiveDocument
Set selection1 = Document1.Selection

'Suche nach Bohrungen mit Gewinde --------------------------------------
'selection1.Search "Punkt.1l"

'Einfärben der Gewinde in Cyan ------------------------
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 0,128,255,0
selection1.clear()



End Sub