5 Replies Latest reply on Feb 1, 2016 12:12 PM by Avi Prager

    What to write in macro, so the file will be saved at permanent library?

    Avi Prager


      I have a macro that saves a file where the source file is.

      What I need to change, so that I can keep it in a fixed place?

      For example, C: \ MY-DXF \

      Thanks, Avi


      MY MACRO IS -

      Dim swApp As Object

      Dim Part As Object

      Dim Annotation As Object

      Dim Gtol As Object

      Dim DatumTag As Object

      Dim FeatureData As Object

      Dim Feature As Object

      Dim Component As Object

      Dim boolstatus As Boolean

      Dim longstatus As Long, longwarnings As Long



      Sub main()



      Set swApp = _


      Set Part = swApp.ActiveDoc

      FilePath = Part.GetPathName

      PartName = Left(FilePath, Len(FilePath) - 7)



      longstatus = Part.SaveAs2(PartName & ".DXF", 0, False, True)

      End Sub