[函数]帮忙解决下这段代码问题

lzy9788

帮忙解决下这段代码问题红色部分错在哪里) (defun c:aaa ()
(setq p1 (getpoint "\npick point:") lis nil)
(while
(setq p2 (getpoint "\npick point:"))
(setq lis (append lis (list p2)))
)
(setq num (length lis) ee 0)
(command "pline" p1)
(while (< ee num) (nth ee lis) (setq ee (1+ ee)))
(command "")
(princ))

lzy9788

其实这里是能直接用PLINE实现的，
不过我还要加入一段程序，与其合并。
所以有劳各位大侠解决。

meflying

(nth ee lis)什么也没做,干什么用?

meflying

我也写了一个... 看了你的这么多问题,我觉得你应该努力了,你写的程序结构也算有点复杂了,可进步很少啊,遇到问题应该先动脑筋,不要对这里存在依赖性,对基础知识也要再加强掌握一下,否则就很难进步了 (defun c:aaa ()
(command "_.pline")
(while (= (getvar "cmdactive") 1)
(command pause)
)
(command "")
(vla-get-length (vlax-ename->vla-object (entlast)))
)

lzy9788

呵呵，多谢meflying大哥。 说实话我也从没专门买书去看，只是从CAD帮助文件里看了些 lisp的函数，再参考了别人的一些程序，我编程从去年10月开始的。 很想买本书的，不过一直是从工作的紧张中挤出时间来编几个程， 因为工作的需要,所以也显得有些依赖人。 听了meflying大哥的指教，我一定会去买本书来学学基本的东西。 再次谢了。 不过你说的那个（nth ee lis)为什么会没用了？我是从列表中提出各点。 能为小弟解释下吗?

lzy9788

有关LISP的书籍是不是&lt;&lt;LISP&amp;DCL基础篇&gt;&gt;最好，我好像在网上看到过这本书，不过我去了深圳书城，没看到过。不知哪位大哥知道深圳哪里有？望告之小弟，多谢……

meflying

(nth ee lis)你提取出来后什么也没做啊(没有把它赋给谁,也没有进行运算)...

lzy9788

(command (while (< ee num) (nth ee lis) (setq ee (1+ ee))) ) 为什么这样也不行了

meflying

1,循环中(nth ee lis)没有任何作用,已经跟你说了好几遍了,,, 2,command后面的参数是while返回值,注意这里while并不是循环一次就返回一个值,而是返回最后一次计算式的值,应该是最后一次循环中ee的值,所以你的这句就相当于 (command num) 3,你的意思应该是想lis中的每个元素动command一回吧,应该这样 (apply 'command lis)

lzy9788

明白，多谢meflying耐心的解答，小弟在此万分感谢。