I already found this macro in an older Thread:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Dim confName As String
Dim revNmb As String
Dim fileName As String
confName = swModel.ConfigurationManager.ActiveConfiguration.Name
revNmb = swModel.Extension.CustomPropertyManager(confName).Get("Revision")
fileName = confName & " - " & revNmb & ".step"
swModel.Extension.SaveAs "c:\" & fileName, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, 0, 0
It works but I need it to save the STEP with the name of the "Part" (for example if the parts name is Sheet Metal 1 the .STEP should be named Sheet Metal 1 .STEP) instead of confName & revNmb but I just cant seem to get it to work.
I sadly have 0 knowledge how this programming language works.
I would also need the same macro to save the active drawing to a .dxf
I would appreciate any help on this since I have been googeling for like 3 hours