(defun c:mt0(/ ss k en ed mtxt)   (princ "n 미러된 텍스트 제자리에서 상호 교체시키기")   (setq ss (ssget (list (cons 0 "text,mtext")))) (setq k 0) (command "undo" "be") (repeat (sslength ss)   (setq ed (entget (ssname ss k)))   (setq x71 (cdr (assoc 71 ed)))   (cond ((= x71 0) (setq mtxt 2))         ((= x71 2) (setq mtxt 0))   )   (entmod (subst (cons 71 mtxt) (assoc 71 ed) ed))   (setq k (1+ k)) ) (command "undo" "e") (princ) )