Hide or Show All Types Example (VBA)

This example shows how to hide or show these types in a the current document:

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

Option Explicit

Public Enum swUserPreferenceToggle_e

    swViewDisplayHideAllTypes = 198

End Enum

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.modelDoc

    Dim bRet                        As Boolean

    Dim bShow                       As Boolean

    Dim nResponse                   As Integer

    nResponse = MsgBox("Hide all types?", vbYesNo)

    If nResponse = vbYes Then

        bShow = True

    Else

        bShow = False

    End If

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    bRet = swModel.SetUserPreferenceToggle(swViewDisplayHideAllTypes, bShow): Debug.Assert bRet

End Sub

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