Stimmt,
hatte da wohl noch 2D Components übersehen.
Bin auch gerade dabei ein Makro zu erstellen um die Komponenten zu Exposen oder Exploden.
Den Code habe ich gefunden:
Sub CATMain()
'Blatt, auf dem das Detail eingefuegt wurde
Set MySheet = CATIA.ActiveDocument.Sheets.Item(1)
'Das Detailblatt
Set MyDetailSheet = CATIA.ActiveDocument.Sheets.Item(2)
'View auf dem das Detail eingefuegt wurde
'Hier Index 1 = Mainview = Blatt
Set MyView = MySheet.Views.Item(1)
'Das Detail
Set My2DComponent = MyView.Components.Item(1)
'2D-Komponente zugaenglich machen (Expose)
'Danach wird das Detail-Blatt aktiviert!
My2DComponent.ExposeCompRefInSheet MyDetailSheet
'Wieder Blatt 1 aktivieren
MySheet.Activate
End Sub
Funktioniert leider nicht. Müsste es dahin gehend anpassen, dass das Detailsheet falls noch nicht vorhanden erstellt wird und dann eben alle Komponenten Exposed werden.
------------------
CATIA = Close And Try It Again
[Diese Nachricht wurde von reipet am 30. Jun. 2010 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP