1. Home
  2. Solidworks CAD Design software
  3. File Exporting Macro

File Exporting Macro

Good Morning

I am looking for a macro that will export an iges file into the current directory. I would like to create a button to execute this macro so I don't have to go into the file save as pull down all of the time.

Thanks Chris

Reply to
ctellers
Loading thread data ...

Here is a simple example will export the current drawing to the path it is saved in with the same name then it closes the drawing and exports the next this one saves to jpg dwg pdf and iges

Sub main()

Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc While Not Part Is Nothing If Part.GetType = swDocDRAWING Then Set AsDwgDoc = Part

PartName = Split(Part.GetPathName, ".", -1, vbTextCompare) 'boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET",

0.345055119859, 0.1814161421857, 0, False, 0, Nothing) Set ThisSheet = AsDwgDoc.GetCurrentSheet 'ThisSheet.GetName 'Set MyView = ThisSheet

Part.Extension.SelectByID ThisSheet.GetName, "SHEET", 0.025,

Reply to
CS

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.