아이소 치수관련 리습 질문입니다.

치수를 뽑으면 글자의 width폭이 0.9로 나오는데 0.8로 나올 수 있게 하려면

리습에서 수정해야 하나요??

글자폭 지정하는 것은 잘 안보여서 0.9인 숫자가 보이길래 0.8로 수정을 했는데

치수를 뽑아보아도 계속 글자의 폭이 0.9로 나오네요~~~~

리습 잘 아시는분 도와주세요~~~

;=================================================
;**Error**Cancle**
(defun gerr (g)
    (if (/= g “Function cancelled”)
        (princ (strcat “nError:” g))
    )
    (setvar “cmdecho” 1)
    (command”pickbox” “4” “”)
    (SETVAR “CLAYER” “PIPE”)
)

(defun ddimen(/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 ang t_ang g_ang l_dist t_dist str)
    ;(setiso1)
    (setvar “osmode” 33)
    (setq ds (getvar “dimscale”))
    (setq cor_sty (getvar “textstyle”))
    (command “layer” “s” “dim” “”)
    (if (/= dwgtype “D”)
        (command “layer” “f” “dim” “”)
    )
    (setq pt1 (getpoint “nPick iso 치수보조선 시작 point : “)
    ;(if *error* (setq *error* gerr))
          pt2 (getpoint “nPick iso 치수보조선 끝난 point : ” pt1)
          pt3 (getpoint “nPick iso 치수선 position : ” pt2)
          ang (angle pt1 pt2)        ; dimension line angle
          t_ang (angle pt2 pt3)      ; text style angle
          g_ang (angtos ang)         ; function angle
          l_dist (distance pt1 pt2)  ; dimension line distance
          t_dist (* 15 ds)          ; dimension line distance

       pt3 (polar pt1 t_ang t_dist)
       pt4 (polar pt2 t_ang t_dist)
       pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
       pt7 (polar pt3 t_ang (* 1 ds))
       pt8 (polar pt4 t_ang (* 1 ds))
       pt9 (polar pt1 t_ang (* 1 ds))
       pt10(polar pt2 t_ang (* 1 ds))
       str (getstring “nInput 숫자입력 : “)
    )
    (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
            (and (>= (rtd ang) 241) (<= (rtd ang) 300))
        )
            (setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
            (setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
    )
    (setvar “osmode” 0)
    (command “line” pt9 pt7 “”)
    (command “line” pt3 pt4 “”)
    (command “line” pt10 pt8 “”)
    (daa pt3 ang)
    (daa pt4 (+ ang (dtr 180)))
    (command “layer” “s” “dim” “”)
    (i_t pt6 ang str)
    (setq q_con (strcase (getstring “n연속 치수기입? < Yes / No > : “)))
    (if (= q_con “N”)(setq jhg nil)(setq jhg 7))
    (while jhg
        (command “layer” “s” “dim” “”)
        (setvar “osmode” 33)
        (setq pt1 pt2)
        (setq pt2 (getpoint “nPick iso 치수보조선 끝난 point : ” pt1))
        (if (= pt2 nil)
            (setq jhg nil)
            (progn
                (setq pt3 (getpoint “nPick iso 치수선 position : ” pt2)
                       ang (angle pt1 pt2)        ; dimension line angle
                       t_ang (angle pt2 pt3)      ; text style angle
                       g_ang (angtos ang)         ; function angle
                       l_dist (distance pt1 pt2)  ; dimension line distance
                       t_dist (* 15 DS)          ; dimension line distance
                       pt3 (polar pt1 t_ang t_dist)
                       pt4 (polar pt2 t_ang t_dist)
                       pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
                       pt7 (polar pt3 t_ang (* 1 DS))
                       pt8 (polar pt4 t_ang (* 1 DS))
                       pt9 (polar pt1 t_ang (* 1 DS))
                       pt10(polar pt2 t_ang (* 1 DS))
                       str (getstring “nInput 숫자입력 : “)
                )
                (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
                      (and (>= (rtd ang) 241) (<= (rtd ang) 300))
                      )
                      (setq pt6 (polar pt5 (dtr 210) (* 1 DS)))
                      (setq pt6 (polar pt5 (dtr 90) (* 1 DS)))
                )
                (setvar “osmode” 0)
                (command “line” pt9 pt7 “”)
                (command “line” pt3 pt4 “”)
                (command “line” pt10 pt8 “”)
                (daa pt3 ang)
                (daa pt4 (+ ang (dtr 180)))
                (command “layer” “s” “dim” “”)
                (i_t pt6 ang str)
            )
        )
    )
    (if (/= dwgtype “D”)
       (command “layer” “t” “ghkiso” “”)
    )
    (setvar “textstyle” cor_sty)
    (setiso2)
    (prin1)
)
;=================================================
(defun i_t(g_pt g_ang g_str)
    (if (= text-type 2)
        (progn
            (if (not (tblsearch “style” “Text1”))
                (progn
                    (SETVAR “CECOLOR” “bylayer”)
                    (command “filedia” “0”)
                    (command “style” “Text1” “romans” “” “0.8” “30” “” “” “”)
                    (command “filedia” “1”)

                )
            )
            (if (not (tblsearch “style” “Text2”))
                (progn
                    (SETVAR “CECOLOR” “bylayer”)
                    (command “filedia” “0”)
                    (command “style” “Text2” “romans” “” “0.8” “-30” “” “” “”)
                    (command “filedia” “1”)
                )
           )
        )
    )
 (cond
    ((and (>= (rtd g_ang) 15) (<= (rtd g_ang) 60))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>=  (rtd t_ang) 241) (<= (rtd t_ang) 300)))
                (setvar “textstyle” “Text1”)
                (setvar “textstyle” “Text2”)
             )
             (setvar “textstyle” “dim”)
        )

        ;(SETVAR “CECOLOR” “7”)
        (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “30” g_str)
        (SETVAR “CECOLOR” “bylayer”)
    )
    ((and (>= (rtd g_ang) 61) (<= (rtd g_ang) 120))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
                (setvar “textstyle” “Text2”)
                (setvar “textstyle” “Text1”)
            )
            (setvar “textstyle” “dim”)
        )
        ;(SETVAR “CECOLOR” “7”)
         (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “90” g_str)
        (SETVAR “CECOLOR” “bylayer”)
     )
     ((and (>= (rtd g_ang) 121) (<= (rtd g_ang) 180))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
                (setvar “textstyle” “Text1”)
                (setvar “textstyle” “Text2”)
            )
            (setvar “textstyle” “dim”)
        )
        ;(SETVAR “CECOLOR” “7”)
        (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “330” g_str)
        (SETVAR “CECOLOR” “bylayer”)
     )
     ((and (>= (rtd g_ang) 181) (<= (rtd g_ang) 240))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>=  (rtd t_ang) 241) (<= (rtd t_ang) 300)))
                 (setvar “textstyle” “Text1”)
                 (setvar “textstyle” “Text2”)
             )
            (setvar “textstyle” “dim”)
        )
        ;(SETVAR “CECOLOR” “7”)
        (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “30” g_str)
        (SETVAR “CECOLOR” “bylayer”)
     )
     ((and (>= (rtd g_ang) 241) (<= (rtd g_ang) 300))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
                (setvar “textstyle” “Text2”)
                (setvar “textstyle” “Text1”)
            )
            (setvar “textstyle” “dim”)
        )
        ;(SETVAR “CECOLOR” “7”)
        (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “90” g_str)
        (SETVAR “CECOLOR” “bylayer”)
     )
     ((and (>= (rtd g_ang) 301) (<= (rtd g_ang) 360))
        (if (= text-type 2)
            (if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>=  (rtd t_ang) 241) (<= (rtd t_ang) 300)))
                (setvar “textstyle” “Text2”)
                (setvar “textstyle” “Text1”)
            )
            (setvar “textstyle” “dim”)
        )
        ;(SETVAR “CECOLOR” “7”)
        (command “text” “c” g_pt (*(* txt-dh ds) 1.25) “330” g_str)
        (SETVAR “CECOLOR” “bylayer”)
     )
 )
