move+copy+rotate+scale

asen

(defun C:MR( / ssg p1 p2 YN sc)
(if (setq ssg (ssget))
    (progn
     (setvar "cmdecho" 0)
        (setq p1 (getpoint "\n指定基点:")
              p2 (getpoint p1 "\n指定第二个点:")
       )
        (setq YN (strcase (getstring "\n是否保留原对象?[Y/N]<Y>:" )))
        (if (= YN "") (setq YN "Y"))
 (command "move" ssg "" p1 p2)
        (if (= YN "Y") (command "copy" ssg "" p2 p1))
        (princ "\n指定旋转角度:")
        (command "rotate" ssg "" p2 pause)
        (setq sc (getdist p2 "\n指定缩放比例 <1>:"))
        (if (= sc "") (setq YN "1"))
        (command "scale" ssg "" p2 sc )
        (princ)
       
      )
  )
)