rotate objects to 0°

[gringooo]

hello,

i need a lisp to rotate selected objects very quick to 0°.

maybe with selection of two points and the first point is the base of the rotation.

Or the lisp do it automaticly with no points selction. Maybe it will get the rotation angle from 2 points of the object with the max distance to each other. after that gets the the two minimum Y points to turn it to 0°.

at the moment i rotate each object with the reference option, and that take much more time.

i searched in the forum for a lisp like this but found nothing.

please help me, i have thoasands of objects to turn...

MANY THANKS!

before

after rotation to 0°

[ВeekeeCZ]

---

@hmsilva wrote:

---

@ВeekeeCZ wrote:

---

@hmsilva wrote:

---

@gringooo wrote:

...

one thing:

i take BeekeeCZ's code and Henrique's addition and it works , but only correctly if the groups don`t touch each other.

is it possible the groups can touch each other and the routine works as well?

---

Yes, it should be possible, but with a different approach, not using (ssget "_CP" lst)) and only for groups...

If I have some free time during the weekend, I'll see what I can do.

Henrique

---

Yes, I would replace _CP with _WP... it could make a difference 🙂 ... I know still not perfect.

---

Nicely done! 🙂

Henrique

---

Thank you, Henrique.