我想用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 "") );程序结束
|