Box orientation + zoom all

[tomislav.peran]

Hi, 

Does anyone knows the code on how to set the orientation box to the top view but then also to activate zoom all so that model, part in my case, is in the middle of the screen. 

So, the order would go -> 1. Select Top view on the orientation box

                                              2. Activate the command Zoom All (View tab)

Regards,

Tom

[dalton98 · Accepted solution]

Is this what your asking?

Dim oCamera As Camera = ThisApplication.ActiveView.Camera

oCamera.ViewOrientationType = ViewOrientationTypeEnum.kTopViewOrientation

oCamera.Fit

oCamera.Apply

[tomislav.peran]

Hey Dalton,

Yes indeed. Thank you 🙂

Tom