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

---------------------------------

 

Thanks

Outcomes