Open an Assembly in Large Design Review Mode Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions:
' 1. Verify that the specified assembly to open in Large Design Review mode
'    exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Click OK in the Large Design Review dialog.
' 2. Opens the assembly.
' 3. Creates a section view.
' 4. Creates four snapshots in the DisplayManager:
'    * Home
'    * ASnap
'    * Snap2
'    * Snap3
' 5. Click OK in the Name Snapshot dialog.
' 6. Selects and fully resolves a component.
' 7. Inspect the Immediate window for snapshot information and inspect
'    the graphics area.
'
' NOTE: Because the assembly is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics


Partial Class SolidWorksMacro

    Dim Part As AssemblyDoc
    Dim snap As SnapShot
    Dim snaps As Object
    Dim snap1 As SnapShot
    Dim snap2 As SnapShot
    Dim snap3 As SnapShot
    Dim i As Integer
    Dim boolstatus As Boolean
    Dim longwarnings As Integer
    Dim longstatus as Integer

    Sub main()
 

        ' Open a large assembly in Large Design Review mode
        Dim large_assembly_document As String
        large_assembly_document = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2017\tutorial\advdrawings\motor casing.sldasm"
        Set Part = swApp.OpenDoc6(large_assembly_document, swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_ViewOnly, "", longstatus, longwarnings)

        ' Create section view
        Dim sViewData As SectionViewData
        sViewData = Part.ModelViewManager.CreateSectionViewData()
        sViewData.FirstPlane = Nothing
        sViewData.FirstReverseDirection = False
        sViewData.FirstOffset = -0.00508
        sViewData.FirstRotationX = 0
        sViewData.FirstRotationY = 0
        sViewData.FirstColor = 16711680
        sViewData.ShowSectionCap = True
        sViewData.KeepCapColor = True

        Dim mvmgr As ModelViewManager
        mvmgr = Part.ModelViewManager
        boolstatus = mvmgr.CreateSectionView(sViewData)
        Part.ClearSelection2(True)
        Part.ShowNamedView2("*Front", 1)
        Part.ShowNamedView2("*Dimetric", 9)

        ' Add a named snapshot
        snap1 = mvmgr.AddSnapShot("ASnap")
        ' Open dialog box to name the next snapshot
        snap2 = mvmgr.AddSnapShot("?")
        ' Add a snapshot with the next default name
        snap3 = mvmgr.AddSnapShot("")

        snap1.Comment = "<TS> This is a comment for ASnap."

        snaps = mvmgr.GetSnapShots

        For i = 0 To UBound(snaps)
            snap = snaps(i)
            snap.Activate()
            Debug.Print("Snapshot name: " & snap.Name)
            Debug.Print("      Comment: " & snap.Comment)
            Debug.Print("       ViewID: " & snap.ViewId)
        Next

   	' Selects a component
 	Dim model As ModelDoc2
	model = Part
    	boolstatus = model.Extension.SelectByID2("motor casing-1@motor casing", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

   	' Fully resolve only the selected component
   	Part.SelectiveOpen (True, False)

    End Sub

	Public swApp As SldWorks

End Class