'Skript erstellt von Christian Willmann, casolute, 2007
'Sucht, selektiert und blendet alle Drahtgeometrien (V4&V5) sowie Baugruppenbedingungen in einer Produktstruktur aus

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "(.'Axis System' + .Plane + .Point + .Line + .Curve + .Sketch + 'CATIA V4'.PLN + 'CATIA V4'.PT + 'CATIA V4'.LN + 'CATIA V4'.CRV + 'CATIA V4'.AXS + Name:*Constraint*);All"
Set visPropertySet1 = selection1.VisProperties 
visPropertySet1.SetShow 1

End Sub