I am not sure if this what you are looking for.....
I have a routine I developed that will copy a subassembly from one directory to another,
do the same for all components of the assembly(it only goes one level as my subAssemblies only have one level)
place the new subassembly in the current assembly and return the ComponentOccurrence which I then use to configure constrain the subassembly
piece is the name of the subassembly in the new design
compAsm is the original assembly
SyntaxEditor Code Snippet
oRightJamb = placeAsm("rightJamb", "drJamb", oAsmCompDef, oTG, oMatrix)
SyntaxEditor Code Snippet
Function placeAsm(piece As String, compAsm As String, oAsmCompDef as Inventor.ComponentDefinition, _
oTG As Inventor.TransientGeometry, oMatrix As Inventor.Matrix)
' Function opens an assembly file, saves it as a design file places the component
' at the origin and returns the ComponentOccurrence
Dim oCompDef As ComponentDefinition
Dim path As String = ThisDoc.Path
Dim partDir As String = path & "\parts"
Dim designDir As String = path & "\design"
Dim partFile As String = partDir & "\" & compAsm & ".iam"
Dim pieceFile As String = designDir & "\" & piece & ".iam"
' creat copy of new jamb assembly
Dim oJambAsmDoc As AssemblyDocument
Try
oJambAsmDoc = ThisApplication.Documents.Open(partFile ,False)
Catch
MessageBox.Show("Could not find " & partFile, "placeAsm")
End Try
Try
oJambAsmDoc.SaveAs(pieceFile , True)
oJambAsmDoc.Close
Catch ex As exception
MessageBox.Show(ex.ToString(), "placeAsm save")
MessageBox.Show(pieceFile, "placeAsm")
End Try
' open new assembly, create copies of parts and replace Occ in new assembly
Try
oJambAsmDoc = ThisApplication.Documents.Open(pieceFile ,False)
Catch
MessageBox.Show("Could not find " & pieceFile, "placeAsm open new piece")
End Try
Dim oPartDoc As PartDocument
Dim newPieceFile As String
For Each part In oJambAsmDoc.ComponentDefinition.Occurrences
Try
oPartDoc = ThisApplication.Documents.Open(part.Definition.Document.FullFileName ,False)
newPieceFile = designDir & "\" & piece & part.Name & ".ipt"
oPartDoc.SaveAs(newPieceFile, False)
part.Replace(newPieceFile, False)
oPartDoc.Close
Catch ex As exception
MessageBox.Show(ex.ToString, "opening Assembly PartDoc")
End Try
Next
oJambAsmDoc.Save
oJambAsmDoc.Close
Dim oOcc = ComponentOccurence
Try
oOcc = oAsmCompDef.Occurrences.Add(pieceFile, oMatrix)
Catch ex As exception
MessageBox.Show(ex.ToString(), "placeAsm save")
MessageBox.Show(pieceFile, "placeAsm")
End Try
oMatrix.SetTranslation(oTG.CreateVector(0,0,0))
oOcc.Grounded = False
Return oOcc
End Function ' placeAsm
