Community
create a ilogic rule:
The following is not finished, but it will do it for you 🙂
My_extension_1 = InputBox("Enter Extension", "Type in the Extension you Want", "Fill in Extension ex: .stl .jpg .pdf") 'My_extension_2 = ".pdf" ThisDoc.Document.SaveAs(ThisDoc.ChangeExtension(My_extension_1), True) 'UPDATE: Using the line Of iLogic code above will save the files in the same folder As the 2D drawing. If you want To save it In a different folder you can predifine the location Using the following: 'choose the place to save at? Possibly ask to save? 'strFolder = "D:\files\" & ThisDoc.FileName(False) 'without extension 'ThisDoc.Document.SaveAs(strFolder & (".jpg") , True) 'ThisDoc.Document.SaveAs(strFolder & (".pdf") , True) MessageBox.Show("All file formats saved", "File Save")
You have responded to a file that is 10 years old.
All of this is obsolete and no longer necessary.
Simply File Save As>Save Copy as and set the Save as type to *.stl