Check Against Existing File Example (VBA)

This example shows how to use the Design Checker API to check against an existing file.

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

'  1. Load the SolidWorks Design Checker add-in
'     (click Tools > Add-ins > SolidWorks Design Checker).
'  2. Open a part document.
'  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:

'  1. Select Drawing (*.drw;*.slddrw)

'     and

'  <SolidWorks_Install_dir>\samples\tutorial\advdrawings\FoodProcessor.slddrw

'     from the pop-up file dialog.
'  2. Check Builder launches and creates checks from the selected

'     drawing document.
'  3. Design Checker uses the checks to validate the active document and posts its results on a tab in the SolidWorks Task Pane.
'----------------------------------------------------------------------------

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swDCAddIn  As DesignCheckerLib.SWDesignCheck

    ' 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
   

    ' Select file, build checks, and validate the active document
    swDCAddIn.CheckAgainstExistingFile
   

End Sub