20020672 发表于 2006-4-26 00:26:00

求助:一个小问题

<P>我写了一段小程序:(defun zidong()<BR>&nbsp; (setq x0 (getpoint "请输入起点坐标"))<BR>&nbsp; (setq n (getint "请输入段数"))<BR>(setq l0 '())<BR>(repeat n<BR>&nbsp; (setq i(getreal "请输入跨距"))<BR>(setq l0 (append l0 (list i))))<BR>&nbsp; (setq m0 1)<BR>&nbsp; (setq n0 1)<BR>&nbsp; (while (&lt;= n0 n)<BR>&nbsp;&nbsp;&nbsp; (setq l (nth m0 l0))&nbsp;&nbsp;:此句有错<BR>&nbsp;&nbsp;&nbsp; (setq x1 (list (+ (car x0) l) (cadr x0)))<BR>&nbsp;&nbsp;&nbsp; (setq x2 (list (+ (car x0) l) (-(cadr x0) 2.5)))<BR>&nbsp;&nbsp;&nbsp; (setq x5 (list (car x2) (-(cadr x2) 2)))<BR>&nbsp;&nbsp;&nbsp; (setq n0 (+ n0 1))<BR>&nbsp;&nbsp;&nbsp; (setq m0 (+ m0 1))<BR>&nbsp;&nbsp;&nbsp; (command "line" x0 x1 "")<BR>&nbsp;&nbsp;&nbsp; (command "line" x1 x2 "")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "circle" x5 2)<BR>&nbsp;&nbsp;&nbsp; (setq x0 (list (car x1)(cadr x1)))<BR>&nbsp;&nbsp;&nbsp; ))</P>
<P>但是在nth那句有错,nth后面只能跟整数,可是我想从1---n的提取数据,该怎么办啊???</P>
<P>求大家帮助</P>

liu_kunlun 发表于 2006-4-26 07:39:00

<P>例如:(nth 1 (list 5 3 8 4))将得到3,位置从0开始,最后面是一个表.</P>

leasson 发表于 2006-4-26 11:03:00

<P>用上面的方法&nbsp; 再加上一个while循环就可以了</P>
页: [1]
查看完整版本: 求助:一个小问题