lisp中的变量计数
我正在寻求帮助，我正在努力制定一个常规。我们公司将包含电气服务面板计划信息的Excel文件“粘贴为链接”粘贴到我们的工作表中。每张纸可以有1到12个。他们想要一种方法来跟踪哪些面板在哪张纸上，或者作为一个完全独立的表，或者在每一张纸上作为表的“页脚”。我惊讶地发现，关于OLE对象的可用信息如此之少。但我确实遇到了DOSlib，它有一个olelist函数。它生成图形中OLE对象的列表，包括文件路径。（为了使DOSlib工作，必须加载它——可以从这里下载：http://download.rhino3d.com/McNeel/1.0/doslib/.然后删除文件路径和扩展名，并将其传递给变量。我最需要的帮助是如何编写代码，这样例程将计算图形中的OLE，并将每个OLE传递给自己的变量，同时删除文件路径和扩展名。
下面是我的代码，因为它是从尝试不同的事情。感谢您的帮助。谢谢
(defun oleVars (/ olefiles olepath olename)
(vl-load-com)
(setq olelist (dos_olelist 2))
(setq oll (length olelist))
(setq cntr 1)
(while (< cntr oll)
(setq cntr (+ cntr 1))
)
(mapcar 'set '(o1 o2 o3 o4 o5 o6) olefiles)
(setq olename (vl-filename-base olepath))
(princ)
)
哈哈，我觉得我们每个月都要经历一次。为什么不只是有一个列表，您可以从中获取项目（使用nth），而不是为每个项目分配变量。
如。
(setq lst (mapcar 'vl-filename-base (dos_olelist 2)))eg。
(nth 3 lst) 当我使用mapcar时，我不得不笑自己。这肯定比我做的快多了！谢谢你的帮助。我不是很有经验，我学到的是通过反复试验和大量的代码采样。在你们的例子中，lst实际上是一个列表，对吗？为什么字段不接受该变量？
我还不完全理解“foreach”或“nth”。。。你的第n个小例子很有道理。。。但是，如果我不知道在任何给定的绘图中列表中有多少项，我该如何使“第n个”工作？
再次感谢你的帮助。
考虑使用foreach：
这里的“项”只是表示所提供列表（lst）中的一个项的符号-对于每次迭代，该符号取列表中一个项的值，直到处理完所有项为止。
例如：
(foreach x '(1 2 3 4 5)
(princ x)
)将打印：
5
页:
[1]