---

Moin,

nach Eingabe der Werte fliegt das Makro an die Position.

1. Wie kriege ich es hin diesen Klick der mittleren Maustaste auf diesen Punkt im Script zu simulieren
2. um einen bestimmten Wert herauszoomen, da zu dicht herangeflogen wurde

Ich mache das aus EXCEL heraus
das habe ich bis jetzt:

Sub fliege_zu_koordinate()

Set CATIA = GetObject(, "CATIA.Application")

Dim ObjViewer3D As Viewer3D
Set ObjViewer3D = CATIA.ActiveWindow.ActiveViewer

Set Aktuelle_Ansicht = ObjViewer3D.Viewpoint3D

Dim origin_viewpoint(2)

' X, Y, Z Werte eingeben
origin_viewpoint(0) = Abs(InputBox("X-Wert:"))
origin_viewpoint(1) = Abs(InputBox("Y-Wert:"))
origin_viewpoint(2) = Abs(InputBox("Z-Wert:"))

' Koordinaten übergeben
Aktuelle_Ansicht.PutOrigin origin_viewpoint

' Fliegen zur Koordinate
ObjViewer3D.Update

' Das Funktioniert nicht ! Bei erneutem ausführen des script wird immer weiter gezoomt
ObjViewer3D.ZoomOut

End Sub

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

---

Servus

zu 1.:
Warum willst du einen Klick simulieren?

zu 2.:
Statt ZoomOut könntest du über ".Zoom" des Viewpoint3D-object einen definierten Faktor setzen.

Gruß
Bernd

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

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

---

zu 1. damit ich den Drehpunkt setze

zu 2 (so passiert da nichts)
ObjViewer3D.Viewpoint3D.Zoom = 0.015
ObjViewer3D.Update

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