Batch export SOLIDWORKS models via vbScript
This example of vbScript which demonstrates how to batch export SOLIDWORKS documents using vbScript
Arguments
- Path to folder with SOLIDWORKS models
- Filter for the input files extension
- Path to output folder
- Extension of the output format
> "export-sw-models.vbs" "C:\Models" sldprt "C:\Output" step
Dim dirPath dirPath = WScript.Arguments.Item(0) Dim filter filter = WScript.Arguments.Item(1) Dim outDir outDir = WScript.Arguments.Item(2) Dim outExt outExt = WScript.Arguments.Item(3) Dim swApp Set swApp = CreateObject("SldWorks.Application") swApp.Visible = True Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim folder Set folder = fso.GetFolder(dirPath) dim file For Each file in folder.Files If LCase(fso.GetExtensionName(file.Path)) = LCase(filter) Then Dim docSpec Set docSpec = swApp.GetOpenDocSpec(file.Path) docSpec.ReadOnly = True Dim swModel Set swModel = swApp.OpenDoc7(docSpec) If Not swModel is Nothing Then Dim outFilePath outFilePath = outDir & "\" & fso.GetBaseName(file) & "." & outExt swModel.SaveAs outFilePath swApp.CloseDoc swModel.GetTitle() End If End If Next swApp.ExitApp