This is the type of apps i was looking for guys.
BTW, Thanks mark thats alot of code man. Illl put those to good use. Thank you.
;;;
;;; Move rotate
;;;
(defun c:mr ()
(while (not (setq ent (entsel "\nSelect entity: "))))
(vl-cmdf
"move"
ent
""
(setq pt1 (getpoint "\nSelect base point: "))
(setq pt2 (getpoint pt1 "\nSelect second point: "))
)
(vl-cmdf "rotate" ent "" pt2)
(princ)
)