Create Checks from Document Example (VBA)

This example shows how to build Design Checker checks from existing SolidWorks documents, templates, and drafting standards.

'----------------------------------------------------------------------------
' Preconditions:

' 1. Load the SolidWorks Design Checker add-in
'    (click Tools > Add-ins > SolidWorks Design Checker).
' 2. Ensure that the specified document exists.
' 3. Reference the SolidWorks Design Checker type library
'    (in the IDE, click Tools > References > SolidWorks Design
'    Checker <version> Type Library).
' 4. Open an Immediate window.
'
' Postconditions: SolidWorks Design Checker launches and displays 27 checks
' that were added from the specified document.
'
' NOTE: Because this drawing document is used by a SolidWorks
'         tutorial, do not save any changes when closing the document.
'----------------------------------------------------------------------------

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim retValue As Long
   

    ' Get the SolidWorks application
    Set swApp = Application.SldWorks

    ' Get the SolidWorks Design Checker add-in
    Set swDCAddIn = swApp.GetAddInObject("SWDesignChecker.SWDesignCheck")

    If swDCAddIn Is Nothing Then
          Debug.Print "No SolidWorks Design Checker add-in."
          Exit Sub
    End If
   

    ' Build Design Checker checks from a SolidWorks drawing document
    retValue = swDCAddIn.CreateChecksFromSWFile("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\FoodProcessor.slddrw")

    Select Case retValue
        Case 0
            Debug.Print "No errors running this report."
        Case 1
            Debug.Print "Report already exists."
        Case 2
            Debug.Print "Could not create report directory."
        Case 3
            Debug.Print "No active document."
        Case 4
            Debug.Print "Standards file does not exist."
    End Select

End Sub