xia_jxs 发表于 2008-11-26 13:46:00

求助高手帮忙

在lisp编程中由于绘图需要 对IN_PK0至IN_PK40共有41个点存储了坐标的值。我想在绘图完毕后用一个循环语句把IN_PK0至IN_PK40都设置为NIL。这样就可以释放空间。请高手帮帮我编一个小程序，十分感谢！

caoyin 发表于 2008-11-26 13:59:00

(defun c:tt (/ i str)<br/>&nbsp; (setq i 0 str "IN_PK")<br/>&nbsp; (repeat 42<br/>&nbsp;&nbsp;&nbsp; (set (read (strcat str (itoa i))) nil)<br/>&nbsp;&nbsp;&nbsp; (setq i (1+ i))<br/>&nbsp; )<br/>)

xia_jxs 发表于 2008-11-26 14:50:00

<p>谢谢版主的帮助，向你致敬！</p><p></p>
页: [1]
查看完整版本: 求助高手帮忙