Export PDF seperate iLogic not working

[GKPByDesign]

I have this iLogic code that takes a multi sheet file and exports each sheet, taking the sheet name, and then exporting them as seperate documents,

The code works great, however it is now not working, and I have no idea why ! It simply show the message box, OPDF Export Complete! But nothing happens. 

Can someone help 

'['Sub Variables
oRefDocs = ThisApplication.ActiveDocument.AllReferencedDocuments
Dim oDoc As Document
oFolder = ThisDoc.Path
oAddIns = ThisApplication.ApplicationAddIns
oTG = ThisApplication.TransientObjects']
'['PDF Export
'['PDF Options
PDFAddIn = oAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oContext = oTG.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = oTG.CreateNameValueMap
oDataMedium = oTG.CreateDataMedium
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet']
For Each oDoc In oRefDocs
	idwPathName = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) -3) & "idw"
	If System.IO.File.Exists(idwPathName) Then
		oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
		For Each oSheet As Sheet In oDrawDoc.Sheets
			oSheet.Activate
			oDataMedium.FileName = oFolder + oSheet.Name + ".pdf"
			Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
		Next
		oDrawDoc.Close(True)
	End If
Next']
MessageBox.Show("PDF Export completed.", "PDF Export", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

[GKPByDesign]

Also when it does work it doesn't make a unique name on sheets of the same name. 

[Sergio.D.Suárez]

Hi, I make a suggestion. Have you saved your idw file before executing the rule? because it takes the path of the active file, and if it is not saved the route will be empty, and the saved can not be made. On the other hand, the dialog box should be inside the if-then-end if
Immediately after oDrawDoc.Close (True)
In this way, if this condition is met, the export will have been created.
I hope this helps greetings

[CCarreiras]

Hi!

Well, I can create the files, but, i can't wonder why I can't achieve the pdf extension.

I change the file save location to the project folder, and i disable the close document (i guess is not a good idea to close a document from a rule this inside the document).

So, the files will be created in the project folder.

'['Sub Variables
oRefDocs = ThisApplication.ActiveDocument.AllReferencedDocuments
Dim oDoc As Document
oFolder = ThisDoc.WorkspacePath()
oAddIns = ThisApplication.ApplicationAddIns
oTG = ThisApplication.TransientObjects']
'['PDF Export
'['PDF Options
PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")'oAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oContext = oTG.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium


'oOptions = oTG.CreateNameValueMap
'oDataMedium = oTG.CreateDataMedium
'Options
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet']

For Each oDoc In oRefDocs
	idwPathName = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) -3) & "dwg"
	If System.IO.File.Exists(idwPathName) Then
		oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
		
		For Each oSheet As Sheet In oDrawDoc.Sheets
			oSheet.Activate
			
			SavePath= oFolder & oSheet.Name 
			
			oDataMedium.FileName = SavePath & ".pdf"
			
			Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
		Next
		'oDrawDoc.Close(True)
		MessageBox.Show("PDF Export completed.", "PDF Export", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
	End If
Next']

[clutsa]

I added a "\" in the filepath and did a replace on the sheetname so colons would be dashes... see if that helps.

'['Sub Variables
oRefDocs = ThisApplication.ActiveDocument.AllReferencedDocuments
Dim oDoc As Document
oFolder = ThisDoc.Path
oAddIns = ThisApplication.ApplicationAddIns
oTG = ThisApplication.TransientObjects']
'['PDF Export
'['PDF Options
PDFAddIn = oAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oContext = oTG.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = oTG.CreateNameValueMap
oDataMedium = oTG.CreateDataMedium
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet']
For Each oDoc In oRefDocs
	idwPathName = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) -3) & "idw"
	If System.IO.File.Exists(idwPathName) Then
		oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
		For Each oSheet As Sheet In oDrawDoc.Sheets
			oSheet.Activate
			oDataMedium.FileName = oFolder & "\" & Replace(oSheet.Name, ":","-") & ".pdf"
			Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
		Next
		oDrawDoc.Close(True)
	End If
