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