---

Hallo zusammen,

ich möchte per VBA die Standard ISO Ansicht einstellen (F6 Taste)
In der Hilfe fand ich :

Dim oView As View
Set oView = ThisApplication.ActiveView
Dim oCamera As Camera
Set oCamera = oView.Camera
oCamera.ViewOrientationType = kIsoTopRightViewOrientation
oCamera.Apply

nur das Problem ist, das die Standard ISO scheinbar nicht dabei ist ??

hat jemand eine Ahnung welche Option die Standard Iso ist ???

Vielen Dank

Gruss der Pelikan

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

---

Zitat:

---

Original erstellt von Pelikan:
... nur das Problem ist, das die Standard ISO scheinbar nicht dabei ist ??

hat jemand eine Ahnung welche Option die Standard Iso ist ???

---

Hallo Pelikan,

... das ist richtig - Du willst wohl die Ansicht, die unter RMT-Isometrie Ansicht liegt ?

Das geht über Tastaturbefehl:

Public Sub doISOlikeF6()

  Call SendKeys("{F6}")

End Sub

ACHTUNG: das SendKeys-Kommando sendet IMMER an die Applikation, die gerade den Fokus hat. Aus Inventor VBA heisst das, aus Inventor heraus mittels Alt+F8 das Makro-Fenster starten und dieses Makro laufen lassen - ansonsten passiert hier gar nichts....

Grüsse,

Paul

www.morecam.ch

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

---

Zur Info ohne SendKey

Dim oControlDef As ControlDefinition
Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd")
oControlDef.Execute

Mario

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