Help: Open PDF Files via API

[ngdnam88]

Dears,

I'm learning to create the Add-in. Please help me the key code to Open .PDF Files via API. I didn't found any relative information. I'm try this code but PDF file didn't open.

Dim PDFFileOutput As String = PDFFolder & "\" & PDFFilename & ".pdf"
System.IO.File.Open(PDFFileOutput, IO.FileMode.Open)

Thanks,

Merry Christmas and Happy New Year!

[bradeneuropeArthur · Accepted solution]

acrobatFile = filename
 Shell("C:\Program Files\Adobe\Reader _
11.0\Reader\AcroRd32.exe " & acrobatFile, vbNormalFocus)

[ngdnam88]

Thanks @bradeneuropeArthur 
Can we control this function via API?

I'm using these code lines

Dim Options = _InventorApp.TransientObjects.CreateNameValueMap               
If PDFAddIn.HasSaveCopyAsOptions(DOC, Context, Options) Then
 Options.Value("All_Color_AS_Black") = 1
 Options.Value("Remove_Line_Weights") = 1
 Options.Value("Vector_Resolution") = 720
 Options.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet

[bradeneuropeArthur]

Yes.

Let me have a look.

It is something about preview.....

[bradeneuropeArthur]

Try this option
ViewPDFWhenFinished = true

Regards,

Arthur Knoors

[ngdnam88]

It's still not working @bradeneuropeArthur

I'm trying using this Options

Options.Value("ViewPDFWhenFinished") = True
Options.Value("View_PDF_When_Finished") = True
Options.Value("DisplayPublishedFileinViewer") = True
Options.Value("Display_Published_File_in_Viewer") = True

Maybe this Option is for 3D PDF Only, I found it in this pos:
https://forums.autodesk.com/t5/inventor-ri-ben-yu/ilogicdeidwwo3dpdfni-bian-huanshitai/m-p/10985482#...

[bradeneuropeArthur]

This function only works with the Export option via Inventor. You can fund that in the API help of inventor.

[bradeneuropeArthur]

Public Sub PublishPDF()
' Get the PDF translator Add-In.
Dim PDFAddIn As TranslatorAddIn
Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
'Set a reference to the active document (the document to be published).
Dim oDocument As Document
Set oDocument = ThisApplication.ActiveDocument
Dim oContext As TranslationContext
Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium
Set oDataMedium = ThisApplication.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") = 0
'oOptions.Value("Vector_Resolution") = 400
'oOptions.Value("Sheet_Range") = kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
End If
'Set the destination file name
oDataMedium.FileName = "c:\\temp\\test.pdf"
'Publish document.
Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
End Sub