3 Replies Latest reply on Aug 7, 2014 7:38 AM by Deepak Gupta

    SaveAs2→Save as PDF, SldDrw File

    Yong Ning

      Now the save file code

      **********************

      Private Sub ll()

        Dim SwDraw As DrawingDoc

          Set SwDraw = Application.SldWorks.ActiveDoc

          Dim Path: Path = SwDraw.GetPathName

          Path = Left(Path, InStrRev(Path, "\"))

        Dim PathName

          PathName = Path & "aa" & ".SldDrw"

          SwDraw.SaveAs2 PathName, 0, False, False

          PathName = Path & "aa" & ".PDF"

          SwDraw.SaveAs2 PathName, 0, True, False

       

      End Sub

       

      ********************

      Help me.

      Need to be able to master save multiple file format → code

       

      Save as File format is  PDF,eAsm,ePrt,eDrw.

        SldDrw,SldPrt,SldDrw file format