急，请帮忙解答一下

apple327

(defun C:dwx ()
  (setq osmode 0)
  (setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond ((=  a 1) (setq h 4) (setq d 3) (setq l 10) (setq c 0.2))
        ((=  a 2) (setq h 4) (setq d 3) (setq l 10) (setq c 0.2))
        ((> a 2) (setq h 5) (setq d 5) (setq l 12) (setq c 0.4))
        ( princ "\n没有此值")
           )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.5))
        p3 (polar p2 (* pi 0.25) 0.707107)
        p4 (polar p3 (* pi 0.5) (- l h 0.5))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333) (* 1.035276 c))
        p8 (polar p1 (* pi 0.5) l)
        p14(polar p1 pi (- (/ d 2) 0.5))
        p13 (polar p14  (* pi 0.75) 0.707107)
        p12 (polar p13 (* pi 0.5) (- l h 0.5))
        p11 (polar p12 (* pi 2) (/ (- d a) 2))
        p10 (polar p11 (* pi 0.5) (- h c))
        p9  (polar p10 (* pi 0.416667) (* 1.035276 c))
当我把p2p14连起来、:a=3时，本来p2p14=5,可是却等于4
                      a=1，2时，等于2，本来设定是3的请问一下这是怎么回事啊？？？

meflying

命令/ 5 2)
2
命令/ 5.0 2)
2.5