Next']
MessageBox.Show("PDF Export completed.", "PDF Export", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

[CCarreiras]

HI!

It works!!

Just removed the close doc to avoid the final errors

[GKPByDesign]

I am still have an issue with the attached drawing, my original code work with older drawings create a few weeks ago, but I have had a chance to check it on new files, is any unable to run a rebuff or something on why its not working? 

[clutsa]

I only see one drawing in your zip file (I can't open them because I'm still rocking INV2018) don't there have to be drawings with the same name as the sub parts to run?

[GKPByDesign]

not suer what you mean, and I can't backside the files. Basically the code was working and now its not? What can I do to the code to debug or show error? 

[clutsa]

You can add message boxes like below to check your variables... as you're on 2019.1 or newer you can also use the logger... I can't show you that but https://knowledge.autodesk.com/support/inventor-products/learn-explore/caas/CloudHelp/cloudhelp/2019... might help.

'['Sub Variables
oRefDocs = ThisApplication.ActiveDocument.AllReferencedDocuments
Dim oDoc As Document
oFolder = ThisDoc.Path
oAddIns = ThisApplication.ApplicationAddIns
oTG = ThisApplication.TransientObjects']
'['PDF Export
'['PDF Options
PDFAddIn = oAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oContext = oTG.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = oTG.CreateNameValueMap
oDataMedium = oTG.CreateDataMedium
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet']
For Each oDoc In oRefDocs
	idwPathName = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) -3) & "idw"
	If System.IO.File.Exists(idwPathName) Then
		MessageBox.Show("idwPathName = " & idwPathName, "Title")
		oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
		For Each oSheet As Sheet In oDrawDoc.Sheets
			oSheet.Activate
			oDataMedium.FileName = oFolder & "\" & Replace(oSheet.Name, ":","-") & ".pdf"
			Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
		Next
		oDrawDoc.Close(True)
	End If
Next']
MessageBox.Show("PDF Export completed.", "PDF Export", MessageBoxButtons.O

[clutsa]

@GKPByDesign Sorry I was in a bit of a hurry yesterday. My guess is there is no error being thrown your program just isn't finding anything to PDF. From what I got debugging your code is

1. It starts with an assembly file and looks at all parts/sub-components associated to that assembly

2. It looks for any idw's in the same directory as the main assembly that have the same name as any of the parts/subs

3. If an idw is found it opens that idw and prints a PDF for each sheet to the same directory as the main assembly

4. Continues loop of 2 and 3 till all parts have been looked at.

From what I saw in your zip file you didn't have any drawings that were named like any of the parts (all I saw was a "drawing2.idw" but no parts named "drawing2.ipt" or "drawing2.iam" so your code will never open drawing2 and thus no PDFs. 

The bit of code I added will open a messagebox with an "OK" button to click if it finds any drawings to open... if you don't get that message then my assumption is correct. 

[GKPByDesign]

So the error was that the top assembly was as you mentioned a different name to the drawing, for the code to work this needs to be the same. So thank you for this. My other point is I want the code to label the file name as sheet only, but if there is a file of the same name to give it a unique name, eg 1, 2, 3 but only if there is conflict. I don't want every sheet to have their sheet number on the PDF name. 

[GKPByDesign]

Now my original code isn't working and is giving this error

Error in rule: gkp-Export PDF - Seperate, in document: 334 - 01-00 - GA - Vanity Units.idw

Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))

System.Runtime.InteropServices.COMException (0x80004005): Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))

   at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)

   at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)

   at ThisRule.Main()

   at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)

   at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

[clutsa · Accepted solution]

This isn't the cleanest code ever but might work.

'['Sub Variables
oRefDocs = ThisApplication.ActiveDocument.AllReferencedDocuments
Dim oDoc As Document
oFolder = ThisDoc.Path
oAddIns = ThisApplication.ApplicationAddIns
oTG = ThisApplication.TransientObjects']
'['PDF Export
'['PDF Options
PDFAddIn = oAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oContext = oTG.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = oTG.CreateNameValueMap
oDataMedium = oTG.CreateDataMedium
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet']
For Each oDoc In oRefDocs
	idwPathName = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) -3) & "idw"
	If System.IO.File.Exists(idwPathName) Then
		oDrawDoc = ThisApplication.Documents.Open(idwPathName, True)
		For Each oSheet As Sheet In oDrawDoc.Sheets
			NameUnique = False
			Count = 1
			oSheet.Activate
			oDataMedium.FileName = oFolder & "\" & Left(oSheet.Name,Len(oSheet.Name) - (Len(oSheet.Name) - InStr(oSheet.Name, ":")) - 1) & ".pdf"
			TempName = oDataMedium.FileName
			Do Until NameUnique = True
				If System.IO.File.Exists(TempName) Then 
					TempName = Left(oDataMedium.FileName,Len(oDataMedium.FileName)-4) & count & ".pdf"
					count = count + 1
						If count > 100 Then NameUnique = True 'stop infinite loop
				Else
					NameUnique = True
					oDataMedium.FileName = TempName
				End If
			Loop
			'MessageBox.Show("oDataMedium.FileName = " & oDataMedium.FileName, "Title")

			'oDataMedium.FileName = oFolder & "\" & Replace(oSheet.Name, ":","-") & ".pdf"
			Call PDFAddIn.SaveCopyAs(oDrawDoc, oContext, oOptions, oDataMedium)
		Next
		oDrawDoc.Close(True)
	End If
Next']
MessageBox.Show("PDF Export completed.", "PDF Export", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

[clutsa]

When you say original code what do you mean? Is there more code then what we've been talking about or did you try to make the changes above and it didn't work?