2013 SOLIDWORKS API Help - Solidworks Help

Private Sub del20170412()

    Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

        Set SwApp = Application.SldWorks

        Set SwModel = SwApp.ActiveDoc

    Dim SwDraw As DrawingDoc

        Set SwDraw = SwModel

        SwApp.SetUserPreferenceIntegerValue swDxfOutputFonts, 1

        SwModel.SaveAs "E:\1.DWG"

End Sub