AnsweredAssumed Answered

ExportFlatPatternView (flat patterns to dxf's)I

Question asked by Jason Bourne on Mar 16, 2015
Latest reply on Mar 17, 2015 by Jason Bourne

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)


End Function



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?