Suppress Rebuild Error Dialogs Example (VBA)
This example shows how to suppress dialogs when rebuild errors occur.
'--------------------------------------------------------------
'
' Preconditions: Model document is open.
'
' Postconditions: When rebuild error occurs, dialog is
suppressed.
'
'--------------------------------------------------------------
Option Explicit
Public Enum swUserPreferenceToggle_e
swShowErrorsEveryRebuild
= 77
End Enum
Sub main()
Dim
swApp As SldWorks.SldWorks
Set
swApp = Application.SldWorks
Debug.Print
"ShowErrorsEveryRebuild = " & swApp.GetUserPreferenceToggle(swShowErrorsEveryRebuild)
swApp.SetUserPreferenceToggle swShowErrorsEveryRebuild,
False
Debug.Print
"ShowErrorsEveryRebuild = " & swApp.GetUserPreferenceToggle(swShowErrorsEveryRebuild)
End Sub
'--------------------------------------------------------------