hab selber eine Lösung gefunden:
Function View(A)
' Get the viewer
Set oViewer = CATIA.ActiveWindow.ActiveViewer
' Get the viewpoint
Set oViewpoint = oViewer.Viewpoint3D
If A = "TopView" Then
X = 0
Y = 0
Z = -1
U = 0
V = 1
W = 0
End If
If A = "RightView" Then
X = 0
Y = -1
Z = 0
U = 0
V = 0
W = 1
End If
' Change the viewpoint
oViewpoint.PutOrigin Array(0, 0, 0)
oViewpoint.PutSightDirection Array(X, Y, Z)
oViewpoint.PutUpDirection Array(U, V, W)
oViewpoint.ProjectionMode = catProjectionCylindric
' Update the viewer
oViewer.Reframe
oViewer.Update
Set oViewpoint = Nothing
Set oViewer = Nothing
End Function
Gruss Niko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP