替换点对

Lee Mac · 发表于 2022-7-5 18:48:35

抱歉，在写我的上述解释时，我有点误解了您对该函数的意图-这里有另一种使用mapcar表达式的方式：

(mapcar '(lambda ( x ) (if (= 3 (car x)) '(3 . 6) x)) l)

aloy · 发表于 2022-7-5 18:56:16

谢谢LM。它运行良好，大约是最短的。
我需要更正我在7号帖子中的陈述。我刚刚发现，我在acad 2013和2014中使用的vlisp代码在2010年制作“表格”时不起作用，因为我没有在顶部包含“vl load com”。
再次感谢您，
芦荟

[编程交流] 替换点对