Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Box orientation + zoom all

tomislav.peran
Advocate

Box orientation + zoom all

tomislav.peran
Advocate
Advocate

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

 

0 Likes
Reply
Accepted solutions (1)
321 Views
2 Replies
Replies (2)

dalton98
Collaborator
Collaborator
Accepted solution

Is this what your asking?

Dim oCamera As Camera = ThisApplication.ActiveView.Camera

oCamera.ViewOrientationType = ViewOrientationTypeEnum.kTopViewOrientation

oCamera.Fit

oCamera.Apply

tomislav.peran
Advocate
Advocate

Hey Dalton,

 

Yes indeed. Thank you :slightly_smiling_face:

 

Tom

0 Likes