Set Model Display Mode Example (VBA)

This example shows how to set the display mode of a model view.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a part or assembly document.
' 2. Select Tools > Add-Ins > PhotoView 360.
'
' Postconditions: Model view display is set to integrated preview.
'----------------------------------------------------------------------------

Option Explicit

Sub main()

    Const nNewDispMode              As Long = swViewDisplayMode_e.swViewDisplayMode_IntegratedPreview

    Dim swApp                       As SldWorks.SldWorks
    Dim swModel                     As SldWorks.ModelDoc2
    Dim swModView                   As SldWorks.ModelView

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModView = swModel.ActiveView

    swModView.DisplayMode = nNewDispMode

    Debug.Print "File = " & swModel.GetPathName
    Debug.Print "  Display mode       = " & swModView.DisplayMode

End Sub