AnsweredAssumed Answered

Help with SaveAs in macro

Question asked by Daniel Driscoll on Jul 10, 2014
Latest reply on Apr 25, 2017 by Marcos Scheeren

I'm having some trouple getting parts to save as an edrawing format. I've stepped through the program, everything is set to the expected values for all statements, but for some reason the SaveAs function returns false, no errors or warnings, and does not create anything in the target directory. If I use the supposedly obsolete SaveAs3 method (this is how it shows up when recording a macro), it even pops up the edrawings export configuration selection, but does not create a file.

 

 

Public Function ExportNamedEdraw(swCompModel, ExportPath, sDocNameNoExtension) As Boolean

 Dim nErrors As Long
 Dim nWarnings As Long
    NewFilePath = ExportPath & sDocNameNoExtension
    If swCompModel.GetType = swDocPART Then
        NewFilePath = NewFilePath & ".EPRT"
    ElseIf swCompModel.GetType = swDocASSEMBLY Then
        NewFilePath = NewFilePath & ".EASM"
    End If
    
    Set swApp = Application.SldWorks
    bThrowaway = swApp.SetUserPreferenceIntegerValue(swEdrawingsSaveAsSelectionOption, swEdrawingSaveAll)
    ExportNamedEdraw = swCompModel.Extension.SaveAs(NewFilePath, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings)
    
End Function

 

 

Anyone have any ideas as to how to resolve this?

Outcomes