Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
tomislav.peran
322 Views, 2 Replies

Box orientation + zoom all

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
in reply to: tomislav.peran

Is this what your asking?

Dim oCamera As Camera = ThisApplication.ActiveView.Camera

oCamera.ViewOrientationType = ViewOrientationTypeEnum.kTopViewOrientation

oCamera.Fit

oCamera.Apply

Hey Dalton,

 

Yes indeed. Thank you :slightly_smiling_face:

 

Tom