Rotate Drawing View 45 Degrees Example (VB.NET)

This example shows how to rotate the selected drawing view 45 degrees.

'--------------------------------------
' Preconditions:
' 1. File to open exits.
' 2. Run the macro (press F5).
'
' Postconditions: Selected drawing view is rotated 45 degrees.
'----------------------------------------

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swModel As ModelDoc2
        Dim swModelDocExt As ModelDocExtension
        Dim swDrawing As DrawingDoc
        Dim status As Boolean
        Dim errors As Long
        Dim warnings As Long

        swModel = swApp.OpenDoc6("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\driveworksxpress\mobile gantry.slddrw", swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
        swModelDocExt = swModel.Extension
        swModel.ViewZoomtofit2()
        swDrawing = swModel

        status = swDrawing.ActivateView("Drawing View4")
        status = swModelDocExt.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1122300799499, 0.1471819585104, 0, False, 0, Nothing, 0)
        status = swDrawing.DrawingViewRotate(45 / 57.3) 'Convert degrees to radians, the default system unit

    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class