0 Replies Latest reply on Apr 12, 2017 3:53 AM by Yong Ning

    swDxfOutputFonts

    Yong Ning

      2013 SOLIDWORKS API Help - Solidworks Help

      FileSaveAsDXFOptions.gif

      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