Avi Prager

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

Discussion created by Avi Prager on Jan 26, 2016
Latest reply on Feb 1, 2016 by 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

Outcomes