Quite some time ago I wrote some code that reads coordinates from an excel file like the one below and places the specified components at these coordinates.
This works fine, but I want to expand on this a little bit. I want to add the option to specify an overall transformation for all these coordinates. For example I may want to place the components in the screenshot above, but instead of them all being on the XY Plane and the first one being on 0, 0, 0 I want to have everything rotated 45 degrees around the Y Axis and the first one to be placed on 10, 10, 10.
Basically I want to place all the components and then move/rotate everything to another coordinate system.
I'm not too familiar with the whole matrix thing so I'm not sure how to start this.
Here's the code to place the components and move them so a specific workpoint in the component is on the given coordinate. This does not include the part that reads the data from excel.
Sub Main
Dim oOcc As ComponentOccurrence = PlaceOccurrence("C:\Users\mathi\OneDrive\Documenten\Inventor Addin Development\Test Excel\Test Part Grijs.ipt", 0, 0, 0, 0, 0, 0)
MoveOccurrenceToInsertionPoint(oOcc, "Center Point")
End Sub
Public Function PlaceOccurrence(ByVal sFilePath As String, ByVal Location_X As Double, ByVal Location_Y As Double, ByVal Location_Z As Double, ByVal Rotation_X As Double, ByVal Rotation_Y As Double, ByVal Rotation_Z As Double, Optional ByVal bGrounded As Boolean = True) As ComponentOccurrence
Dim oResult As ComponentOccurrence
' Set a reference to the Assembly Document
Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument
' Set a reference to the Assembly Component Definition
Dim oAsmCompDef As AssemblyComponentDefinition = oAsmDoc.ComponentDefinition
' Set a reference to the Transient Geometry
Dim oTransientGeometry As TransientGeometry = ThisApplication.TransientGeometry
' Create Matrices
Dim oMatrix As Matrix = oTransientGeometry.CreateMatrix
Dim oMatrix_Z As Matrix = oTransientGeometry.CreateMatrix
Dim oMatrix_Y As Matrix = oTransientGeometry.CreateMatrix
Dim oMatrix_X As Matrix = oTransientGeometry.CreateMatrix
' Set the rotation of the Matrix about the Z axis
oMatrix_Z.SetToRotation(Rotation_Z * (Math.PI / 180), oTransientGeometry.CreateVector(0, 0, 1), oTransientGeometry.CreatePoint(0, 0, 0))
' Set the rotation of the Matrix about the Y axis
oMatrix_Y.SetToRotation(Rotation_Y * (Math.PI / 180), oTransientGeometry.CreateVector(0, 1, 0), oTransientGeometry.CreatePoint(0, 0, 0))
' Set the rotation of the Matrix about the X axis
oMatrix_X.SetToRotation(Rotation_X * (Math.PI / 180), oTransientGeometry.CreateVector(1, 0, 0), oTransientGeometry.CreatePoint(0, 0, 0))
' PreMultiply the Matrix by the Matrices about each axis
oMatrix.PreMultiplyBy(oMatrix_Z)
oMatrix.PreMultiplyBy(oMatrix_Y)
oMatrix.PreMultiplyBy(oMatrix_X)
' Set the Translation of the matrix
oMatrix.SetTranslation(oTransientGeometry.CreateVector(Location_X / 10, Location_Y / 10, Location_Z / 10))
' Set a reference to the Component Occurrences
Dim oOccurrences As ComponentOccurrences = oAsmCompDef.Occurrences
' Place a Component Occurrence
Dim oOcc As ComponentOccurrence = oOccurrences.Add(sFilePath, oMatrix)
' Ground the Component Occurrence
oOcc.Grounded = bGrounded
' Return the Component Occurrence
oResult = oOcc
Return oResult
End Function
Public Function MoveOccurrenceToInsertionPoint(ByVal oOcc As ComponentOccurrence, ByVal sWorkPointName As String) As ComponentOccurrence
Dim oResult As ComponentOccurrence
' Set a reference to the Document of the Component Occurrence
Dim oOccDoc As Document = oOcc.ReferencedDocumentDescriptor.ReferencedDocument
' Get the Origin Point WorkPoint
Dim oWPoint_Origin_Point As WorkPoint = oOccDoc.ComponentDefinition.WorkPoints.Item(1)
' Create a Proxy of the Origin Point WorkPoint
Dim oWPoint_Origin_Point_Proxy As WorkPointProxy = Nothing
oOcc.CreateGeometryProxy(oWPoint_Origin_Point, oWPoint_Origin_Point_Proxy)
' Check if the Occurrence should be moved to a WorkPoint other than the Origin Point WorkPoint
If sWorkPointName <> "" AndAlso sWorkPointName <> "Center Point" Then
Try
' Get the Insertion Point WorkPoint
Dim oWPoint_Insertion_Point As WorkPoint = oOccDoc.ComponentDefinition.WorkPoints.Item(sWorkPointName)
' Create a Proxy of the Insertion Point WorkPoint
Dim oWPoint_Insertion_Point_Proxy As WorkPointProxy = Nothing
oOcc.CreateGeometryProxy(oWPoint_Insertion_Point, oWPoint_Insertion_Point_Proxy)
' Get the translation between the two WorkPoints
Dim dTranslation_X As Double = oWPoint_Origin_Point_Proxy.Point.X - oWPoint_Insertion_Point_Proxy.Point.X
Dim dTranslation_Y As Double = oWPoint_Origin_Point_Proxy.Point.Y - oWPoint_Insertion_Point_Proxy.Point.Y
Dim dTranslation_Z As Double = oWPoint_Origin_Point_Proxy.Point.Z - oWPoint_Insertion_Point_Proxy.Point.Z
' Set the translation Matrix
Dim oTranslatedMatrix As Matrix = oOcc.Transformation
oTranslatedMatrix.SetTranslation(ThisApplication.TransientGeometry.CreateVector(oWPoint_Origin_Point_Proxy.Point.X + dTranslation_X, oWPoint_Origin_Point_Proxy.Point.Y + dTranslation_Y, oWPoint_Origin_Point_Proxy.Point.Z + dTranslation_Z))
' Set the transformation of the Component Occurrence
oOcc.Transformation = oTranslatedMatrix
Catch
MsgBox("Work Point """ & sWorkPointName & """ was not found, the Occurrence was placed using the Origin Point")
End Try
End If
' Return the Component Occurrence
oResult = oOcc
Return oResult
End Function
