<edit> Hab mich geirrt.

Notwendig ist eine Selektion! </edit>
zum Beispiel für den OpenBody "Geöffneter Körper.1":
Sub cat()
Dim selection1 As Object
Set selection1 = CATIA.ActiveDocument.selection
selection1.Search ("Name='Geöffneter Körper.1',all")
selection1.VisProperties.SetShow 1
End Sub
Namen musst noch anpassen!
Viel Spaß damit, 
Ciao
Max
------------------
--- Der frühe Vogel fällt nicht weit vom Stamm. ---
[Diese Nachricht wurde von MaxZ am 09. Aug. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP