ilogic auto save pdf

[sandhalet]

Hi.

I've used this Ilogic rule for years now.

But when i updated to inventor 2018 it wont work anymoore.

can anyone spot an error in this rule ?

See attached images for error message.

Thank you.

-Stian Sandhåland

SyntaxEditor Code Snippet

oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("project", "revision number")
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 


If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2'oOptions.Value("Custom_End_Sheet") = 4
End If 


'get PDF target folder path
oFolder = "k:\dwg\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 & "\" & oFileName & _
" rev" & oRevNum & ".pdf" 


'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 
'------end of iLogic-------

[t_hascj]

Hi sandhalet,

Similar issue was resolved in this discussion. https://forums.autodesk.com/t5/inventor-forum/pdf-ilogic/td-p/7409690

Try to add Dim to code.

Dim oContext As TranslationContext
Dim oOptions As NameValueMap
Dim oDataMedium As DataMedium

Thanks,
Jaroslav

[sandhalet]

thx for reply

Tried adding dim to my code, but it didn't help.

but the code i found on the link works,

I was unable to change the save location however, it just saves the pdf in the same location as the idw file.

i tried to paste some of the code old code into the new code

SyntaxEditor Code Snippet

oFolder = "k:\dwg\pdf\"

But then the code does nothing.

i probably has to delete the part of the code saying to save the pdf at the idw location ?

-Stian

[t_hascj]

Probably there is problem with duplicate "\"

oFolder = "k:\dwg\pdf"
oDataMedium.FileName = oFolder & "\" & oFileName &

Jaroslav

[MechMachineMan · Accepted solution]

Try this revised version.

oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("project", "revision number")
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 


If oPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2'oOptions.Value("Custom_End_Sheet") = 4
End If 


'get PDF target folder path
oFolder = "k:\dwg\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 & "\" & oFileName & _
" rev" & oRevNum & ".pdf" 


'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 
'------end of iLogic-------

[sandhalet]

Works perfectly.

Thanks 🙂

[mickmac06]

Hi MechMachineMan,

I have copied your iLogic code that you very kindly posted on this forum, and I was wondering if you had a solution to save the PDFs into different folders? I want to save the PDFs into a dedicated PDF folder as shown in your iLogic, but your code creates a PDF folder, and all PDFs are saved into this one folder. I have a PDF folder created for each job, so depending on what job your are working on, the PDFs need to be saved to a PDF folder within the relevant job folder. Is this possible?

Thanks,

Mike 

[bradeneuropeArthur]

oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("project", "revision number")
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 


If oPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2'oOptions.Value("Custom_End_Sheet") = 4
End If 


'get PDF target folder path
oFolder = ThisDoc.Path & "\pdf" 'instead of "k:\dwg\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 & "\" & oFileName & _
" rev" & oRevNum & ".pdf" 


'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 
'------end of iLogic-------

[mickmac06]

Thanks Bradeneurope, works a treat.

Regards,

Mike

[bradeneuropeArthur]

Your thanks are appreciated.

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[per.widegren]

interesting and very useful i must say. Many Many thanks for showing how the code can look like.

Is there any way to add creation of STEP file as well?

And how would that look like.

Sorry for all those questions but I´m really new on this.

BR

Per

[bradeneuropeArthur]

Yes:

oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("project", "revision number")
oStepAddIn = ThisApplication.ApplicationAddIns.ItemById _
("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium 


If oStepAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
' Set application protocol.
        ' 2 = AP 203 - Configuration Controlled Design
        ' 3 = AP 214 - Automotive Design
        oOptions.Value("ApplicationProtocolType") = 3

        ' Other options...
        'oOptions.Value("Author") = ""
        'oOptions.Value("Authorization") = ""
        'oOptions.Value("Description") = ""
        'oOptions.Value("Organization") = ""


End If 


'get Step target folder path
oFolder = "k:\dwg\Step\"


'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 & "\" & oFileName & _
" rev" & oRevNum & ".stp" 


'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 
'------end of iLogic-------

[per.widegren]

Hello again,

I have now get it up and run and it works well.

This code create a step file and a PDF file as well when I´m in drawing mode. Works brilliant 🙂 BUT.......

When the drawing is showing exploded views it will not work No STEP file created just and PDF.

Is there any way to grab the source file (.IAM)from where the presentation mode (*.IPN) are build on?

This is how my code looks like right now.

SyntaxEditor Code Snippet

'define the model referenced by the drawing
Dim oModelDoc = ThisDoc.ModelDocument
' Get the STEP translator Add-In.
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
If oSTEPTranslator.HasSaveCopyAsOptions(oModelDoc, oContext, oOptions) Then

'Options for STEP output
oOptions.Value("ApplicationProtocolType") = 3 'Set application protocol: 2 = AP 203 - Configuration Controlled Design, 3 = AP 214 - Automotive Design
oOptions.Value("Author") = ThisApplication.GeneralOptions.UserName
oOptions.Value("Authorization") = ""
oOptions.Value("Tolerance") = "0.00001 mm"
oOptions.Value("Description") = iProperties.Value("Summary", "Title")
oOptions.Value("Organization") = "IKM Technique AS"

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = ThisApplication.TransientObjects.CreateDataMedium



FilePath= ThisDoc.Path    'This .IDW's path
OutputPath = FilePath & "\" & "STP"    'Output destination for the new STP
OutputFileName = iProperties.Value("Project", "Part Number") '& "Rev" & oRevnum & ".stp" 'Output File Name as specified in Custom iProperties, as specified by the iLogic rule OutputFileName

'Check for existance of STP folder and create if not found
If Not System.IO.Directory.Exists(OutputPath) Then
    System.IO.Directory.CreateDirectory(OutputPath)
End If


oRevNum = iProperties.Value("project", "revision number")

'Set the destination path & file name
oData.FileName = OutputPath & "\" & OutputFileName & "_Rev_" & oRevNum & ".stp"

'Publish Document
oSTEPTranslator.SaveCopyAs(oModelDoc, oContext, oOptions, oData)
End If

  

[bradeneuropeArthur]

Dim a As Application
Set a = ThisApplication

Dim b As PresentationDocument
Set b = a.ActiveDocument


'define the model referenced by the drawing
Dim oModelDoc = b.ReferencedDocuments.Item(1)'ThisDoc.ModelDocument
' Get the STEP translator Add-In.
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
If oSTEPTranslator.HasSaveCopyAsOptions(oModelDoc, oContext, oOptions) Then

'Options for STEP output
oOptions.Value("ApplicationProtocolType") = 3 'Set application protocol: 2 = AP 203 - Configuration Controlled Design, 3 = AP 214 - Automotive Design
oOptions.Value("Author") = ThisApplication.GeneralOptions.UserName
oOptions.Value("Authorization") = ""
oOptions.Value("Tolerance") = "0.00001 mm"
oOptions.Value("Description") = iProperties.Value("Summary", "Title")
oOptions.Value("Organization") = "IKM Technique AS"

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = ThisApplication.TransientObjects.CreateDataMedium



FilePath = ThisDoc.Path   'This .IDW's path
OutputPath = FilePath & "\" & "STP"    'Output destination for the new STP
OutputFileName = iProperties.Value("Project", "Part Number") '& "Rev" & oRevnum & ".stp" 'Output File Name as specified in Custom iProperties, as specified by the iLogic rule OutputFileName

'Check for existance of STP folder and create if not found
If Not System.IO.Directory.Exists(OutputPath) Then
    System.IO.Directory.CreateDirectory (OutputPath)
End If


oRevNum = iProperties.Value("project", "revision number")

'Set the destination path & file name
oData.FileName = OutputPath & "\" & OutputFileName & "_Rev_" & oRevNum & ".stp"

'Publish Document
oSTEPTranslator.SaveCopyAs(oModelDoc, oContext, oOptions, oData)
End If

Or use this:

Dim oModelDoc = ThisDoc.ReferencedDocuments.Item
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
If oSTEPTranslator.HasSaveCopyAsOptions(oModelDoc, oContext, oOptions) Then

'Options for STEP output
oOptions.Value("ApplicationProtocolType") = 3 'Set application protocol: 2 = AP 203 - Configuration Controlled Design, 3 = AP 214 - Automotive Design
oOptions.Value("Author") = ThisApplication.GeneralOptions.UserName
oOptions.Value("Authorization") = ""
oOptions.Value("Tolerance") = "0.00001 mm"
oOptions.Value("Description") = iProperties.Value("Summary", "Title")
oOptions.Value("Organization") = "IKM Technique AS"

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = ThisApplication.TransientObjects.CreateDataMedium



FilePath = ThisDoc.Path   'This .IDW's path
OutputPath = FilePath & "\" & "STP"    'Output destination for the new STP
OutputFileName = iProperties.Value("Project", "Part Number") '& "Rev" & oRevnum & ".stp" 'Output File Name as specified in Custom iProperties, as specified by the iLogic rule OutputFileName

'Check for existance of STP folder and create if not found
If Not System.IO.Directory.Exists(OutputPath) Then
    System.IO.Directory.CreateDirectory (OutputPath)
End If


oRevNum = iProperties.Value("project", "revision number")

'Set the destination path & file name
oData.FileName = OutputPath & "\" & OutputFileName & "_Rev_" & oRevNum & ".stp"

'Publish Document
oSTEPTranslator.SaveCopyAs(oModelDoc, oContext, oOptions, oData)
End If

[per.widegren]

Many thanks for the quick replay 🙂 Sorry to say but it´s not working,

I got this error in your second code

Rule Compile Errors in export4_step, in MEA00016.idw

Error on Line 1 : 'ReferencedDocuments' is not a member of 'Autodesk.iLogic.Interfaces.ICadDoc'.

and when I run your first code it gives me this error....

Rule Compile Errors in export5_step, in MEA00016.idw

Error on Line 2 : 'Let' and 'Set' assignment statements are no longer supported.
Error on Line 5 : 'Let' and 'Set' assignment statements are no longer supported.

The stucture looks like this...

It´s pretty much a standard setup i think...

IAM to IPN to DRW

[bradeneuropeArthur]

The following:

Dim a As Application
Set a = ThisApplication

Dim b As PresentationDocument
Set b = a.ActiveDocument


'define the model referenced by the drawing
Dim oModelDoc As Document
Set oModelDoc = a.Documents.Open(b.ReferencedDocuments.Item(1).FullDocumentName)

Put this in place.....

[per.widegren]

Thank you for trying and your time you spend on this 🙂

Now it looks like this...

[bradeneuropeArthur]

remove all "set" for ilogic

"set" is for VBA

Dim a As Application
 a = ThisApplication

Dim b As PresentationDocument
 b = a.ActiveDocument


'define the model referenced by the drawing
Dim oModelDoc As Document
 oModelDoc = a.Documents.Open(b.ReferencedDocuments.Item(1).FullDocumentName)

[per.widegren]

hmm this wasn´t like "a walk thru the park" 🙂

Now it give me this back....

Error in rule: export5_step, in document: MEA00016.idw

Unable to cast COM object of type 'System.__ComObject' to interface type 'Inventor.PresentationDocument'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{29F0D46C-C114-11D2-B77F-0060B0F159EF}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).

[bradeneuropeArthur]

The code was intended to run from the ipn file not from the drawing.

Do you need it to be run from the drawing instead?