---

Hallo.

Ich versuche, aus einem Makro eine Szene zu aktualisieren. Folgende Funktionen müsste ich haben: Baugruppe auf Szene anwenden (Alles!), dann Positionen und Verdecken/Anzeigen überlagern.

Die Szene auswählen geht mit diesem Code:

Sub CATMain()
Set Dokument = CATIA.ActiveDocument
Set Baugruppe = Dokument.Product
Set AlleSzenen = Baugruppe.GetTechnologicalObject("ScenesCollection")
Set AktuelleSzene=AlleSzenen.Item("1")
Set SceneData = AktuelleSzene.GetSceneProductData(Baugruppe)
End Sub

Wie kann ich nun auf die Attribute dieser Szene zugreifen?

Danke für die Hilfe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo.

Habe die Lösung soeben selbst gefunden. ich kann die Positionen in der Szene problemlos ansprechen. was die "Positionen überschreiben" (overload) genau macht, weiss ich noch nicht. Aber, die Postition aus der Baugruppe in die Szene übernehmen, geht ganz einfach:

Sub CATMain()

Dim Position(11)

Set Dokument = CATIA.ActiveDocument
Set Baugruppe = Dokument.Product
Set Unterbaugruppe = Baugruppe.Products
Set Beziehungen = Baugruppe.Relations
Set Konstruktionstabelle = Beziehungen.Item("Konstruktionstabelle.2")
Set AlleSzenen = Baugruppe.GetTechnologicalObject("ScenesCollection")

For i = 1 To 28
    Konstruktionstabelle.Configuration = i
    Baugruppe.Update
    For j = 2 To 6
        Set SceneData = AlleSzenen.Item(i).GetSceneProductData(Unterbaugruppe.Item(j))
        Unterbaugruppe.Item(j).Position.GetComponents Position
        SceneData.Position.SetComponents Position
    Next j
Next i

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP