20020672 发表于 2006-4-25 02:03:00

各位大侠,跪求一段小程序,请帮忙看看啊!!!

<P>&nbsp;&nbsp;&nbsp; 各位能不能帮我想一段lisp程序,会按提示在autocad中连续输入n个数据(getreal),然后再可以把这n个数据一个个的提取出来用(nth(1,2,3,4..............n)),就好比c语言中的数组一样:i1,i2,i3...............in.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 请大家帮忙看看,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 只需提供一些命令提示给我就行了.小弟不胜感激了!!!&nbsp;&nbsp; 你们看看是不是要用到getreal, nth, list这些命令啊,还需要什么命令啊???</P>

liu_kunlun 发表于 2006-4-25 07:50:00

<P>(setq n 0 out nil)</P>
<P>(while (setq a (getreal (strcat " \n输入第" (rtos (setq n (1+ &nbsp;n))) "个数:")))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq out (append out (list a)))</P>
<P>)</P>
<P>结果在out中,形如(1 2 3 3 3)</P>

leasson 发表于 2006-4-25 12:29:00

用repeat或while循环来提取就行了
页: [1]
查看完整版本: 各位大侠,跪求一段小程序,请帮忙看看啊!!!