안녕하세요 아이소 치수 뽑는 리습인데요

치수가 맨 아래의 사진과 같이 너무 길게 나오는데 짧게 11mm 정도 뽑으려면 어느 부분을 수정해야 하나요??

도와주시면 정말로 감사드리겠습니다. ~~~

;=================================================
;**Error**Cancle**
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (* 180.0 (/ a pi))) ;(defun rtd (a) (/ (* a 180.0) pi))
(defun tan (a) (/ (sin a) (cos a)))
(defun gerr (g)
(if (/= g “Function cancelled”)
(princ (strcat “nError:” g))
)
(setvar “cmdecho” 1)
(command”pickbox” “4” “”)
(SETVAR “CLAYER” “PIPE”)
)

(defun dimen(/ 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) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1.4 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1.4 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” “”)
;(SETVAR “CECOLOR” “7”)
(i_t pt6 ang str)
(setq q_con (strcase (getstring “n연속 치수기입? : “)))
(if (= q_con “N”)(setq jhg nil)(setq jhg 7))
(while jhg
(command “layer” “s” “dim” “”)
(SETVAR “CECOLOR” “BYLAYER”)
(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) 241) (= (rtd g_ang) 15) (= (rtd t_ang) 61) (= (rtd t_ang) 241) (= (rtd g_ang) 61) (= (rtd t_ang) 15) (= (rtd t_ang) 181) (= (rtd g_ang) 121) (= (rtd t_ang) 15) (= (rtd t_ang) 181) (= (rtd g_ang) 181) (= (rtd t_ang) 61) (= (rtd t_ang) 241) (= (rtd g_ang) 241) (= (rtd t_ang) 15) (= (rtd t_ang) 181) (= (rtd g_ang) 301) (= (rtd t_ang) 61) (= (rtd t_ang) 241) (= (rtd ang) 61) (= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1.0 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1.0 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)
)