; ´ÙÁß¼±ÅÃµÈ ¹®ÀÚ¸¦ ±âÁØÁ¡À» Á¤ÇÏ¿© »óÇÏ·Î Á¤·ÄÇÏ´Â ¸í·É¾î (defun c:ta2(/ myerror os ss n ptx pty pyxy kw k en tx a) ;start --- Internal error handler ----------------------------- (defun myerror(S) (if (/= s "Function cancelled")(princ (strcat "nError:" s))) (setvar "osmode" os) (setvar "blipmode" bl) (setq *error* olderr)(princ) ) (setq olderr *error* *error* myerror) ;end----------------------------------------------------------- (setq os (getvar "osmode")) (prompt " ¹®ÀÚ »óÇÏ Á¤·ÄÇϱâ...") (setq ss (ssget '((0 . "text,mtext")))) (terpri) (setq n (sslength ss)) (setq pty (cadr (getpoint "n»óÇÏÁ¤·ÄÁ¡ ¼±ÅÃ->"))) (setvar "osmode" 0) (setq k 0) (while (<= 1 n) (setq en (ssname ss k)) (setq ha (cdr (assoc 72 (entget en))) );;horizontal alignment (setq va (cdr (assoc 73 (entget en))) );;vertical alignment (setq intype (cdr (assoc 0 (entget en))) );;Á¾·ù ;;(princ ha)(princ va)(princ intype) (if (AND (= intype "TEXT")(= ha 0)(= va 0))(setq sn 10)(setq sn 11)) (if (= intype "MTEXT")(setq sn 10)) (setq ptxy (cdr (assoc sn (entget en))) ) (setq ptx (car ptxy)) (setq pt2 (list ptx pty)) (entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en))) (setq n (- n 1)) (setq k (+ k 1)) ) (setvar "osmode" os) (princ) ) |