MOCORO (Move, copy, rotate) with reference angle?

Just want to know if it's possible to apply a reference angle within the MOCORO rotate command, perhaps with a LISP? Or maybe there's a simple existing way that I'm not familiar with?

This is a great command, but I more often than not need to line up objects or blocks along a polyline and without the option to reference them renders this command almost useless.

The only way this works for me is if the object I'm copying is already at base angle of 0, which is rarely the case.

You can give this a try.

It copys & rotates by reference.

(defun c:test (/ *error*)

  (defun *error* ( msg )
       (if (not (member msg '("Function cancelled" "quit / exit abort")))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )
(princ "\nCopy & Rotate:\n")
(setq ss (ssget))
 (command "copy" ss "" "0" "0")
 (command "move" ss "" pause pause)
 (command "rotate" ss "" "@" "R")
 )
(princ)

Thanks, that's kinda what I want, but the thing I like about MOCORO is that it allows you to perform multiple functions without ending / restarting the command.

Seems odd that referencing wasn't included, particularly when SCALE is also part of that command.

I have also run into this. It's as if this Express Tool is 85% helpful. With just a small addition of functions it would be phenomenal.

It would also be nice if Stretch were added to the Move/Copy/Rotate/Scale options.

Hopefully someone picks up on this thread and finds a solution.