AnsweredAssumed Answered

SaveAs2→Save as PDF, SldDrw File

Question asked by Yong Ning on Aug 6, 2014
Latest reply on Aug 7, 2014 by Deepak Gupta

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