Community
Inventor Forum
Welcome to Autodesk’s Inventor Forums. Share your knowledge, ask questions, and explore popular Inventor topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

pdf more than 1 sheet (question for bmiller63)

3 REPLIES 3
Reply
Message 1 of 4
BenjP
577 Views, 3 Replies

pdf more than 1 sheet (question for bmiller63)

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

 

 

3 REPLIES 3
Message 2 of 4
pauldoubet
in reply to: BenjP

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

Message 3 of 4
BenjP
in reply to: pauldoubet

Thanks paul,

 

I tried that and it works great. How can I embed it in an iLogic rule?

 

Thx

Ben

Message 4 of 4
coreyparks
in reply to: BenjP

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.")

 

Please mark this response "Accept as solution" if it answers your question.
-------------------------------------------------------------------------------------
Corey Parks

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report