Rotate3d command

[Patchy]

Hi,

The command rotate3d asks for selecting objects and which axis is too lengthy.

How do I just select objects, pick a point, and rotate the items I selected on Y axis with rotation of example 60 degrees ?

Thank you for your help.

[Kent1Cooper]

---

@Patchy wrote:

....

The command rotate3d asks for selecting objects and which axis is too lengthy.

How do I just select objects, pick a point, and rotate the items I selected on Y axis with rotation of example 60 degrees ?

....

---

One way would be to put this macro in a toolbar button or menu item somewhere:

^C^CSELECT \ROTATE3D P  Y \60

[Patchy]

Thank you Kent,

Can this be wrote in lisp?

(defun c:rty ( / )
(command "_rotate3d" pause .......... ??

[Kent1Cooper]

---

@Patchy wrote:

Thank you Kent,

Can this be wrote in lisp?

(defun c:rty ( / )
(command "_rotate3d" pause .......... ??

---

(command "_.rotate3d" (ssget) "" "Y" pause "60")

[Patchy]

Beautiful.

Thank you Kent.

[Kent1Cooper · Accepted solution]

---

@Patchy wrote:

Beautiful.

Thank you Kent.

---

You're welcome.  That seems so specific [Y axis only, 60 degrees only] that I wonder whether you might want different ones at times.  Rather than duplicate the whole line of code with different variables built in for each circumstance, you could do it as a function with arguments:

(defun r3 (ax rot)

  (command "_.rotate3d" (ssget) "" ax pause rot)

)

That could be the basis of any number of commonly-used combinations, making for shorter individual command definitions:
 

(defun C:r3y60 ()

  (r3 "Y" "60")

)

(defun C:r3x45 ()

  (r3 "X" "45")

)

(defun C:r3y90 ()

  (r3 "Y" "90")

)

(defun C:r3x-90 ()

  (r3 "Y" "-90")

)

and would also be available for use directly, for uncommon circumstances that don't deserve their own command definitions:

(r3 "Y" "22.5")

(r3 "X" "-15")

[Patchy]

I'm so fast now, i'm out of things to do ☺