iLogic Rule for .idw to .pdf modification

jeffbohn — Wed, 09 Jan 2019 16:56:16 GMT

This is my first posting to the forums and would like to apologize if this has already been answered.

We have been using an iLogic Rule to print .idw files to .pdf. This rule takes each .idw file and creates a .pdf. It builds a PDF Folder if one does not exist and inserts the .pdf files into the PDF Folder. This iLogic Rule works as intended for creating individual .pdf files from an .idw.

I would like to modify this iLogic Rule in include printing a .pdf of all ages in the .idw file in addition to individual .pdf files when I run the rule. I currently have to do a separate Print Drawing command for doPDF v7, All Sheets, to get all the pages into one .pdf file.

I have included the current iLogic Rule we are using in the hopes that someone can suggest additional code that will run an "All Sheets" print command to .pdf.

Thank you very much for your assistance.

iLogic Rule:

Format:HTML Format Version:1.0 StartHTML: 165 EndHTML: 21574 StartFragment: 314 EndFragment: 21542 StartSelection: 314 EndSelection: 314SyntaxEditor Code Snippet

oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById _
("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

'Define the drawing
Dim oDrawing As DrawingDocument
oDrawing = ThisDoc.Document

Dim oSheet As Sheet
Dim lPos As Long
Dim rPos As Long
Dim sLen As Long
Dim sSheetName As String
Dim iSheetNumber As Integer

'step through each drawing sheet
For Each oSheet In oDrawing.Sheets

'find the seperator in the sheet name:number
lPos = InStr(oSheet.Name, ":")
'find the number of characters in the sheet name
sLen = Len(oSheet.Name)
'find the sheet name
sSheetName = Left(oSheet.Name, lPos -1)
'find the sheet number
iSheetNumber = Right(oSheet.Name, sLen -lPos)

'set PDF Options
If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 0
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintSheetRange
oOptions.Value("Custom_Begin_Sheet") = iSheetNumber
oOptions.Value("Custom_End_Sheet") = iSheetNumber
End If

'get PDF target folder path
oFolder = oPath & "\PDF"

'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then
    System.IO.Directory.CreateDirectory(oFolder)
End If


'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & sSheetName & ".pdf"

'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

Next

Re: iLogic Rule for .idw to .pdf modification

Anonymous — Wed, 09 Jan 2019 18:52:35 GMT

Hello jeffbohn

you send a nice iLogic rule, thank you...

We use an iLogic rule, wich prints all pages (sheets) from the actually open idw-Drawing. Here in we use :

oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets

But we can print only one file after the other. Now I will try yours.

Here is our complete rule:

'------------------------------------IDW - PDF speichern---------------------------------------------

path_and_name = ThisDoc.PathAndFileName(False) ' ohne Verl䮧erung - without extension

PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

oDocument = ThisApplication.ActiveDocument

oContext = ThisApplication.TransientObjects.CreateTranslationContext

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

oOptions = ThisApplication.TransientObjects.CreateNameValueMap

oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then

oOptions.Value("All_Color_AS_Black") = 0

oOptions.Value("Remove_Line_Weights") = 0

oOptions.Value("Vector_Resolution") = 4800

oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets

'oOptions.Value("Custom_Begin_Sheet") = 2

'oOptions.Value("Custom_End_Sheet") = 4

End If

'Zieldateiname - targetfilename

oDataMedium.FileName = path_and_name & ".pdf"

'Dokument drucken - print document

PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)

Hope it helps you

Greetings

Frank

topic Re: iLogic Rule for .idw to .pdf modification in Inventor Forum

iLogic Rule for .idw to .pdf modification

Re: iLogic Rule for .idw to .pdf modification