(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的请问一下这是怎么回事啊？？？
置顶卡
