Many thanks for replying @Ralf_Krieg but I'm still having the same problem. The code will:
1) Produce a single part STL from an IPT when oOptions.Value("ExportFileStructure") =0
2) Create a single part STL from an IAM when oOptions.Value("ExportFileStructure") =0
3) Create a single part STL from an IPT when oOptions.Value("ExportFileStructure") =1
But it will not create multiple STLs from an IAM when oOptions.Value("ExportFileStructure") =1
If I dont pass anything in oData.FileName (for example "C:\Temp\TEST.STL") it throws an exception at the line Call oSTLTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData) so it seems it needs something here.
I cant find any reference material on the STL Translator in the API documentation either.
Any thoughts?
Private Sub MakeSTL()
oInv = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
Dim oFileManager As FileManager = oInv.FileManager ' Set a reference to the FileManager object.
Dim strFullDocumentName As String = oFileManager.GetFullDocumentName("C:\Temp\Test.iam", "Test LoD") ' Use the full file name and LOD name
Dim oDocOpenOptions As NameValueMap = oInv.TransientObjects.CreateNameValueMap ' Create a new NameValueMap object
IVDoc = oInv.Documents.OpenWithOptions(strFullDocumentName, oDocOpenOptions) 'Open the document in a LoD state
Dim strCLSID As String = "{81CA7D27-2DBE-4058-8188-9136F85FC859}" 'This seems to be a different GUID
Dim oAddIns As ApplicationAddIns = oInv.ApplicationAddIns
Dim oSTLTranslator As TranslatorAddIn = oAddIns.ItemById(strCLSID)
oSTLTranslator.Activate()
Dim oDoc As Document = oInv.ActiveDocument
Dim STLPath As String = IO.Path.GetDirectoryName(oDoc.FullFileName) & "\STLs\" & IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName)
If Not IO.Directory.Exists(STLPath) Then IO.Directory.CreateDirectory(STLPath)
Dim STLFileName As String = IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName) & ".STL"
Dim STLFullFileName As String = STLPath & "\" & STLFileName
Dim oContext As TranslationContext = oInv.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap = oInv.TransientObjects.CreateNameValueMap
If oSTLTranslator.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
oOptions.Value("Resolution") = 2
oOptions.Value("OutputFileType") = 0
oOptions.Value("ExportFileStructure") = 1
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium = oInv.TransientObjects.CreateDataMedium
oData.FileName = STLFullFileName
Call oSTLTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
oDoc.Close(True)
End If
End Sub
