Hallo stefan2572,
nachfolgender Code gibt die 1. Szene aus der Szenenliste zurück.
Sub CATMain()
Dim oDoc As ProductDocument
Dim oProduct As Product
Dim oScenes As ProductScenes
Dim oScene As ProductScene
Set oDoc = CATIA.ActiveDocument
Set oProduct = oDoc.Product
Set oScenes = oProduct.GetTechnologicalObject("ScenesCollection")
Set oScene = oScenes.Item(1)
End Sub
Gruß
Steffen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP