Sub Main() Call AssocImport() End Sub Sub AssocImport() Dim sFilename As String sFilename = "C:\Vault Working Folder\Projects\0000-TEMP\Hebel.par" 'Pointing to a particular file for a Dim sClientID As String sClientID = "{E2548DAF-D56B-4809-82B9-5F670E6D518B}" 'GetTranslatorCLSID for SolidEdge Dim oTransAddIn As TranslatorAddIn oTransAddIn = ThisApplication.ApplicationAddIns.ItemById(sClientID) oTransAddIn.Activate 'Get the transient object, take it as a factory to produce other objects Dim oTransientObj As TransientObjects oTransientObj = ThisApplication.TransientObjects 'Prepare the 1st parameter for Open(), the file name Dim oFile As DataMedium oFile = oTransientObj.CreateDataMedium oFile.FileName = sFilename 'Prepare the 2nd parameter for Open(), the open type, for convenience set it as drag&drop Dim oContext As TranslationContext oContext = oTransientObj.CreateTranslationContext oContext.Type = kFileBrowseIOMechanism 'Prepare the 3rd parameter for Open(), the import options Dim oOptions As NameValueMap oOptions = oTransientObj.CreateNameValueMap Dim oDefaultOptions As NameValueMap oDefaultOptions = oTransientObj.CreateNameValueMap 'Dim bHasOpt As Boolean ' bHasOpt = oTransAddIn.HasOpenOptions(oFile, oContext, oDefaultOptions) oOptions.Value("AssociativeImport") = True Dim oSourceObj As Object oTransAddIn.Open(oFile, oContext, oOptions, oSourceObj) Dim oTransDoc As Document oTransDoc = oSourceObj If oTransDoc.DocumentType = kAssemblyDocumentObject Then Dim oAsm As AssemblyDocument: oAsm = oTransDoc Debug.Print (oAsm.ComponentDefinition.ImportedComponents(1).Name) ElseIf oTransDoc.DocumentType = kPartDocumentObject Then Dim oPart As PartDocument: oPart = oTransDoc Debug.Print (oPart.ComponentDefinition.ReferenceComponents.ImportedComponents(1).Name) End If End Sub