(defun c:ucsr(/ ent ed x10 x11 ang dis p3)
   (setvar "cmdecho" 0)  
   (setq os (getvar "osmode"))
   (if (setq ent (car (entsel "nSelect object:")))
   (progn
   (setq ed (entget ent))
   (setq x10 (cdr (assoc 10 ed))
         x11 (cdr (assoc 11 ed)))
   (setq ang (angle x10 x11)  
         dis (distance x10 x11)
         p3 (polar x10 (+ (/ pi 2) ang) dis))
   (setvar "osmode" 0)
   (command "ucs" "")
   (command "ucs" "3" x10 x11 p3)
   (setvar "osmode" os)
   ));if progn
(princ)
);defun