Sub main()

    Dim c As Point3F = New Point3F(0, 0, 0)
    
    ' set top view (xy)
    CamBamUI.MainUI.ActiveView.ViewProjection.ViewXYPlane()   

    'rotate view 180° around X (1xPi radian) to get a bottom view
    CamBamUI.MainUI.ActiveView.ViewProjection.RotateView(0, Math.PI, c)

End Sub