엔지니어 기술블로그

; -다중선택된 문자를 기준점을 정하여 상하로 정렬하는 명령어

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