In the UI there is an option to modify the Front/Top/etc orientation of camera for the model.
It’s available under the View Cube‘s menu item “Set Current View as” – see left side of picture
You can also run that command programmatically to achieve the same result.
First set the camera to the direction that you want to set as the Front then run the command “AppViewCubeViewFrontCmd”
Dim c As Camera
Set c = ThisApplication.ActiveView.Camera
c.ViewOrientationType = kRightViewOrientation
Call c.ApplyWithoutTransition
Dim cds As ControlDefinitions
Set cds = ThisApplication.CommandManager.ControlDefinitions
Dim cd As ControlDefinition
Set cd = cds.Item("AppViewCubeViewFrontCmd")
Call cd.Execute


Leave a Reply