---

MakroAnsichtdrehen.zip

Hallo Catia-Gemeinde!

Für eine Präsentation sollen zwei Ansichten per Makro angewählt werden. Folgendes CATScript habe ich aufgenommen:

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim cameras1 As Cameras
Set cameras1 = productDocument1.Cameras

Dim camera3D1 As Camera
Set camera3D1 = cameras1.Item("Camera1")

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = camera3D1.Viewpoint3D

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

viewer3D1.Viewpoint3D = viewpoint3D1

Dim camera3D2 As Camera
Set camera3D2 = cameras1.Item("Camera3")
Dim viewpoint3D2 As Viewpoint3D
Set viewpoint3D2 = camera3D2.Viewpoint3D
viewer3D1.Viewpoint3D = viewpoint3D2

End Sub

Die Ausführung scheitert bei der Anwahl von Camera3.

Weil ich hier nicht weiter komme, habe ich Euch kundigen Programmierern auch noch den Screen mit offenen Makro und das Fenster mit der Fehlermeldung angefügt.

Bin gespannt, woran es hängt!

Für Eure Hilfe im Voraus Dank!

Stephan

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

---

Hallo Stephan,

anscheinen unterstütz die Cameras Collection nicht das ansprechen durch eine Name.
Anbei dein Code mit eine Schleife ergänzt, der über alle Cameras durchläuft und die Name mit eine Vorgabe vergleich. Ist die gewünschte Name gefunden, wird es als Viewpoint gesetzt.

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim cameras1 As Cameras
Set cameras1 = productDocument1.Cameras

Dim camera3D1 As Camera
Dim oCamera3D As Camera3D

For Each oCamera3D In cameras1
    If oCamera3D.Name = "Camera  1" Then
        Set camera3D1 = oCamera3D
        Exit For
    End If
Next

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = camera3D1.Viewpoint3D

viewer3D1.Viewpoint3D = viewpoint3D1

End Sub

---

Ich hoffe, dass hilft dir weiter.

Gruß,
Zoltan

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

---

@ Zoltan:

Dein Code läuft problemlos und dafür vielen Dank!

Mit den Abfragen kann ich endlich definierte Ansichten auswählen,
was besser aussieht, als das Ruckeln mit For-Next-Schleifen für Parameter.

Mit freundlichem Gruß
Stephan

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