AnsweredAssumed Answered

Pack and go unable to change filename

Question asked by Abilash V. on Sep 7, 2017
Latest reply on Sep 8, 2017 by Abilash V.

The following is the code which I have written for pack and go.Even after changing the file name .There is no filename change.

 

Dim swApp As SldWorks.SldWorks

Dim swmodel As SldWorks.ModelDoc2

Dim swpack As SldWorks.PackAndGo Dim err As Long

Dim war As Long Dim status As Variant

Dim bool  As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swmodel = swApp.ActiveDoc

Set swpack = swmodel.Extension.GetPackAndGo

bool = swpack.SetDocumentSaveToNames("C:\Users\pan\Desktop\newpart.SLDPRT")

status = swmodel.Extension.SavePackAndGo(swpack)

End Sub

 

Regards

Abilash

Outcomes