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
SolidworksApi macros