(SETVAR “CLAYER” “PIPE”)
(SETVAR “CECOLOR” “BYLAYER”)
 (princ)
)

(defun daa (g_pt g_ang / pt3 pt4)
 (setq as (* 0.4 ds);;arrow hight
       pt21  (polar g_pt g_ang (* 2.5 ds));;arrow length
       ;pt21  (polar g_pt g_ang (* 2.5 s));;arrow length(화샇표길이)
       g_ang (angtos g_ang)
 )
 (setq pt3 (polar pt21 t_ang  as)
       pt4 (polar pt21 (+ t_ang (dtr 180)) as)
 )
 (command “solid” g_pt pt4 pt3 “” “”)
 (princ)
)

(defun dimen1(/ n-len i sel l en el text pt1 pt2 pt3 pt4 pt5 pt6
                pt7 pt8 pt9 pt10 ang t_ang g_ang l_dist t_dist str)
    (setiso1)
    (setvar “osmode” 33)
    (setq n-len 0)
    (setq i 0)
    (setq sel(ssget))
    (setq l(sslength sel))
    (repeat l
        (setq en(ssname sel i))
        (setq el (entget en))
        (if (= “TEXT” (cdr (assoc 0 el)))
            (progn
                (setq text (cdr (assoc 1 el)))
                (setq n-len(+ n-len (atof text)))
                (setq i(+ 1 i))
            )
        )
    )
    (setq n-len(rtos n-len 2 0))
    (setq cor_sty (getvar “textstyle”))
    (command “layer” “s” “dim” “”)
    (if (/= dwgtype “D”)
        (command “layer” “f” “ghkiso” “”)
    )
    (setq pt1 (getpoint “nPick iso dimension start point : “)
          pt2 (getpoint “nPick iso dimension end point : ” pt1)
          pt3 (getpoint “nPick iso dimension line position : ” pt2)
          ang (angle pt1 pt2)        ; dimension line angle
          t_ang (angle pt2 pt3)      ; text style angle
          g_ang (angtos ang)         ; function angle
          l_dist (distance pt1 pt2)  ; dimension line distance
          t_dist (* 15 ds)          ; dimension line distance

       pt3 (polar pt1 t_ang t_dist)
       pt4 (polar pt2 t_ang t_dist)
       pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
       pt7 (polar pt3 t_ang (* 1 DS))
       pt8 (polar pt4 t_ang (* 1 DS))
       pt9 (polar pt1 t_ang (* 1 DS))
       pt10(polar pt2 t_ang (* 1 DS))
    )
    (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
            (and (>= (rtd ang) 241) (<= (rtd ang) 300))
        )
            (setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
            (setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
    )
    (setvar “osmode” 0)
    (command “line” pt9 pt7 “”)
    (command “line” pt3 pt4 “”)
    (command “line” pt10 pt8 “”)
    (daa pt3 ang)
    (daa pt4 (+ ang (dtr 180)))
    (command “layer” “s” “dim” “”)
    (i_t pt6 ang n-len)
    (if (/= dwgtype “D”)
       (command “layer” “t” “dim” “”)
    )
    (setvar “textstyle” cor_sty)
    (setiso2)
    (prin1)
)