SOLIDWORKS Tips: Macro to convert to anything
'Declare variables to be used
Dim swApp As SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim swModelExt As SldWorks.ModelDocExtension
Dim ModelPath As String
Dim FullPath As String
Dim longstatus As Long
Dim longwarnings As Long
Dim errors As Long
Dim boolstatus As Boolean
Sub main()
'Connect to SOLIDWORKS
Set swApp = Application.SldWorks
'Connect to open model
Set swmodel = swApp.ActiveDoc
'Connect to Model Extension
Set swModelExt = swmodel.Extension
'get file path
ModelPath = swmodel.GetPathName
'trim off file extension
FullPath = Left(ModelPath, Len(ModelPath) - 7)
' Save As Change the extension ".stl" below to switch to any export format
longstatus = swModelExt.SaveAs(FullPath & ".stl", 0, 2, Nothing, errors, longwarnings)
End Sub