Set Model Display Mode Example (VBA)

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

'-------------------------------------

'

' Preconditions: Part or assembly document is open.

'

' Postconditions: Model view set to shaded with edges.

'

'--------------------------------------

Option Explicit

Public Enum swViewDisplayMode_e

    swViewDisplayMode_Wireframe = 1

    swViewDisplayMode_HiddenLinesRemoved = 2

    swViewDisplayMode_HiddenLinesGrayed = 3

    swViewDisplayMode_Shaded = 4

    swViewDisplayMode_ShadedWithEdges = 5   ' Only valid for parts and assemblies

End Enum

Sub main()

    Const nNewDispMode              As Long = swViewDisplayMode_ShadedWithEdges

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swModView                   As SldWorks.ModelView

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModView = swModel.ActiveView

    swModView.DisplayMode = nNewDispMode

    Debug.Assert nNewDispMode = swModView.DisplayMode

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Display mode       = " & swModView.DisplayMode

    Debug.Print "  ModelView hWnd     = " & swModView.GetViewHWnd

    Debug.Print "  ModelView DIB      = " & swModView.GetViewDIB

End Sub

'-------------------------------------