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