求助高手帮忙

xia_jxs

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

caoyin

(defun c:tt (/ i str)
  (setq i 0 str "IN_PK")
  (repeat 42
    (set (read (strcat str (itoa i))) nil)
    (setq i (1+ i))
  )
)

xia_jxs

谢谢版主的帮助，向你致敬！