Rotate assembly component around axis

Sep 25, 2015

—

<?xml encoding=”UTF-8″>By Adam Nagy

There is already a blog post on rotating inside a drawing, now we’ll do the same with an assembly component / component occurrence.

Once you have the matrix of the rotation and the current transformation of the component, you just have to combine them and assign that to the component.

Just select the axis you want to use and the component you want to rotate by 90 degrees, then run the VBA code:

Sub RotateAroundAxis()
Const PI = 3.14159265358979
Dim d As AssemblyDocument
Set d = ThisApplication.ActiveDocument
Dim a As WorkAxis
Set a = d.SelectSet(1)
Dim o As ComponentOccurrence
Set o = d.SelectSet(2)
Dim t As TransientGeometry
Set t = ThisApplication.TransientGeometry
Dim l As Line
Set l = a.Line
Dim mRot As Matrix
Set mRot = t.CreateMatrix()
' PI / 2 => 90 deg
Call mRot.SetToRotation(PI / 2, l.Direction.AsVector(), l.RootPoint)
Dim m As Matrix
Set m = o.Transformation
Call m.PreMultiplyBy(mRot)
o.Transformation = m
End Sub

Result:

Comments

10 responses to “Rotate assembly component around axis”

Marcos

September 24, 2019

Hi, how rotate without select part and axis manualy?
thank you
Marcos

Loading…

Reply
Adam Nagy

September 24, 2019

You can simply create a Vector and Point using the CreateVector() and CreatePoint() functions of the Application.TransientGeometry object, and pass those to the SetToRotation() function.

Loading…

Reply
Maarten Maertens

January 28, 2020

Cool! Usefull code, thanks.
How can I rotate standard along the X-axis – without selecting the axis?
Step 1: Select the part in the assembly
Step 2: flip 180°. I would link a keyboard button to the macro.
We “drag and drop” our parts from our internal library. It would help if I don’t need to rotate manually every single part again. With a shortcut ‘flip 180°’, it would go much faster.
Thanks!!

Loading…

Reply
Adam Nagy

January 29, 2020

In the above code, instead of
“Set a = d.SelectSet(1)”
you could say
“Set a = d.ComponentDefinition.WorkAxes(1)”
And here’s how to create a Ribbon button for a VBA macro:
https://modthemachine.typepad.com/my_weblog/2016/02/creating-a-button-for-a-vba-macro.html

Loading…

Reply
Tobias

June 30, 2020

Awesome code!
Is there any way to rotate an inserted assembly around its own X-axis?
I use the added code you wrote to Maarten, but that only solves the active assemblies axis and not the occurrence axis.
Many thanks and keep it up!

Loading…

Reply
Adam Nagy

June 30, 2020

The Transformation property of the occurrence provides the coordinate system of the inserted assembly in context of the main assembly. And you can get the X axis of that using Matrix.GetCoordinateSystem()

Loading…

Reply
Inma

August 17, 2020

can you show a code to make the same think but with out selecting the part and the axis. how can i get x, y or z axis of a part with code .

Loading…

Reply
Adam Nagy

August 17, 2020

You can get the Axes from the ComponentDefinition (PartComponentDefinition or AssemblyComponentDefinition) of the Document: https://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-0A56D0BB-5768-4591-A3E8-84A8952644C0

Loading…

Reply
Maarten Maertens

November 4, 2021

Hi Adam, could you write the code please of how you rotate the part around it’s own occurrence axis?
Now I have this code:
Sub RotateAroundAxis()
Const PI = 3.14159265358979
Dim d As AssemblyDocument
Set d = ThisApplication.ActiveDocument
Dim o As ComponentOccurrence
Set o = d.SelectSet(1)
Dim a As WorkAxis
Set a = d.ComponentDefinition.WorkAxes(1)
Dim t As TransientGeometry
Set t = ThisApplication.TransientGeometry
Dim l As Line
Set l = a.Line
Dim mRot As Matrix
Set mRot = t.CreateMatrix()
‘ PI / 2 => 90 deg
Call mRot.SetToRotation(PI, l.Direction.AsVector(), l.RootPoint)
Dim m As Matrix
Set m = o.Transformation
Call m.PreMultiplyBy(mRot)
o.Transformation = m
End Sub

Loading…

Reply
Adam Nagy

November 4, 2021

The only thing missing there is that you have to bring the WorkAxis (a variable) in to the context of the assembly – see https://adndevblog.typepad.com/manufacturing/2013/07/occurrences-contexts-definitions-proxies.html
Something like Call o.CreateGeometryProxy(a, aProxy) then work with aProxy from then on.

Loading…

Reply