공차기입리습 수정부탁드립니다.ㅠㅠ

고수님들 안녕하십니까
궁금한게 있어서 처음으로 글을 올립니다.
아래의 리습은 공차기입하는 리습입니다.
그런데 dimstyle에서 공차의 크기를 따로 지정해 주지않으면
현재 dimscale의 치수크기와 같은 크기로 공차가 나옵니다.
일반적으로 공차는 치수보다 0.5~0.6 비율로 지정해주는게 정석인데
자꾸 치수크기와 같게 나와서 다시 줄여주는 번거로움이 있습니다.
dimstyle에서 지정해주는 방법 말고
아래의 수식어를 수정하여 dimscale크기를 변경할때마다 그에대해 6/10 크기로 나올수 있게
수정할수 없을까요…..
그리고 공차 기입을 하면 치수와 공차가 같은 블럭에 잡히는데 이것도 따로 놀수 있게
했으면 좋겠습니다. 둘 중 한가지라도 해결가능하다면 조언부탁드려요^^
읽어주셔서 감사합니다.^^

(defun c:to ()
(setq olderr *error* *error* clerr1)
(setq cmd (getvar “cmdecho”))
(setq osm (getvar “osmode”))
(setq ort (getvar “orthomode”))
(setvar “cmdecho” 0)
(setvar “osmode” 0)
(setvar “orthomode” 1)
(terpri)
(setq tp (getstring T “Dim_hi:”))
(setq tn (getstring T “Dim_lo:”))
(setq a (substr tn 1 1))
(setq b (substr tn 2))
(if (= “-” a) (setq tm b))
(if (= “+” a) (setq tm (strcat “-” b)))
(if (= “0” a) (setq tm “0”))
(setq ens (entsel “Entity Select: “))
(command “dimtp” tp “dimtm” tm “dimtol” 1 “dim” “update” ens “” “dimtol” 0 “exit”)
(setvar “cmdecho” cmd)
(setvar “osmode” osm)
(setvar “orthomode” ort)
  (princ))