[求助]：帮我看看这个小程序

SONGYANJUOK

(defun c:5test4()
   ;给出：baspt,w1,w2,a,b,d
   (setq baspt (getpoint "\n给出基点："))
   (setq w1 (getreal "\n斜边长："))
   (setq w2 (getreal "\n柄长："))
   (setq A (getreal "\n斜边弧度："))
   (setq B (getreal "\n端尾长："))
   (setq D (getreal "\n端头长："))
   ;求出p1～p10各点;e
   (setq p1 (polar baspt (* 1.5 pi) (/ B 2)))
   (setq p2 (polar p1 0 w2))
   (setq p3 (polar p2 (/ pi 2) B))
   (setq p4 (polar p3 pi w2))
   (setq p9 (polar baspt (/ pi 2) (/ D 2)))
   (setq p6 (polar p9 pi w1))
   (setq p7 (polar p6 (* 1.5 pi) D))
   (setq p10 (polar p7 0 w1))
   (setq E (/ w1 (cos A))
   (setq p5 (polar p6 A E))
   (setq p8 (polar p7 (- (* 2 pi) A) E))
   ;连接成为所获形
   (command "pline" p5 p6 p7 p8 "c")
   (command "pline" p1 p2 p3 p4 "c")
   (prin1)
)
(prompt "<<5test4>>伞型零件绘图")
(prin1)

命令行输入：（load"5test4"）回车，再输入：5test4  后返回：错误：列表有缺陷，会是什么原因呢？括号方面是绝对没问题的。

lsjjm

"括号方面是绝对没问题的"?
请看这一行:
(setq E (/ w1 (cos A))         ??? !!!

SONGYANJUOK

最初由 lsjjm 发布
[B]"括号方面是绝对没问题的"?
请看这一行:
(setq E (/ w1 (cos A))         ??? !!! [/B]

真是惭愧！！多谢你了！顺便问一句，是不是凡是列表有缺陷的都是因为括号呢？

鹰博长空

建议使用可以自动查找括号匹配的编辑器，比如cad自带的Vlisp编辑器