(defun c:mit(/ ss k ed en jh)
  (setvar "cmdecho" 0)
  (prompt "n>>Mirror 시 텍스트 자리맞춤 반대로 하기..")
  (command "undo" "be")
  (setq k 0 jh nil)
  (setq ss (ssget)) 
  (repeat (sslength ss)
    (setq ed (entget (ssname ss k))
          en (cdr (assoc 0 ed)))
    (if (or (= en "TEXT") (= en "MTEXT"))
        (setq jh (cdr (assoc 72 ed)))
    );if
    (setq k (1+ k))
  );repeat
  (if (/= jh nil)
    (progn
      (cond ((= jh 0)  ; 앞쪽 정렬일때
         (command "justifytext" ss "" "mr"))
        ((= jh 2) ; 뒤쪽 정렬일때
         (command "justifytext" ss "" "ml"))
      );cond
     );progn
   );if
  (command "mirror" ss "" "\" "\" "y")
  (command "undo" "e")
(princ)
);defun