Open Advanced Dialog on Document Open Example (VBA)

This example shows how to open an advanced dialog box before opening a document.

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

' Preconditions:

' Ensure that the document specified for openDocParams below exists.

'

' Postconditions:

' 1. A Configure Document dialog box appears before the document is opened.

' 2. Click Ok or Cancel to close the dialog box.

' 3. Close the document without saving.

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

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks

    Dim myDoc As SldWorks.ModelDoc2

    Dim openDocParams As SldWorks.DocumentSpecification

    Dim boolstatus As Boolean

    Dim longstatus As Long, longwarnings As Long

    Set swApp = Application.SldWorks

    Set openDocParams = swApp.GetOpenDocSpec("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\motionstudies\valve_cam2.sldasm")

    openDocParams.DocumentType = SwConst.swDocASSEMBLY

    openDocParams.InteractiveAdvancedOpen = True

    Set myDoc = swApp.OpenDoc7(openDocParams)

End Sub