xyp1964 发表于 2005-2-24 00:28:00

(repeat (length pts)<BR>                       (setq pt (nth i pts))<BR>                       (setq pt1 (cadr pt))


……


应改为：


(repeat (length pts)<BR>                       (setq pt       (nth i pts)<BR>               pt1 (car pt)<BR>               pt2 (cadr pt)<BR>                       )


……

houlinbo 发表于 2005-3-1 19:26:00

输入：居中打印，不要输C
页: 1 [2]
查看完整版本: 请帮我编一个程序，谢谢！