---

Hallo zusammen,

ich habe ein Makro geschrieben, welches Schweißpunkte sowie die zu schweißenden Bleche ins CATIA läd und dann per Befehl "Reframe On" direkt zum ausgewählten Punkt fliegt. Das klappt soweit auch sehr gut.

Da bei der Funktion "Reframe On" der Punkt nahezu den gesamten Bildschirm einnimmt, möchte ich das etwas konfortabler gestalten. Es soll etwas mehr herausgezoomt werden, so dass auch die Bleche teilweise gesehen werden.

Gibt es eine Möglichkeit, den Zoom individuell anzupassen?

Danke!

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

---

Servus
Du könntest über die Methode "Zoom" des "Viewpoint3D" den aktuellen Zoom-Wert auslesen, diesen dann geeignet auf einen anderen Wert setzen (zB 20% kleiner/größer).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Moin,

gerade mit dem Makro-Rekorder aufgezeichnet.

Code:

---

Sub CATMain()

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

viewer3D1.ZoomOut

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

End Sub

---

probier mal den Code in Deinen einzubasteln.

Gruß
Peter

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