topic Re: Rotating Component in assembly around one of it's own axis in Inventor Programming Forum

Rotating Component in assembly around one of it's own axis

Daan_M — Tue, 19 Dec 2023 11:19:53 GMT

Hi, I've got Component A in my assembly, which i want to rotate x degrees around it's own Y-Axis. I found the following which i think need

oCurrentOccurrence.Transformation.SetToRotation()

As input i need the the angle of rotation(variable), a workaxis(Y-axis of component), and a point (not sure what the point is for). I found a post of @WCrihfield describing i need to create a proxy to acces the components Work-Axis/Point so i did the following:

Dim oCurrentOccurrence As ComponentOccurrence = oACD.Occurrences.Item(5) Dim oAngle = 90 Dim oPoint As WorkPoint = oCurrentOccurrence.Definition.WorkPoints.Item(1) Dim oAxis As WorkAxis = oCurrentOccurrence.Definition.WorkAxes.Item(1) Dim oPointProxy As WorkPointProxy = Nothing Dim oAxisProxy As WorkAxisProxy = Nothing oCurrentOccurrence.CreateGeometryProxy(oPoint, oPointProxy) oCurrentOccurrence.CreateGeometryProxy(oAxis, oAxisProxy) oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxis, oPoint)

It throws an error on line 13

NOTES

Before this the component is placed in the assembly with '.AddUsingiMates' so this means there are contraints applied to the component. Once it is placed these contrains can be ignored.
To be clear, i need the component to rotate around it's own Y-Axis. NOT the Y-Axis of the assembly.

Re: Rotating Component in assembly around one of it's own axis

Andrii_Humeniuk — Tue, 19 Dec 2023 11:50:45 GMT

Hi @Daan_M . I see you're trying to use WorkAxis for the SetToRotation method, but you actually need to use Vector.
The line (13) that gives an error should look like this:

oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy)

I haven't tested it, but it seems you also need to use Point instead of WorkPoint.

oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy.Point)

Re: Rotating Component in assembly around one of it's own axis

Daan_M — Tue, 19 Dec 2023 12:30:11 GMT

Hi @Andrii_Humeniuk Thank you for the reply.

The code runs without error when i use your second suggestion:

oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy.Point)

Unfortunately I see no result, the component has not rotated in any way. Maybe the contrains from 'AddUsingiMates()' play a role?

Marked red = The component

Blue arrow = points to Y-Axis of the component

The updated code:

Dim oCurrentOccurrence As ComponentOccurrence = oACD.Occurrences.Item(5) Dim oAngle = 45 MsgBox(oacd.Occurrences.Item(5).Name) Dim oPoint As WorkPoint = oCurrentOccurrence.Definition.WorkPoints.Item(1) Dim oAxis As WorkAxis = oCurrentOccurrence.Definition.WorkAxes.Item(1) Dim oPointProxy As WorkPointProxy = Nothing Dim oAxisProxy As WorkAxisProxy = Nothing oCurrentOccurrence.CreateGeometryProxy(oPoint, oPointProxy) oCurrentOccurrence.CreateGeometryProxy(oAxis, oAxisProxy) oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy.Point)

Re: Rotating Component in assembly around one of it's own axis

Andrii_Humeniuk — Tue, 19 Dec 2023 12:36:46 GMT

If the constraint is in the plane of rotation then yes, you cannot rotate it, you need to suppress the constraint or delete it and create a new one in other planes.

Re: Rotating Component in assembly around one of it's own axis

Daan_M — Tue, 19 Dec 2023 13:11:57 GMT

@Andrii_Humeniuk Ok i put in some code to delete the contraints, but the component still has not rotated.

Maybe i am doing something wrong defining the workpoint and workaxis. Right now i use '.WorkAxes.Item(1)' and '.Workpoints.Item(1) but i'm not even sure what (1) is. I want to rotate around the components Y-Axis and im not sure what the point is for. Are these things in the component by Default or do i need to define these placing them myself in the partfile as Axis and workpoint?

Updated code

oACD.Occurrences.AddUsingiMates(oFullPath, False) 'DELETE CONSTRAINTS Dim oCurrentOccurrence As ComponentOccurrence = oACD.Occurrences.Item(5) For Each OCS In oCurrentOccurrence.Constraints OCS.Delete Next 'ROTATION Dim oAngle = 45 Dim oPoint As WorkPoint = oCurrentOccurrence.Definition.WorkPoints.Item(1) Dim oAxis As WorkAxis = oCurrentOccurrence.Definition.WorkAxes.Item(1) Dim oPointProxy As WorkPointProxy = Nothing Dim oAxisProxy As WorkAxisProxy = Nothing oCurrentOccurrence.CreateGeometryProxy(oPoint, oPointProxy) oCurrentOccurrence.CreateGeometryProxy(oAxis, oAxisProxy) oCurrentOccurrence.Transformation.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy.Point)

Re: Rotating Component in assembly around one of it's own axis

Andrii_Humeniuk — Tue, 19 Dec 2023 13:15:52 GMT

The Y-axis is numbered 2. The X-axis is numbered 1.

Re: Rotating Component in assembly around one of it's own axis

Daan_M — Tue, 19 Dec 2023 13:20:35 GMT

@Andrii_Humeniuk Still no result

Made a clean test file, please see the attached Assembly and Partfile.

Run the code in the assembly called 'Rotate', i get no result in any direction.

Re: Rotating Component in assembly around one of it's own axis

Andrii_Humeniuk — Tue, 19 Dec 2023 13:44:48 GMT

Try this:

Dim oDoc As AssemblyDocument = ThisDoc.Document Dim oACD As AssemblyComponentDefinition = oDoc.ComponentDefinition Dim oOcc As ComponentOccurrence = oACD.Occurrences.Item(1) Dim oAngle as Double = 3.14159265358979 / 4 Dim oPoint As WorkPoint = oOcc.Definition.WorkPoints("Work Point1") Dim oAxis As WorkAxis = oOcc.Definition.WorkAxes("Work Axis1") Dim oPointProxy As WorkPointProxy Dim oAxisProxy As WorkAxisProxy call oOcc.CreateGeometryProxy(oPoint, oPointProxy) Call oOcc.CreateGeometryProxy(oAxis, oAxisProxy) Dim oTransform As Matrix = oOcc.Transformation Call oTransform.SetToRotation(oAngle, oAxisProxy.Line.Direction.AsVector(), oPointProxy.Point) oOcc.Transformation = oTransform

If it does not move, try changing the degree.

Also keep in mind that the Inventor understands radians as degrees.