6 Replies Latest reply on Sep 8, 2017 1:24 AM by Abilash V.

    Pack and go unable to change filename

    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