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