Place a Parts in a assembly using VB.Net

[Anonymous]

Hi is there any code to place a part in an existing assembly using VB.Net?

FileName.ipt

Place to a specific coordinate

Rotation

Grounded in place

Thank's in advance!

Alain

[bradeneuropeArthur]

Dim a As Application
Set a = ThisApplication
Dim ba As AssemblyDocument
Set ba = a.ActiveDocument
'Set b = a.ActiveDocument
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim bp As PartDocument
Set bp = a.Documents.Add(kPartDocumentObject, , True)
'Call bp.SaveAs("D:\Test.ipt", False)
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
Dim oMatrix As Matrix
Set oMatrix = oTG.CreateMatrix
Call oMatrix.SetTranslation(oTG.CreateVector(3, 2, 1))
' Add the occurrence.
Dim oOcc As ComponentOccurrence
'Set oOcc = oAsmCompDef.Occurrences.Add("D:\Test.ipt", oMatrix)
Set oOcc = oAsmCompDef.Occurrences.AddByComponentDefinition(bp.ComponentDefinition, oMatrix)

ba.Activate