One-key toggle view between ortho and perspective

[pbogucki]

Hello, I have been using user-made vba macro to toggle between ortho and perspective view by using single button. It was very helpfull since i could bound it to my spacemouse, but unfortunately i lost that macro somewhere while swaping to new pc setup. Does anyone know similar functionality or maybe is using similar macro and can share it? I were trying to find old macro for days without any results 😕

[bradeneuropeArthur]

Public Sub perspective()


 Dim oCamera As Inventor.Camera
    Set oCamera = ThisApplication.ActiveView.Camera
    oCamera.perspective = True
    oCamera.ApplyWithoutTransition

End Sub
Public Sub ortho()


 Dim oCamera As Inventor.Camera
    Set oCamera = ThisApplication.ActiveView.Camera
    oCamera.perspective = False
    oCamera.ApplyWithoutTransition

End Sub

[pbogucki · Accepted solution]

Thank You very much!

I modified it a bit so it is single macro toggle:

Public Sub perspective()


 Dim oCamera As Inventor.Camera
    Set oCamera = ThisApplication.ActiveView.Camera
    If oCamera.perspective = False Then
    oCamera.perspective = True
    Else: oCamera.perspective = True
    oCamera.perspective = False
    End If
    oCamera.ApplyWithoutTransition

End Sub