Step file name when attached to 3D PDF

[Frank-Oosterwaal]

Hi everyone,

I've used and tweaked this code to generate a 3D PDF with a step file attachment. Everything works well but the only thing I can't figure out is how I change the step file name that is attached to the PDF. For now the filename listens to the filename of the part/ assembly but it needs to listen to the Filename of the pdf (or specified like I did in the code below). I defined the value as "StepFileName" for now but I'm looking for the actual one.

Any help would be great! Thanks in advance.

On Error Goto KSEerror:
' Get the 3D PDF Add-In.
Dim oPDFAddIn As ApplicationAddIn
Dim oAddin As ApplicationAddIn
For Each oAddin In ThisApplication.ApplicationAddIns
If oAddin.ClassIdString = "{3EE52B28-D6E0-4EA4-8AA6-C2A266DEBB88}" Then
oPDFAddIn = oAddin
Exit For
End If
Next

If oPDFAddIn Is Nothing Then
MsgBox ("Inventor 3D PDF Addin not loaded. Go to Tools -> Add-Ins, and make sure Anark 3D PDF Publisher is loaded.")
Exit Sub
End If

UserinputRequired = MessageBox.Show("Do you want to publish a 3D PDF with a step file attached?" _
,"KSE",MessageBoxButtons.YesNo,MessageBoxIcon.Information,MessageBoxDefaultButton.Button1)
If UserinputRequired = vbNo Then
Return
Else

Dim oPDFConvertor3D
oPDFConvertor3D = oPDFAddIn.Automation

'-----a reference to the active document (the document to be published)-----
Dim oDocument As Document
oDocument = ThisApplication.ActiveDocument

'-----Create a NameValueMap object as Options-----
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap

'-----Create a NameValueMap object as Options for step-----
Dim oStepOptions As NameValueMap
oStepOptions = ThisApplication.TransientObjects.CreateNameValueMap

'-----Filename definition-----
FileName = iProperties.Value("Summary", "Title") & "r" & iProperties.Value("Project", "Revision Number") & ".pdf"
FileNameStep = iProperties.Value("Summary", "Title") & "r" & iProperties.Value("Project", "Revision Number") & ".step"

'-----Options-----
oOptions.Value("FileOutputLocation") = (ThisDoc.Path(False) & FileName)
oOptions.Value("ExportAnnotations") = 0
oOptions.Value("ExportWokFeatures") = 0
oOptions.Value("GenerateAndAttachSTEPFile") = True
oOptions.Value("LimitToEntitiesInDVRs") = True
oOptions.Value("ExportAllProperties") = True

'-----Step file options-----
	'oStepOptions.Value("ApplicationProtocolType") = 2 '(AP203)
	'oStepOptions.Value("ApplicationProtocolType") = 3 '(AP214IS)
oStepOptions.Value("ApplicationProtocolType") = 4 '(AP242)
oStepOptions.Value("StepFileName") = FileNameStep

'------Accuracy - selection by Arraylist-----
Dim MyArrayList As New ArrayList
MyArrayList.add("Very High")
MyArrayList.add("High")
MyArrayList.add("Medium")
MyArrayList.add("Low")

ACCURACYinput = InputListBox("Select an quality level for the PDF. If you do not select anything the default is set to *Low*", MyArrayList, d0, Title := "Set Quality", ListName := "List")
If ACCURACYinput = "Very High" Then
ACCURACYtoUSE = AccuracyEnum.kVeryHigh
Else If ACCURACYinput ="High" Then
ACCURACYtoUSE = AccuracyEnum.kHigh
Else If ACCURACYinput ="Medium" Then
ACCURACYtoUSE = AccuracyEnum.kMedium
Else If ACCURACYinput ="Low" Then
ACCURACYtoUSE = AccuracyEnum.kLow
Else If ACCURACYinput ="" Then
ACCURACYtoUSE = AccuracyEnum.kLow
End If
oOptions.Value("VisualizationQuality") = ACCURACYtoUSE

'-----the properties to export-----
Dim sProps(0) As String
sProps(0) = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9}:Title"  ' Title

'-----Choose the export template based off the current document type-----
oOptions.Value("ExportTemplate") = ("D:\Google drive\CAD\Inventor\KSE\KSE 3D.pdf")

'-----Export Current design view-----
Dim sDesignViews(0) As String
sDesignViews(0) = oDocument.ComponentDefinition.RepresentationsManager.ActiveDesignViewRepresentation.Name

oOptions.Value("ExportDesignViewRepresentations") = sDesignViews
ThisApplication.StatusBarText= "Exporting 3D PDF. This could take some time. There is no progress bar" 
'Publish document.
Call oPDFConvertor3D.Publish(oDocument, oOptions)
ThisApplication.StatusBarText= "3D PDF is ready" 
i = MessageBox.Show("3D PDF is saved in the same location as this document. Preview the 3D PDF?", "KSE",MessageBoxButtons.YesNo)
If i = vbYes Then : launchviewer = 1 : Else : launchviewer = 0 : End If 
If launchviewer = 1 Then ThisDoc.Launch(ThisDoc.Path(False) & FileName)
End If
Return

KSEerror:
MessageBox.Show("Error. The PDF cannot be published. Please ensure that you are in a Part or Assembly file. Ensure that all parts (in Assemblies) are fully resolved, models with missing links cannot be used for publishing 3D PDF's","Kanon Smart Engineering")

[Anonymous]

Hello @Frank-Oosterwaal

I don't think there is a way to set this STEP file name, at least not directly via the API.

If you really need this you could do your own STEP export and then use the Attachments option in the 3D PDF publish API to attach your STEP file to the 3D PDF, then you decide the file name.

Regards,

Jens Bejer Pedersen

Developer, Symetri A/S

www.symetri.com

[chandra.shekar.g]

Hi @Frank-Oosterwaal,

You mean to say, renaming the step file name after publishing to PDF.

Unfortunately, Inventor API will not be having any control on published PDF. As @Anonymous suggested, step file name can be changed before publishing to PDF

Thanks and regards,