Open Document Example (VBA)

This example shows how to programmatically open a document and set the SolidWorks working directory.

'---------------------------------------------------------------------------
' Preconditions: Ensure that the specified document exists.
' Postconditions:
' 1. The specified document is opened.
' 2. The SolidWorks working directory is set to the document directory.
'---------------------------------------------------------------------------

Option Explicit

Dim swApp       As SldWorks.SldWorks
Dim doc         As SldWorks.ModelDoc2
Dim fileerror   As Long
Dim filewarning As Long

Sub main()

    Set swApp = Application.SldWorks
    swApp.Visible = True
   

    ' Get the current working directory before opening the document
    Debug.Print "Current working directory is " & swApp.GetCurrentWorkingDirectory
   

    Set doc = swApp.OpenDoc6("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\chair.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)
   

    ' Opening a document with SldWorks::OpenDoc6 does not set the working directory
    Debug.Print "Current working directory is still " & swApp.GetCurrentWorkingDirectory
   

    ' Set the working directory to the document directory
    swApp.SetCurrentWorkingDirectory (Left(doc.GetPathName, InStrRev(doc.GetPathName, "\")))
   

    Debug.Print "Current working directory is now " & swApp.GetCurrentWorkingDirectory

End Sub