Скрипт Autodesk Inventor для открытия.JT и экспорта.JT (с определенными параметрами)

Question

Мне регулярно приходится экспортировать существующие модели JT в тесселяционные модели JT, что занимает много времени на моем компьютере. Поэтому мне было интересно, если это можно сделать с помощью сценария? Идеально встроенный в файл Excel, где я предоставляю список имен файлов и путей JT, но одно за другим также будет хорошо. Пока мне не нужно вручную открывать и экспортировать каждый файл в Inventor.

Параметры импорта, которые необходимо установить: - Фильтр объектов: твердые тела.

Параметры экспорта: - Типы объектов для экспорта: все отмеченные - Вывод: только грани - Версия: 9.5 - Структура: Монолитная

Можно ли это сделать? У меня есть некоторый опыт работы с VBA, однако абсолютно нет опыта работы с Inventor в том, что касается сценариев / командной строки....

Спасибо!

dreamingof8a

Answer 1

На данный момент у меня нет решения для опций. Но это скрипт для экспорта в JT. Он основан на примере STEP в документации по API Inventor.

Public Sub ExportToJT(inventorFile As String, jtFile As String)
    ' Get the JT translator Add-In.
    Dim oJTTranslator As TranslatorAddIn
    Set oJTTranslator = ThisApplication.ApplicationAddIns.ItemById("{16625A0E-F58C-4488-A969-E7EC4F99CACD}")

    If oJTTranslator Is Nothing Then
        MsgBox "Could not access JT translator."
        Exit Sub
    End If

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    If oJTTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, oContext, oOptions) Then

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

        oContext.Type = kFileBrowseIOMechanism

        Dim oData As DataMedium
        Set oData = ThisApplication.TransientObjects.CreateDataMedium
        oData.FileName = jtFile

        Call oJTTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
    End If
End Sub