캐드 공차리습 글씨크기 코멘드어케 하나요?

공차 리습 이렇게 사용중인데요 리습 메모장에서 변경안하고 걍 코멘드 창에서 글씨크기나 색상 변경하는 법 없을까요? 색상까진 아니여도 글씨크기라도..ㅠㅠ
저희 회사에서 공차를 좀 많이 써서 그때마다 와서 변경하기 번거롭네요..ㅠㅠ
좀알려주세요!!


(defun C:TolAdd (/ ss n n1 n2 n3 n4 p new_text)
  (SETVAR “CMDECHO” 0)
  (prompt “n치수선을 선택하시오:”)
  (setq ss (ssget ‘((0 . “DIMENSION”))))

(setq tp (getstring “n ▒↑상한 공차값[±일 때 부호생략] : “))
(setq tm (getstring ”   ▒↓하한 공차값[±일 때 부호생략] : “))
(if (= tp tm)
  (progn
    (setq dim_text (strcat “{\H0.7x;\C1;\S” “%%P” tp “;}”))
        );progn
  (progn
    (setq dim_text (strcat “{\H0.7x;\C1;\S” tp “^” tm “;}”))
        );progn
  );if
  (if ss
    (progn
      (setq p 0)
      (while (ssname ss p)-
 (setq n  (ssname ss p)
       n1 (entget n)
       n2 (assoc 1 n1)
       n3 (cdr n2)
       p  (+ p 1)
 )
 (if (wcmatch n3 “*%%p*,*%%P*,*S*,*s*”)
   (progn
     (setq new_text “”  n4 “” )
     (while (/= n4 “>”)
       (setq n4 (substr n3 1 1) n3 (substr n3 2)
      new_text (strcat new_text n4)
       )
     )
   )
   (progn
     (if (= n3 “”)
       (setq new_text “<>”)
       (setq new_text n3)
     )
   )
 )
 (setq n4 (subst (cons 1 (strcat new_text dim_text)) n2 n1))
 (entmod n4)
      )
    )
  )
  (princ)
);end of defun
;;;***********************************************************************
;;;               공차 지우기                                            
;;;***********************************************************************
(defun c:TolDel(/ ss p n n1 n2 n3 n4 n5 new_text)
  (SETVAR “CMDECHO” 0)
  (prompt “n치수선을 선택하시오:”)
  (setq ss (ssget ‘((0 . “DIMENSION”))))
  (if ss
    (progn
      (setq p 0)
      (while (ssname ss p)
 (setq n  (ssname ss p)
       n1 (entget n)
       n2 (assoc 1 n1)
       n3 (cdr n2)
       p  (+ p 1)
 )
 (if (wcmatch n3 “*%%p*,*%%P*,*S*,*s*”)
   (progn
     (setq new_text “”  n4 “” )
     (while (/= n4 “>”)
       (setq n4 (substr n3 1 1)  n3 (substr n3 2)
      new_text (strcat new_text n4)
       )
     )
     (setq n5 (subst (cons 1 new_text) n2 n1))
     (entmod n5)
   )
 )
      )
    )
  )
  (princ)
);end of defun