自动Inventor SAT导入与设计自动化

Question

在Inventor的中，是否可以自动化将SAT文件导入程序集的手动过程？

我看到在Inventor 89162634-02B6-11D5-8E80-0010B541CD80中有一个用于SAT的翻译加载项，但不清楚它是否只支持导出，我需要导入选项。

简而言之，我需要自动化这里描述的选项和步骤：https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-7CF00AFC-D40C-4FFC-B781-338AE2476527

Answer 1

进口SAT与设计自动化一般是可能的。

当您需要获得翻译器选项(不仅仅是SAT翻译器)时，可以使用以下VBA代码

具有可能值的选项在这里描述。

https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-25D24E28-7517-4903-8AEE-123F8C71A89E&v=Inventor2023

Sub ImportSAT_Options()
    Dim satAddIn As TranslatorAddIn
    Set satAddIn = ThisApplication.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")
    
    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext()
    
    Dim oOptions    As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap()
    
    Dim oData As DataMedium
    Set oData = ThisApplication.TransientObjects.CreateDataMedium()
    
    If satAddIn.HasOpenOptions(oData, oContext, oOptions) Then
        Call PrintNameValueMap(oOptions)
    End If
End Sub

Sub PrintNameValueMap(namValMap As NameValueMap)
    Dim i As Integer
    Dim key As String
    Dim value As Variant
    For i = 1 To namValMap.Count
        key = namValMap.name(i)
        value = namValMap.value(key)
        Debug.Print key, value
    Next
End Sub