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
File Exporting Macro
Mar 22, 2005
1 Replies
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 = ThisSheetPart.Extension.SelectByID ThisSheet.GetName, "SHEET", 0.025,
Join the Discussion
Have something to add? Share your thoughts — no account required.
Didn't find your answer?
Ask the community — no account required