Is There a Projection Arrow and Is It Visible Example (VB.NET)

This example shows how to find out if:

• the selected drawing view is a projected view

• a projection arrow exists in the projected view

• the projected arrow is visible

'--------------------------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\tutorial\advdrawings\foodprocessor.slddrw.
' 2. Double-click the projected view (i.e., the upper-right drawing view).
' 3. In the PropertyManager page, click the Arrow check box and
'    type a label for the projection arrow.
' 4. Click OK to close the PropertyManager page.
'
' Postconditions:
' 1. Creates a visible projection arrow for Drawing View2, which is
'    a projected view.
' 2. Examine the graphics area and Immediate window.
'
' NOTE: Because this drawing document is used elsewhere, do not save
' changes.
'--------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        Dim swModel As ModelDoc2

        Dim swModelDocExt As ModelDocExtension

        Dim swDrawing As DrawingDoc

        Dim swView As View

        Dim swProjectionArrow As ProjectionArrow

        Dim typeDrawingView As Integer

        Dim boolstatus As Boolean

 

        swModel = swApp.ActiveDoc

        swDrawing = swModel

        swModelDocExt = swModel.Extension

 

        boolstatus = swDrawing.ActivateView("Drawing View2")

        boolstatus = swModelDocExt.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.4426278247583, 0.3837831481976, 0, False, 0, Nothing, 0)

 

        swView = swDrawing.ActiveDrawingView

        typeDrawingView = swView.Type

        If typeDrawingView = 4 Then

            Debug.Print("Type of selected drawing view is projected.")

        Else

            Debug.Print("Type of selected drawing view is not projected. Exiting macro.")

            Exit Sub

        End If

 

        swProjectionArrow = swView.GetProjectionArrow

        If Not swProjectionArrow Is Nothing Then

            Debug.Print("Projection arrow visible: " & swProjectionArrow.Visible)

        Else

            Debug.Print("No projection arrow in projected view.")

        End If

 

    End Sub

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

 

End Class