파이추가 리습인데 각도로 바꿀려고 하는데요

각도기호를 문자뒤에 나오게 하고 싶은데 어떻게 하는지 모르겠어요
(defun c:fr ()
(setq tea (entget (car (entsel))))
(setq tetxt (assoc 1 tea))
(setq tentxt (strcat “%%d” (cdr tetxt) ))
(setq tetxt1 (cons (car tetxt) tentxt))
(setq tea1 (subst tetxt1 tetxt tea))
(entmod tea1)
(princ)
)