Create Unfolded View Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\advdrawings\foodprocessor.slddrw
'
' Postconditions: A new unfolded view is created from Drawing View2.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim myView As View
    Dim boolstatus As Boolean


    Sub main()

        Part = swApp.ActiveDoc

        boolstatus = Part.ActivateView("Drawing View2")
        boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.495543739334749, 0.313448417774286, -500.002202803851, False, 0, Nothing, 0)

        myView = Part.CreateUnfoldedViewAt3(0.379074752406062, 0.276482735105582, 0, False)

    End Sub


    Public swApp As SldWorks


End Class