Options too create multi-page pdf
for devolper is too send this pdf too "exportfolder"
exampel code thats i use in APS/Inventor i create all export item too exportfolder
before i send zip ACC-folder
Class ThisRule
Sub Main()
Trace.TraceInformation("Before PDF")
Dim FileName As String = iProperties.Value("Project", "Part Number")
PublishPDF(FileName & ".pdf", 1, 1)
PublishPDF("Balcony" & ".pdf", 1,1)
Trace.TraceInformation("Before After PDF")
End Sub
Sub PublishPDF(name As String, SheetStart As Integer, sheetEnd As Integer)
Dim PDFAddIn As TranslatorAddIn= ThisServer.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
'Set a reference to the active document (the document to be published).
Dim oDocument As Document = ThisDoc.Document
Dim oContext As TranslationContext = ThisServer.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap = ThisServer.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium= ThisServer.TransientObjects.CreateDataMedium
' Check whether the translator has 'SaveCopyAs' options
If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
' Options for drawings...
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
'oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = kPrintSheetRange
oOptions.Value("Custom_Begin_Sheet") = SheetStart
oOptions.Value("Custom_End_Sheet") = sheetEnd
End If
'Set the destination file name
' oDataMedium.FileName = System.IO.Path.GetDirectoryName(ThisDoc.Path) & "\ExportFiles\" & name
If name = "Balcony" & ".pdf" Then
oDataMedium.FileName = System.IO.Path.GetDirectoryName(ThisDoc.Path) & "\" & name
Else
oDataMedium.FileName = System.IO.Path.GetDirectoryName(ThisDoc.Path) & "\ExportFolder\" & name
End If
'Publish document.
PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
End Sub
End Class
