캐드리습 글자크기 문의드립니다

캐드리습 길이 표시 쓰고있는데 혹시 글자크기 조정어떻게하나요?
(defun c:az(/  ss en n n1 k tot dis dis1)
   (setvar "cmdecho" 0)
   (setvar "dimzin" 0)
   (prompt "nSelect object:")
   (setq ss (ssget))
   (setq n1 (sslength ss))
   (setq n n1 k 0)
   (setq tot 0 dis 0 dis1 0)
    (while (<= 1 n)
       (setq en (ssname ss k))
       (setq stype (cdr (assoc 0 (entget en))))
       (if (= stype "LINE")(progn
           (setq spt (cdr (assoc 10 (entget en))))
           (setq ept (cdr (assoc 11 (entget en))))
           (setq dis1 (distance spt ept))
           (setq dis (/ dis1 1000.0))(prin1 dis)
       ))(terpri)
       (if (= stype "LWPOLYLINE")(progn
           (command "area" "e" en)
           (setq dis1 (getvar "perimeter"))
           (setq dis (/ dis1 1000.0))
       ))
       (setq tot (+ tot dis))
       (setq n (- n 1))
       (setq k (+ k 1))
    )
  (SETQ to2 (RTOS tot 2 2));;소수점 정리
  (terpri) 
  (prompt "총")(prin1 n1)(prompt "개의 라인…")
  (prompt "전체길이 : ")(prin1 to2)(prompt "m")
  (SETQ PO (GETPOINT))
  (COMMAND "STYLE" "nt" "romans.shx,ghs.shx" "" "" "" "" "")(PRIN1)
  (SETQ TESI (* 3.0 (GETVAR "LTSCALE")))
  (COMMAND "TEXT" "Mr" PO tesi "" to2)(PRIN1)
  (princ)
  (prin1)
)