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?