lisp中的变量计数

nmulder · 发表于 2022-7-6 09:36:31

我正在寻求帮助，我正在努力制定一个常规。我们公司将包含电气服务面板计划信息的Excel文件“粘贴为链接”粘贴到我们的工作表中。每张纸可以有1到12个。他们想要一种方法来跟踪哪些面板在哪张纸上，或者作为一个完全独立的表，或者在每一张纸上作为表的“页脚”。

我惊讶地发现，关于OLE对象的可用信息如此之少。但我确实遇到了DOSlib，它有一个olelist函数。它生成图形中OLE对象的列表，包括文件路径。（为了使DOSlib工作，必须加载它——可以从这里下载：http://download.rhino3d.com/McNeel/1.0/doslib/.然后删除文件路径和扩展名，并将其传递给变量。我最需要的帮助是如何编写代码，这样例程将计算图形中的OLE，并将每个OLE传递给自己的变量，同时删除文件路径和扩展名。

下面是我的代码，因为它是从尝试不同的事情。感谢您的帮助。谢谢

copy


(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)
)

alanjt · 发表于 2022-7-6 10:01:13

哈哈，我觉得我们每个月都要经历一次。为什么不只是有一个列表，您可以从中获取项目（使用nth），而不是为每个项目分配变量。

如。

copy

(setq lst (mapcar 'vl-filename-base (dos_olelist 2)))

eg。

copy

(nth 3 lst)

nmulder · 发表于 2022-7-6 10:28:33

当我使用mapcar时，我不得不笑自己。这肯定比我做的快多了！谢谢你的帮助。我不是很有经验，我学到的是通过反复试验和大量的代码采样。在你们的例子中，lst实际上是一个列表，对吗？为什么字段不接受该变量？

我还不完全理解“foreach”或“nth”。。。你的第n个小例子很有道理。。。但是，如果我不知道在任何给定的绘图中列表中有多少项，我该如何使“第n个”工作？

再次感谢你的帮助。