치수리습 관련 재질문드립니다!

현재 사용중인 리습에서 일부분만 따온겁니다.  새로운 리습에서 이부분을 추가하고싶은데.. 어떻게 해야될질모르겠네요..
현재 사용중인 리습은. 너무 길어서제가 그냥 짐작으로 일부분만 때어 온겁니다..
현재 사용중인 리습과 수정해서 사용하고싶은 리습 첨부해서 올려놓을게요 ㅠ.ㅠ
도와주세요 ㅠ.ㅠ. 현재 사용중(SD.lsp) 수정해서 사용하고싶은리습 (isometric dimension v1.1.lsp)
수고하십시오!! (치수보조선 길이값을 정하는 부분입니다..)

  (setvar “cmdecho” 0)
   (command “CLAYER” “4” )
   (setvar “ORTHOMODE” 1)
   (setvar “OSMODE” 49)
   (setvar “cmdecho” 0)
   (setq *error* *err1*)
   (setq pnt1 (getpoint “n Pick 1st point:”))
   (setq *error* *err1*)
   (setq pnt2 (getpoint pnt1 “n Pick 2nd point:”))
   (setq deg  (getangle pnt2 “n pick angle of dim.:”))
   (setvar “OSMODE” 0)
   ;;(setq pnt3 (polar pnt2 deg 30))(terpri)
   (setq *error* *err1*)
   (setq fi (getreal “n DIM. text line Locate.:
                        n <In:0, Mid:1, Out:2 , last:3> [2]:”))
   (setvar “cmdecho” 0)
   (if (= fi nil) (setq fi 2))
   (setq fg fi)
   (if (= fg 0) (setq l 20.0))
   (if (= fg 1) (setq l 30.0))
   (if (= fg 2) (setq l 10.0))
   (if (= fg 3) (setq l 15.0 ))
   (setq ds (getvar “dimscale”))
   (setvar “textsize” (* 2.5 ds))
   (setq bB (* ds l))
   (setq cC (* ds 1))
   (setq dD (* ds 2.65))
   (setq g1 (polar pnt1 deg bB))
   (setq h1 (polar pnt2 deg bB))
   (setq e1 (polar pnt1 deg cC))
   (setq f1 (polar pnt2 deg cC))
   (setq i1 (polar g1 deg cC))
   (setq j1 (polar h1 deg cC))
   (setq DT  (distance g1 h1))
   (setq t2 (rtos DT 2 2))
   (setq t3 ( / DT 2))
  
   (setq txt (getstring “If change dim. text, input dim.text value.[ex;6000]:”))
   (if (= txt “”) (setq txt 6000) (setq txt (rtos (atof txt) 2 0)) )