AutoCAD二次开发

wgm1533

;;大侠帮个忙，我编了一个程序，发现一点问题，请教于您，
疑问。一是，我想我不停地输入，希望这些输入最后都变成列表返回；第二
3 [3 {4 p0 @4 ?5 w9 r, k$ ]步是在这个列表中，我想输入一个m，然后返回第m个值以后的列表.
; Y- G. _6 B9 ?2 }9 D9 c: ~遇到的问题：第一步：我发现while不能停下来，不停的输入输入，即便回车还
& S* H, c; j# L0 ?  r是要求输入。对于第二步，一根肠子通到底的那种程序，
, ~$ v, A6 \. d; X8 |* y/ }  E+ \我已经差不多写出来了，主要是想学习一下子程序，但是我在调用的时候，老是提
示我no function definition CNR，非常感激不尽；
# B3 b  K- Q, P+ ^6 e; ?0 {
6 D4 N  c4 p& v* d(defun C:5test10()
;;
(setq str (getstring "The first string:"))
4 w- R9 q# L9 X* i" A, H/ {# m! U(setq input1_list '(str))
4 v0 h% O: [3 w! Y# M$ S(while str
7 ^& W5 S6 [, {) X9 v% \" D(setq str (getstring "\nThe next string:"))
(setq input_list (cons str input1_list))
)
, X1 S. ]8 y& Y0 k4 f(princ "input_list:")(princ input_list)
(setq m (getint "\nThe start number:"))
/ i4 N- i0 W( M' m. M3 i+ C! Z3 N9 T/ l(setq output_list (cnr m input_list))
" E- S6 t& C8 D" O7 E2 c: `(princ "output_list:")(princ output_list)
9 l; E6 k/ r! H6 @+ j$ q  s9 B7 Y;;
* N4 J/ J2 @8 [$ k2 s" x2 k(defun cnr(t alist)
(setq i 1)
! ]* i) d- k8 Z7 M0 M: J(while (< i t)
(setq alist (cdr alist))
6 O2 H! b3 n% D, Y) N(setq i (+ i 1))
! l* x, Y3 P5 c/ C% v5 S3 x)
(cdr alist)
)
4 E$ x2 K4 x* s% E# J# w- A4 N; C# ~* N;;
(prin1)
6 X" x5 Y. W! o) c2 P( H$ t)