CAD Forum

Hello,

For years I've been using a macro to export a SW drawing file as in pdf and dxf format in one go.

I use it daily and it's saved me so much time over the years.

I'd love to add an extra level of function to it, whereby any multi-sheet drawings are exported as individual dxf files with the sheet name as a suffix of each file name rather than the default numerical prefix.

I've tried editing the macro to add this, but my knowledge is negligible and have got nowhere.

I'll paste the existing code below, and if anyone can help me achieve what I'm after I'll be extremely grateful.

Thanks,
Martin



'------------------------------------------------------------------

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim sPathName As String
Dim nErrors As Long
Dim nWarnings As Long
Dim nRetval As Long
Dim bShowMap As Boolean
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swExportData As SldWorks.ExportPdfData
Dim filename As String
Dim boolstatus As Boolean
Dim lErrors As Long
Dim lWarnings As Long
Dim bRet As Boolean

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

' Strip off SolidWorks drawing file extension (.slddrw)
' and add DXF file extension (.dxf)
sPathName = swModel.GetPathName
sPathName = Left(sPathName, Len(sPathName) - 6)
sPathName = sPathName + "dxf"
' Show current settings


' Turn off showing of map
bShowMap = swApp.GetUserPreferenceToggle(swDXFDontShowMap)
Set swModelDocExt = swModel.Extension
Set swExportData = swApp.GetExportFileData(swExportPDFData)
filename = swModel.GetPathName
filename = Strings.Left(filename, Len(filename) - 6) & "PDF"
boolstatus = swExportData.SetSheets(swExportData_ExportAllSheets, 1)
boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportData, lErrors, lWarnings)
If boolstatus Then
MsgBox "A .PDF and a .DXF have been saved." & vbNewLine
Else
MsgBox "I didn't like that!" & lErrors '
End If
swApp.SetUserPreferenceToggle swDXFDontShowMap, False

bRet = swModel.SaveAs4(sPathName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, nErrors, nWarnings)
If bRet = False Then
nRetval = swApp.SendMsgToUser2("Problems saving file.", swMbWarning, swMbOk)
End If
' Restore old setting
swApp.SetUserPreferenceToggle swDXFDontShowMap, bShowMap
End Sub

'----------------------------------------------

There's already a pretty good example on the api help site:
https://help.solidworks.com/2020/englis ... ple_VB.htm

Hi AlexB, thanks for the link,

Funnily enough I had been looking at that very page and trying to tweak the above code to pull through the vSheetName parts into my existing macro. It was after many fruitless attempts that actually led me here to get some help from someone who knows what they're doing, as this is apparently beyond my abilities!

Martin

Martin Abbott Design wrote: ↑Wed Jul 03, 2024 5:52 am Hi AlexB, thanks for the link,

Funnily enough I had been looking at that very page and trying to tweak the above code to pull through the vSheetName parts into my existing macro. It was after many fruitless attempts that actually led me here to get some help from someone who knows what they're doing, as this is apparently beyond my abilities!

Martin

Hi Martin,

See if this does what you're looking for. I added a few lines to your code:

I don't know if this setting will affect a macro's output or not...

But what do you have for this setting? On mine, that setting saves out the files as
00_filename
01_filename
02_filename
etc...

and it doesn't use sheet name.

So maybe it isn't related.

DanPihlaja wrote: ↑Wed Jul 03, 2024 1:35 pm I don't know if this setting will affect a macro's output or not...

But what do you have for this setting?
image.png

On mine, that setting saves out the files as
00_filename
01_filename
02_filename
etc...

and it doesn't use sheet name.

So maybe it isn't related.

It does need to be selected to "save the active sheet only" and I've got that being set in the macro above in order to guarantee it outputs just one sheet at a time. When saving via the API, the filename provided to the save method will be what it's saved as. In this case, "fileName_sheetName". This does require looping through and activating each view before saving though which takes a bit of time, especially for larger drawings.

AlexB, that's absolutely perfect!

Thank you so much!