Dim sDoc As AssemblyDocument
Dim sCompDef As AssemblyComponentDefinition
sCompDef = sDoc.ComponentDefinition
Dim vDocs As ComponentOccurrence
Dim oTG As TransientGeometry
Dim oMatrix As Matrix
oTG = m_inventorApplication.TransientGeometry
oMatrix = oTG.CreateMatrix
vDocs = sCompDef.Occurrences.AddVirtual(ИМЯ, oMatrix)