如何组合多个SETVAR

KarolR · 发表于 2022-7-6 07:10:07

例如，不要写很多这样的内容：
（setvar“coords”2）（setvar“hpassoc”1）。。。
我可以合并吗？

BlackBox · 发表于 2022-7-6 07:17:31


(vl-load-com)
(foreach x (list '(coords 2)
                '(hpassoc 1)
                ;; <-- More sysvars
          )
 (vl-catch-all-apply 'setvar x)
)

Dadgad · 发表于 2022-7-6 07:22:36

是的，这个方法会奏效，但只有几件事（我的朋友，这不是对你的反思）。。。。

我非常不喜欢这种方法，主要是因为它将系统变量和所需值分为两个单独的列表，而不是如我上面的示例所示的一个列表对（即'（变量值））。

这不仅仅是源于代码维护的观点，因为保持变量值列表对在一起也有一个（尽管很小）性能优势。。。在此小速度测试中演示：

测试功能：

copy


(mapcar 'setvar '(coords hpassoc) (list 2 1))

速度测试结果：

copy


(vl-load-com)
(defun _Mapcar (vars vals)
 (mapcar 'setvar vars vals)
)
(defun _Foreach (pairs)
 (foreach x pairs
   (vl-catch-all-apply 'setvar x)
 )
)

BlackBox · 发表于 2022-7-6 07:23:29

两者之间的区别是什么：（list‘a’b’c），它给出了一个list（a b c），
和：（列出a b c），这也给出了（a b c）。
我不知道引号（'）函数是什么，为什么我需要它，在上面的示例代码中

Tharwat · 发表于 2022-7-6 07:27:42

如果您知道该列表中要提供的所有值，那么就不需要像我在该示例中演示的那样调用list函数。这样做只需最小化实际调用的时间列表的数量。

我使用List函数调用的原因是，我可以提供已知值（引用的项）以及需要评估的值（意味着在List调用本身中正在执行一些编程操作）。

考虑这个例子：
（vl load com）（foreach x（list）（坐标2）-（hpassoc 1）（list“osmode（cond）（=“user1”（setq user（getvar”loginname））255）（（=“user2”user）35）（（=“user3”user）39）（（=“user4”user）243）（T（getvar“osmode）） ;