'Ausblenden von Ebenen in einem CATPart bzw. CATProduct'
'Für V5R7SP6, V5R8SP2 und V5R8SP5 auf PC mit deutscher Ländereinstellung'

'Script erstellt von M. Gerlich (matthias.gerlich@edag.de) am 28.10.02'
'Eigentum der EDAG Engineering + Design AG'
'Das Sript darf als solches weder Verkauft oder Angeboten werden'

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search ".Ebene;Alle"
Set visPropertySet1 = selection1.VisProperties 
visPropertySet1.SetShow 1

End Sub