CAD 리습 요청(만들어 주시면 사겠습니다.)

리습은 어렵지 않습니다. 수정해가며  배워보세요.
카운터보링만 올려드립니다. 다른것은 응용해서 함수명을 바꾸시고 데이타와 글자를 수정해보세요.
(defun c:cb_l ()
 ;—————- 사용자입력——————
  (setq pt (getpoint “n점선택:”))
  (setq m (getdist “n볼트치수는 M:”))

 ;—————- 데이타——————
  (setq cb-data
 ‘(
 (3 3.4 5.5 6 3 2.7 3.3)
 (4 4.5 7 8 4 3.6 4.4)
 (5 5.5 8.5 9.5 5 4.6 5.4)
 (6 6.6 10 11 6 5.5 6.5)
 (8 9 13 14 8 7.4 8.6)
 (10 11 16 17.5 10 9.2 10.8)
 (12 14 18 20 12 11 13)
 (14 16 21 23 14 12.8 15.2)
 (16 18 24 26 16 14.5 17.5)
 (18 20 27 29 18 16.5 19.5)
 (20 22 30 32 20 18.5 21.5)
 (22 24 33 35 22 20.5 23.5)
 (24 26 36 39 24 22.5 25.5)
 (27 30 40 43 27 25 29)
 (30 33 45 48 30 28 32)
 (33 36 50 54 33 31 35)
 (36 39 54 58 36 34 38)
 (39 42 58 62 39 37 41)
 (42 45 63 67 42 39 44)
 (45 48 68 72 45 42 47)
 (48 52 72 76 48 45 50)
 (52 56 78 82 52 49 54)
 )
 );
 ;—————- 데이타선택 ——근사값이 2이면 큰것으로 선택
 (setq m (fix (+ m 0.5))) ; 반올림 정수
 (if (setq cb-sel (assoc m cb-data)) ;—–데이타에서 같은것을 찾는다
     (print (strcat “n M” (itoa m) “으로 선택되었읍니다.”))
     (progn
        (print (strcat “n M” (itoa m) “은 데이타가 없읍니다.”))
        (setq dm (apply ‘min (mapcar ‘(lambda (x) (abs (- (nth 0 x) m))) cb-data))) ; 가장 적은 오차
        (setq ms (- m dm) ml (+ m dm))
        (if (not (setq cb-sel (assoc ml cb-data)))
            (setq cb-sel (assoc ms cb-data))
        );if
        (setq m (nth 0 cb-sel))
        (print (strcat “n M” (itoa m) “으로 선택 합니다.”))
     );progn
 );if

 ;—————- 데이타중 필요한값 ——
 (setq m (nth 0 cb-sel) d1 (nth 1 cb-sel) d2 (nth 3 cb-sel) h (nth 6 cb-sel))

 ;—————- 글씨입력——————
 (setq txt (strcat “%%C” (rtos d1) “Drill DCB %%C” (rtos d2)” DP” (rtos h) ))
 (setq d (* (getvar “dimscale”) (getvar “dimasz”) 10))
 (setq p (polar pt (/ pi 3) d))
 (command “qleader” pt p “” “” txt “”)
) ;defun