I am trying to write a Macro to automate the export of flat patterns from SW SLDPRT files containing a single Sheet-Metal part and associated Flat-Pattern.
I have gone through the forums and other online sources and my current macro is as follows:
Function ExportFlatPatternDXF(ByVal filePath As String) As Boolean
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
boolstatus = swModel.ExportFlatPatternView(filePath, 0)
I am not calling SaveAs in this function as it is performed later in the macro (this is only part of a larger automation workflow).
The function works fine and exports the DXF correctly. My only problem is that when ExportFlatPatternView is called, a SaveAs dialog pops up to force me to save the part before proceeding.
How can I avoid / suppress this SaveAs dialog?