Get and Set Model Break View Display Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a drawing that has:
'    * assembly with Model Break View1.
'    * Drawing View1.
' 2. Open an Immediate window.
'
' Postconditions:
' 1. Displays Model Break View1.
' 2. Inspect the Immediate window and graphics area.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics


Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim swView As View
    Dim swSelMgr As SelectionMgr
    Dim boolstatus As Boolean


    Sub main()

        Part = swApp.ActiveDoc
        swSelMgr = Part.SelectionManager

        boolstatus = Part.ActivateView("Drawing View1")
        boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.395146689428525, 0.746414551874767, 0, False, 0, Nothing, 0)

        swView = swSelMgr.GetSelectedObject6(1, -1)
        boolstatus = swView.ShowModelBreakState(True, "Model Break View1")

        Debug.Print("Displaying model break view? " & swView.IsModelBreakState)

        Part.ForceRebuild3(True)

    End Sub


  
    Public swApp As SldWorks


End Class