---

Hallo zusammen,

In Catia ist es ja so dass für die Beiden Ansichtsvarianten Parallel und Perspektive 2 separate Befehle in Anspruch genommen werden.
Jetzt war meine Idee mir einen Befehl auf eine Taste meiner 3D Maus zu legen welcher zwischen diesen Ansichen hin und her schaltet. Da ich an sonsten 2 Tasten benötige 1 Taste für parallel und 1 Taste für perspektive.

Hat das schonmal jemand versucht?

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

---

Servus

Das geht mit diesem kurzen CATScript:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim specsAndGeomWindow1 As Window
Dim viewpoint3D1 As Viewpoint3D
Dim MyViewer As Viewer

Set specsAndGeomWindow1 = CATIA.ActiveWindow

Set MyViewer = specsAndGeomWindow1.ActiveViewer

if TypeName(MyViewer) <> "Viewer3D" then
  exit sub
end if

Set viewpoint3D1 = MyViewer.Viewpoint3D

if viewpoint3D1.ProjectionMode = catProjectionConic then
  viewpoint3D1.ProjectionMode = catProjectionCylindric
else
  viewpoint3D1.ProjectionMode = catProjectionConic
end if

End Sub

---

Du musst dann nur noch das Makro auf eine Taste legen

Gruß
Bernd

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

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

---

Hallo bgrittmann,

ein Kollege hatte sich ohne mein Wissen auch bereits dran gegeben.
Dein Makro oben endet mit einer Fehlermeldung in Zeile 5.

Das Makro meines Kollegen funktioniert:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Set specsAndGeomWindow1 = CATIA.ActiveWindow

Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Set viewpoint3D1 = viewer3D1.Viewpoint3D

If viewpoint3D1.ProjectionMode = catProjectionConic Then

viewpoint3D1.ProjectionMode = catProjectionCylindric

Else

Set viewpoint3D1 = viewer3D1.Viewpoint3D

Set viewpoint3D1 = viewer3D1.Viewpoint3D

viewpoint3D1.ProjectionMode = catProjectionConic

End If

End Sub

---

Leider kann ich keine Fehleranalyse machen. Habe keine Ahnung vom scripting.

Dennoch vielen Dank für die Hilfe!!!

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

---

Servus
Wahrscheinlich kommt die Fehlermeldung weil mein Code ein CATScript ist und kein CATVbs.
Bitte deinen Kollegen noch darum eine Abfrage einzubauen ob es sich um ein 2D oder 3D-Viewer ist. Sonst bekommst du bei einer Zeichnung eine Fehlermeldung.

Gruß
Bernd

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

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