[求助]菜鸟请大家帮忙看看
 

[求助]菜鸟请大家帮忙看看
www.dimcax.com
[求助]菜鸟请大家帮忙看看
我想用lisp画一个表格
自己写了一小段代码 可是加载进去后总是出错 请帮忙看看是怎么回事 谢谢大家
(defun c:zbbg()
(setq pt (getpoint"\n请选择成果表写入点:"))
(setq p1(polar pt 0 20)
(setq p2(polar pt 0 44))
(setq p3(polar pt 0 83))
(setq p4(polar pt 0 122))
(setq p5(polar pt 0 147))
(setq p6(polar pt 0 172))
(setq p7(polar pt (/ pi 2) 220))
(setq p8(polar p6 (/ pi 2) 220))
(command "line" p1 p6 "")
(command "line" p1 p7 "")
(command "line" p7 p8 "")
(command "line" p6 p8 "")
);程序结束
d
(setq p1(polar pt 0 20)
少一括号
d
还要关闭osmode
d
知道了 真的是太感谢了
d