Open Document Silently Example (VBA)
This example shows how to open a document silently; that is, without
dialog boxes.
'----------------------------------------------------
'
' Preconditions: sDocFileName exists at the specified
location.
'
' Postconditions: sDocFileName opens silently.
'
'-----------------------------------------------------
Option Explicit
Sub main()
Const
sDocFileName As
String = "C:\samples\hotrod.SLDprt"
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.modelDoc
Dim
nDocType As
Long
Dim
nErrors As
Long
Dim
nWarnings As
Long
Set
swApp = CreateObject("SldWorks.Application")
'
Determine type of SolidWorks file based on file extension
If
InStr(LCase(sDocFileName), "sldprt") > 0 Then
nDocType
= swDocPART
ElseIf
InStr(LCase(sDocFileName), "sldasm") > 0 Then
nDocType
= swDocASSEMBLY
ElseIf
InStr(LCase(sDocFileName), "slddrw") > 0 Then
nDocType
= swDocDRAWING
Else
'
Probably not a SolidWorks file...
nDocType
= swDocNONE
'...so
the file cannot be opened
Exit
Sub
End
If
Set
swModel = swApp.OpenDoc6(sDocFileName,
nDocType, _
swOpenDocOptions_Silent,
"", nErrors, nWarnings)
Debug.Print
"File = " & swModel.GetPathName
Debug.Print
" Error
=
" & nErrors
Debug.Print
" Warnings
= " & nWarnings
End Sub
'----------------------------------------------------