高手幫我解決下,急!謝謝

wocall

我学LISP不到2天,写了这样的程序,大家帮我看下问题出在哪里? (defun bolt(R d h L)
(setvar "cmdecho" 0)
(setq x1 100.0 y1 100.0)
(setq p1 (list (- x1 (/ d 2.0)) y1))
(setq p2 (list (+ x1 (/ d 2.0)) y1))
(setq p3 (list (+ x1 (/ d 2.0)) (- y1 L)))
(setq p4 (list (- x1 (/ d 2.0)) (- y1 L)))
(setq p5 (list (+ x1 (/ R 2.0)) y1))
(setq p6 (list (+ x1 (/ R 2.0)) (+ y1 h)))
(setq p7 (list (- x1 (/ R 2.0)) (+ y1 h)))
(setq p8 (list (- x1 (/ R 2.0)) y1))
(command "line" p2 p5 p6 p7 p8 p1 p4 p3 p2 "C")
(princ)
) 为什么每次加载后(函数参数相同)画出的图形都不一样呢???很迷茫.有高手帮我指点下,谢谢!我很急.

BDYCAD

程序没有什么毛病吧. (bolt 8 5 6 7)
(defun bolt(R d h L / os x1 y1 p1 p2 p3 p4 p5 p6 p7 p8)
(setvar "cmdecho" 0)
(setq os (getvar "osmode" ))
(setq x1 100.0 y1 100.0)
(setq p1 (list (- x1 (/ d 2.0)) y1))
(setq p2 (list (+ x1 (/ d 2.0)) y1))
(setq p3 (list (+ x1 (/ d 2.0)) (- y1 L)))
(setq p4 (list (- x1 (/ d 2.0)) (- y1 L)))
(setq p5 (list (+ x1 (/ R 2.0)) y1))
(setq p6 (list (+ x1 (/ R 2.0)) (+ y1 h)))
(setq p7 (list (- x1 (/ R 2.0)) (+ y1 h)))
(setq p8 (list (- x1 (/ R 2.0)) y1))
(setvar "osmode" 0)
(command "pline" p2 p5 p6 p7 p8 p1 p4 p3 p2 "C")
(setvar "osmode" os)
(princ)
)

wocall

太谢谢妳了,BDYCAD,你如果现在离我不远,晚饭我请你.OK?