AutoCAD二次开发
;;大侠帮个忙，我编了一个程序，发现一点问题，请教于您，疑问。一是，我想我不停地输入，希望这些输入最后都变成列表返回；第二
步是在这个列表中，我想输入一个m，然后返回第m个值以后的列表.
遇到的问题：第一步：我发现while不能停下来，不停的输入输入，即便回车还
是要求输入。对于第二步，一根肠子通到底的那种程序，
我已经差不多写出来了，主要是想学习一下子程序，但是我在调用的时候，老是提
示我no function definition CNR，非常感激不尽；
(defun C:5test10()
;;
(setq str (getstring "The first string:"))
(setq input1_list '(str))
(while str
(setq str (getstring "\nThe next string:"))
(setq input_list (cons str input1_list))
)
(princ "input_list:")(princ input_list)
(setq m (getint "\nThe start number:"))
(setq output_list (cnr m input_list))
(princ "output_list:")(princ output_list)
;;
(defun cnr(t alist)
(setq i 1)
(while (< i t)
(setq alist (cdr alist))
(setq i (+ i 1))
)
(cdr alist)
)
;;
(prin1)
)
页:
[1]