---

Hallo Mitstreiter,

Ich hoffe mal wieder auf Eure Hilfe!

Ich suche ein Stück Quellcode...

Manueller Weg:
Ich selektiere mit der mittlern Maustaste auf einen Punkt. Damit wandert dieser in den Bildschirmmittlepunkt. Ferner ist er der neue Drehpunkt.

Automation:
Wie bekomme ich CATIA dazu, einen Punkt so zu verschieben, dass er mittig auf dem Bildschirm liegt. Die Skalierung soll dabei nicht verändert werden.

Ich freue mich schon jetzt über Eure Hinweise!!

Danke im Vorraus.

Ralf

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

---

Das geht über Viewpoint3D: über Viewpoint3D.Zoom, Viewpoint3D.GetSightDirection, Viewpoint3d.PutOrigin und Viewpoint3D.PutSightDirection

------------------
- Robert

[Diese Nachricht wurde von EngineeredByRobberts am 22. Jun. 2010 editiert.]

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

---

Hier mal ein Beispiel, es verschiebt die Bildmitte auf 100,0,0

Dim ViewerToWorkIn As Viewer
Dim DeinViewpoint As Viewpoint3D
Dim Zoom1 As double
Dim sight1(2)

Set ViewerToWorkIn = CATIA.ActiveWindow.Viewers.Item(1)
Set DeinViewpoint = ViewerToWorkIn.Viewpoint3D

Zoom1 = DeinViewpoint.Zoom

DeinViewpoint.GetSightDirection sight1

DeinViewpoint.PutOrigin Array(100, 0, 0)

DeinViewpoint.PutSightDirection sight1

DeinViewpoint.Zoom = Zoom1

ViewerToWorkIn.Update

------------------
- Robert

[Diese Nachricht wurde von EngineeredByRobberts am 22. Jun. 2010 editiert.]

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