---

Hallo,
ich versuche gerade ein Skript zu schreiben, welches einen Screenshot aus allen Szenen in einem Produkt macht. Leider gelingt es mir nicht die Szenen per Makro zu "aktivieren", spirch das auszulösen was passiert, wenn man einen Doppelklick auf die Szene macht.

Hier ein Skript aus diesem Forum:

Code:
--------------------------------------------------------------------------------

Sub CATMain()
    Dim oDoc                As ProductDocument
    Dim oProduct            As Product
    Dim oScenes            As ProductScenes
    Dim oScene              As ProductScene
    Dim SceneData          As SceneProductData
   
    Set oDoc = CATIA.ActiveDocument
    Set oProduct = oDoc.Product
    Set oScenes = oProduct.GetTechnologicalObject("ScenesCollection")
    Set oScene = oScenes.Item(1)
    Set SceneData = oScene.GetSceneProductData(oProduct)

End Sub

--------------------------------------------------------------------------------

Das Objekt SceneData ist vom Typ ProductSceneData, welchs die Properties "Hidden" und "Activation" enthält. Diese sind jedoch scheinbar nicht ansprechbar.

Des Weiteren unterscheidet CATIA zwischen Objekten von Typ "Scene" und "ProductScene", es gelingt mir jedoch nicht ein Objekt vom Typ "Scene" zu erzeugen.

Ein weiterer Versuch meinerseits war das Auswählen der Szene in einer Selection, aber diese wird leider auch nicht aktiv:

Code:
--------------------------------------------------------------------------------

Set selection1 = oDoc.Selection
selection1.Add oScene

--------------------------------------------------------------------------------

Kann mir vielleicht jemand von Ihnen helfen?

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

---

Hallo,
am einfachsten geht es über eine Selection.
Die Szene in eine Selection einfügen,
dann über CATIA.StartCommand "FrmActivate" die Szene aufrufen (entspricht dem Doppelklick auf die Szene im Baum)

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Super,

Vielen Dank! 

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

---

Hallo,

ich hab den Tipp von Herrn Hansen jetzt ausprobieren können und komme leider nicht weit.

Irgendetwas im Baum anklicken und "c:FrmActivate" in der Befehlszeile eintippen funktioniert.

Folgender Code erziehlt jedoch nicht denselben Effekt:

Code:

---

Sub CATMain()
    Dim oDoc                As ProductDocument
    Dim oProduct            As Product
    Dim oScenes            As ProductScenes
    Dim oScene              As ProductScene
    Dim selection1          As Selection

    Set oDoc = CATIA.ActiveDocument
    Set oProduct = oDoc.Product
    Set oScenes = oProduct.GetTechnologicalObject("ScenesCollection")
    Set oScene = oScenes.Item(1)
   
    Set selection1 = oDoc.Selection
    selection1.Add oScene
    CATIA.StartCommand "FrmActivate"
       
    selection1.Clear
End Sub

---

Scheinbar einziges Resultat dieses Makros ist, dass der Strukturbaum eines Products bis zum neuen Laden nicht mehr auf Mausklicks reagiert...

Ich vermute der Weg über die Szene zu einer Auswahl ist nicht der gleiche, wie ein Mausklick?

Hat mir vielleicht noch jemand einen weiteren Tip?

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

---

Hallo,
kann die Szene nicht über die Suche angesprochen und somit in die Selection gepackt werden?
Dann müsste auch das StartCommand funktionieren.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Hallo Herr Hansen,

erstmal danke für die schnellen Antworten.

Ich hab jetzt folgenden Code ausprobiert:

Code:

---

Sub CATMain()
    Dim oDoc      As ProductDocument
    Dim selection1 As Selection

    Set oDoc = CATIA.ActiveDocument
    Set selection1 = oDoc.Selection
    selection1.Search ("Name='Seitenansicht',all")
 
    CATIA.StartCommand "FrmActivate"
       
    selection1.Clear
End Sub

---

Leider führt auch dies nicht zum gewünschten Ergebnis. Nach dem Makro lässt der Strukturbaum sich noch auf und zu klappen, aber reagiert sonst nicht mehr auf Eingaben...

PS Hab V5R16 SP5

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