Hi bmiller,
you created once an iLogic script to save as pdf when saving the idw. It works great!
(See posting http://forums.autodesk.com/t5/Autodesk-Inventor/iLogic-help/td-p/2795428)
Would there be any chance to get inventor to save all sheets of an idw into one pdf in one step?
Thx
Ben
You can do this from Inventor 2011 using the 'Export' option, select the 'PDF' option, then select the 'Options' button at the bottom of the file name dialog box. Have you tried using this method?
Paul
Thanks paul,
I tried that and it works great. How can I embed it in an iLogic rule?
Thx
Ben
Try this, it seems to work just fine in an iLogic rule. You will need to modify where it saves as I force all my PDF's to a single directory. Also you might want to remove the msg box as well.
' Get the PDF translator Add-In.
DimPDFAddInAsTranslatorAddIn
PDFAddIn=ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
'Set a reference to the active document (the document to be published).
DimoDocumentAsDocument
oDocument=ThisApplication.ActiveDocument
DimoContextAsTranslationContext
oContext=ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type=kFileBrowseIOMechanism
' Create a NameValueMap object
DimoOptionsAsNameValueMap
oOptions=ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
DimoDataMediumAsDataMedium
oDataMedium=ThisApplication.TransientObjects.CreateDataMedium
' Check whether the translator has 'SaveCopyAs' options
IfPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions)Then
' Options for drawings...
oOptions.Value("All_Color_AS_Black")=0
'oOptions.Value("Remove_Line_Weights") = 0
'oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range")=kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
EndIf
'Set the destination file name
DimFilenameAsString
Filename=Left(oDocument.DisplayName, Len(oDocument.DisplayName)-4)
oDataMedium.FileName=("C:\Corey\PDF files for construction\"+Filename+".pdf")
'Publish document.
CallPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
MsgBox("Woo Hoo, PDF Complete.")