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

Outcomes