Imports Inventor
Module CreateSatFile
Private m_invApp As Inventor.Application
Public Sub ExportToSat()
m_invApp = GetObject(, "Inventor.Application")
' Get the SAT translator Add-In.
Dim oSATTrans As TranslatorAddIn
oSATTrans = m_invApp.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")
If oSATTrans Is Nothing Then
MsgBox("Could not access SAT translator.")
Exit Sub
End If
Dim oContext As TranslationContext
oContext = m_invApp.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = m_invApp.TransientObjects.CreateNameValueMap
If oSATTrans.HasSaveCopyAsOptions(m_invApp.ActiveDocument, oContext, oOptions) Then
oOptions.Value("ExportUnits") = 5
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = m_invApp.TransientObjects.CreateDataMedium
oData.FileName = "C:\PublishFolderLocal\TEST.sat"
Call oSATTrans.SaveCopyAs(m_invApp.ActiveDocument, oContext, oOptions, oData)
End If
End Sub
End Module