Hallo Danny,
so kannst du alle Bedingungen in einem geöffneten Produkt aus- und einschalten
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "Name:*Bedingungen*;Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1 'aus
'visPropertySet1.SetShow 0 'ein
End Sub
Gruß Martin
------------------
mb 