360 Degree View

P Diddy

Is there a way to do a fly through where the robot stays centered and you rotate 360 degrees around the robot?
I tried a fly through but as it goes around the robot it zooms in and out like it is dependant on the view center perhaps?
Thanks for any help that is available!!!

Johannes Weiman old account

Hi P,
Here's some VBA code that does what you want. Just change the constants to suit your needs.

Sub RotateView()
    ' Constants
    Dim lookAt As New Position
    lookAt.x = 0
    lookAt.y = 0
    lookAt.z = 1
    Dim rotateRadius As Double
    rotateRadius = 4
    Dim rotateHeight As Double
    rotateHeight = 1
    Dim step As Integer
    step = 5 ' degrees
    ' Code
    Dim view As view
    Set view = Application.ActiveView
    view.lookAt = lookAt
    Dim lookFrom As New Position
    lookFrom.z = lookAt.z + rotateHeight
    Dim rad As Double
    For deg = 0 To 360 Step step
        rad = deg * 3.14159 / 180#
        lookFrom.x = lookAt.x + rotateRadius * Cos(rad)
        lookFrom.y = lookAt.y + rotateRadius * Sin(rad)
        view.lookFrom = lookFrom
        view.Redraw
    Next deg
End Sub

regards,
Johannes

P Diddy

Thank you for the quick response - I will see if I can get it to work.