DWF Export iLogic help
Hi @mgeeW7SQV. This may seem a bit more complicated than you had planned on, but if you need to be able to specify options when you export one document type to another by code, then simply using SaveAs will not be adequate. You will need to access and use the TranslatorAddIn object for the AddIn used for translating that type of document. Since I have never needed to export to the DWF format, I do not have a finished working example to post for that exact process right now. However the iLogic code example below will point out to you which TranslatorAddIn you need to be using, and what its available options are that you can specify. Some folks prefer to find the translator they want by its DisplayName, while others choose to find it by its internal name, which is also called its ClassIdString. This code shows you how to do it either way.
Sub Main
Dim oDoc As Document = ThisDoc.Document
'Get the target TranslatorAddIns to process
Dim oDWF As TranslatorAddIn
For Each oAppAddin As ApplicationAddIn In ThisApplication.ApplicationAddIns
If oAppAddin.DisplayName = "Translator: DWF" Then
oDWF = oAppAddin
End If
Next
'or you can get it like the following:
'Dim oDWF As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById( _
'"{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}")
'the following line shows you this value, in a way that makes the value selectable/copyable
a = InputBox("", "DWF Translator ClassIdString", oDWF.ClassIdString)
Dim oDWFOptions As String
If Not IsNothing(oDWF) Then
oDWFOptions = GetTranslatorOptions(oDoc, oDWF)
End If
Dim oEntries() As String = oDWFOptions.Split(vbCrLf)
b = InputListBox("", oEntries, "", "DWF Translator Options")
End Sub
Function GetTranslatorOptions(oDocToExp As Document, oTransAddIn As TranslatorAddIn) As String
Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kUnspecifiedIOMechanism
Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
Dim oOptionsString As String = String.Empty
If oTransAddIn.HasSaveCopyAsOptions(oDocToExp, oContext, oOptions) Then
Dim oItem As Integer = 1
For Each oPair In oOptions 'do not define Type of oPair ahead of time
oOptionsString = oOptionsString & vbCrLf & "Option Name = " & oOptions.Name(oItem) & vbCrLf & "Option Value = " & oOptions.Value(oOptions.Name(oItem)) & vbCrLf
oItem = oItem + 1
Next
End If
Return oOptionsString
End FunctionWhen you search around within this forum, you will see how others set these options the way they want them using a NameValueMap, and supply that to the TranslatorAddIn.SaveCopyAs() method, which applies them to the export process, similarly to if you had done it manually using the user interface tools and its Options button.
Wesley Crihfield
(Not an Autodesk Employee)
This following link is to an example of using the DWF TranslatorAddIn object to export an Inventor document out to a DWF file format. But the example shown within is using VBA, not iLogic. However, the two are very similar, so you could most likely figure it out from there. One main difference is that iLogic does not use the "Set" keyword before setting a value to a variable, so you can remove those terms.
https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=TranslatorAddIn_Sample
Wesley Crihfield
(Not an Autodesk Employee)
Or, if you have Inventor 2019 or newer, then you will also have the iLogic Log available to you, which makes it easy to write information from within your iLogic rules out into the Log. You can use that to write all of those Option names, and their current values out to that Log, which will then be fully select-able, and copy-able, like this.
Sub Main
Dim oDoc As Document = ThisDoc.Document
Dim oDWF As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById( _
"{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}")
LogTranslatorOptions(oDoc, oDWF)
MsgBox("Check within your iLogic Log tab for the Translator Options.",,"")
End Sub
Sub LogTranslatorOptions(oDocToExp As Document, oTransAddIn As TranslatorAddIn)
Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kUnspecifiedIOMechanism
Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
If oTransAddIn.HasSaveCopyAsOptions(oDocToExp, oContext, oOptions) Then
Dim oItem As Integer = 1
For Each oPair In oOptions
Logger.Trace("Option Name = " & oOptions.Name(oItem) & " / Option Value = " & oOptions.Value(oOptions.Name(oItem)))
oItem = oItem + 1
Next
End If
End SubAnd if your iLogic Log tab is not showing right now, you can show it by going to your View tab, click on the User Interface tool, then put a check in the checkbox beside "iLogic Log".
Wesley Crihfield
(Not an Autodesk Employee)
