Align Auxiliary Drawing View Example (VBA)

This example shows how to align an auxiliary drawing view.

' -------------------------------------------------------------------------------
' Preconditions:
' 1. Open a drawing with an auxiliary view.
' 2. Modify this macro to select the auxiliary view.
'
' Postconditions:
' 1. The auxiliary view is aligned horizontally in the clockwise direction.
' 2. Press F5.
'    The auxiliary view is aligned horizontally in a counterclockwise direction.
' 3. Press F5.
'    The auxiliary view is given the default alignment.
' 4. Press F5.
'    The auxiliary view is aligned along the projection angle.
' ------------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Option Explicit

Sub main()

    Set swApp = _
    Application.SldWorks
   

    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.110297569919827, 0.215100510639068, 0, False, 0, Nothing, 0)
    Dim DrawView As SldWorks.View
    Set DrawView = Part.SelectionManager.GetSelectedObject6(1, -1)
    boolstatus = DrawView.AlignDrawingView(swHorizontalToSheetClockwise)
    Stop
    boolstatus = DrawView.AlignDrawingView(swHorizontalToSheetCounterclockwise)
    Stop
    boolstatus = DrawView.AlignDrawingView(swDefaultAlignment)
    Stop
    boolstatus = DrawView.AlignDrawingView(swProjectedAngle)

End Sub