리습 혼자 만들어보는 중인데 에러가나서 질문드립니다 ..

지금 필요한리습이 있어서 혼자 짜집기+검색공부해가면서 만드는중입니다.
현재 만드는 중간입니다만 아마도 COND? 부분에서 계산이 안되는 것 같아서 질문드립니다 .ㅠㅠ
D1값을 두포인트의 DISTANCE로 값을 구한다음
그 값이 얼마냐에 따라서 COND함수로 H1값을 정의하고싶습니다 ….
도움 부탁드립니다 .ㅠㅠ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:tst (/ )
        ;->*error* start ; 작업중 취소 또는 에러 발생시 오스냅,레이어 복원함
 (defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” osm)  (setvar “clayer” cla) (command “undo” “e”) (princ))
;-<*error* end
 (setq osm (getvar “osmode”)) ; 현재 오스냅 저장
 (setq cla (getvar “clayer”)) ; 현재 레이어 저장
  (command “undo” “GROUP”)
    (defun dtr (a) (* pi (/ a 180.0)))
 (defun rtd (a) (* 180.0 (/ a pi)))
 (SETVAR “blipmode” 0)
(setq p1 (getpoint “n>>start point….:”))

(setq p2 (getpoint “n>>Second point….:”))
(SETQ R1 (OSNAP P1 “END”))
(SETQ R2 (OSNAP P2 “END”))
(SETQ R3 (RTD (ANGLE R1 R2))) ;볼트 회전각도
(SETQ D1 (DISTANCE R1 R2))  ;M값

(SETQ D2 (/ D1 2)) ;M의 반값
(SETQ C1 (POLAR R1 (DTR R3) D2)) ;볼트의 중심

  (COND ((= D1 6) (SETQ H1 10)) ;M값 6일때 볼트머리 10
        ((= D1 8) (SETQ H1 13))
        ((= D1 10) (SETQ H1 16))
        ((= D1 12) (SETQ H1 18))
        ((= D1 16) (SETQ H1 24))
        ((= D1 20) (SETQ H1 30))
        ((= D1 24) (SETQ H1 36))
 (PROMPT “볼트사이즈가 아님”)
);COND END
 
  (SETQ H2 (/ H1 2)) ;볼트머리의 반값
 (SETQ C2 (POLAR C1 (DTR R3) H2))

(COMMAND “LINE” C2 P1 “”);테스트용
(COMMAND H2);테스트용

     (command “undo” “e”)
   (setvar “osmode” osm) ; 저장했던 오스냅으로 복원
  (setvar “clayer” cla) ; 저장했던 레이어로 복원
  (princ )
);defun end