AnsweredAssumed Answered

How to Cancel SaveAs Dialog

Question asked by Alice Caspari on May 12, 2015
Latest reply on May 12, 2015 by Alice Caspari

I am trying to do a SaveAs on a drawing without saving any referenced files. The Macro below works for that but it pops up a dialog box prompting to save the part, which needs to be canceled. Is there a way to Cancel the dialog through the API?

 

 

Option Explicit

 

  

Dim swApp As Object

Dim swModel As ModelDoc2

Dim Part As ModelDocExtension

Dim bool As Boolean

Dim fileNamePath As String

Dim longstatus As Long, longwarnings As Long

 

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set Part = swModel.Extension

fileNamePath = "K:\Engineering\ALC\CONFIGURATOR\TestSave3-1.SLDDRW"

  

 

bool = Part.SaveAs(fileNamePath, swSaveAsCurrentVersion, (swSaveAsOptions_Copy & swSaveAsOptions_Silent), Nothing, 0, 0)

 

End Sub

 

Outcomes