2 Replies Latest reply on Jul 9, 2017 4:27 AM by Daniel Sailer

    Macro to export DXF of unsaved drawing.

    Daniel Sailer

      Hi SolidWorks Macro specialists,


      I have a simple macro to export drawings to DXF.


      Dim swApp As Object


      Dim Part As Object

      Dim boolstatus As Boolean

      Dim longstatus As Long, longwarnings As Long


      Sub main()


      Set swApp = _



      Set Part = swApp.ActiveDoc

      Dim myModelView As Object

      Set myModelView = Part.ActiveView

      myModelView.FrameState = swWindowState_e.swWindowMaximized


      If (swApp.ActiveDoc.GetPathName = "") Then          'Check if file is saved

          MsgBox ("First save the drawing!")

          Exit Sub

      End If


      saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf" ' Save as DXF

      longstatus = Part.SaveAs2(saveFileName, 0, 1, 1)

      End Sub


      Now the goal is to export the drawing without saving it before. How can I get the name and Path of the parent part? This is needed for, I think it is called like "flat pattern ..." in English. In this case there is no need to save the drawing.


      Hopefully you understand my explanation.


      Thank you very much!