(defun c:MRT(/ ss k en ed)    (princ "n 미러된 텍스트 제자리에서 원위치 시키기")    (setq ss (ssget (list (cons 0 "text,mtext"))))   (setq k 0)   (repeat (sslength ss)     (setq en (ssname ss k))     (setq ed (entget en))     (entmod (subst (cons 71 0) (assoc 71 ed) ed))     (setq k (1+ k))    )   (princ)