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