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

      Hi,

      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 = _

      Application.SldWorks

      Set Part = swApp.ActiveDoc

      FilePath = Part.GetPathName

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

       

       

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

      End Sub