AnsweredAssumed Answered

how to save a part as .step in a specified folder

Question asked by N. V on Nov 20, 2014
Latest reply on Nov 21, 2014 by Brian Titus

I've been trying to create a macro that saves a part as a .step file, while saving all created step files into a specified folder (for example "C:\step\").

I know there is a way to run the macro and the specify the folder yourself, but I want to have it automatically saved into the same folder every time.


Can anyone help me with this?

Right now I have this:


Option Explicit


Dim swApp As Object

Dim Part As Object

Dim FilePath As String

Dim PathSize As Long

Dim PathNoExtention As String

Dim NewFilePath As String

Dim FileLocation As String

Dim Rev As String


Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc


FilePath = Part.GetPathName

PathSize = Strings.Len(FilePath)

Rev = Part.CustomInfo("Revision") ' Change Custom Property Here

FileLocation = "C:\step\"


PathNoExtention = Strings.Left(FilePath, PathSize - 7)


NewFilePath = FileLocation & PathNoExtention & " REV " & Rev


Part.SaveAs2 NewFilePath & ".STEP", 0, True, False


End Sub