Sunday, 23 April 2017

SaveAs SolidWorks Active File at new Location with new name


* For this Program, you must open any file before use this macro.

Sub main()

Dim swApp As Object
Set swApp = Application.SldWorks

Dim longstatus As Long

Dim part As Object
Set part = swApp.ActiveDoc

longstatus = part.SaveAs3("F:\DESIGN LIBRARY\New Part 8.SLDPRT", 0, 2)
swApp.CloseDoc "New Part 8"

End Sub

No comments:

Post a Comment

Note: only a member of this blog may post a comment.