(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 |