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?

Outcomes