Good morning I would like to have a Macro for saving the actual file (part or assembly) to the actual format (only save action) and to edrawings (export to) with the possibilty of append new sentences like save as 3D pdf,  the problem is that I dont know how to obtain the actual filename and how to put it . I would like that value were the actual name of the filie, I dont want to change the name only export(to edrawing) and save the solidworks file (sldprt or asm) at the same time with a custom button. I dont want to change the path.

Best regards

Mypath = CurDir

Set Part = swApp.ActiveDoc

longstatus = Part.SaveAs3(Mypath + "\\value.EPRT", 0, 0)