怎么嵌套mapcar，怎么解，大佬有更好的方法吗？

yaojing38 · 发表于 2025-6-20 20:26:55

(mapcar '(lambda(x)
(mapcar '(lambda(y)
(mapcar '(lambda(z)
(entxjentss (cadr z))
)
y)
)
x
)
)
ents1)

复制代码

比如我要嵌套5次mapcar 的结果，怎么写呢？有大佬有好的写法吗？赐教下！万分感谢！

kozmosovia · 发表于 2025-6-21 13:55:50

yaojing38 发表于 2025-6-21 10:26
大佬，可以示范下写法吗？递归判断是list就继续mapcar吗？

最简单的图块分解递归写法：

(Defun _Explode (vlo / OBX)
(and (vlax-method-applicable-p vlo "Explode")
(setq obx (vl-catch-all-apply 'vla-explode (list vlo)))
(not (vl-catch-all-error-p obx))
(progn (vla-erase vlo)
(mapcar '_Explode
(vlax-safearray->list (vlax-variant-value obx))
)
)
)
)

dandee · 发表于 2025-6-21 00:34:58

List operation. It's super powerful.

x----> ents1  --> (list a b c d)
y----> ents2 ---> (list e f g h)
z----> ents3 ---> (list i j k l)
...
(mapcar '(lambda(x y z)
(progn (setq yy (+ x y) zz (* y z))
            (setq xx ( / yy zz))
         .....
))
(list a b c d)(list e f g h) (list i j k l))

--->new list ( o p q r)

kozmosovia · 发表于 2025-6-21 09:49:45

这种单纯嵌套，表层都是没有具体执行其他函数操作的情况，直接将最底层定义成函数用递归比lambda要好。用lambda相当于要提前预知并定义需要多少层，递归可以不用管，而且允许不同的输入递归层数不一样。就像如同彻底分解图块，顶层图块内有多少层嵌套都无所谓。

guosheyang · 发表于 2025-6-20 20:47:35

mapcar 与lambda 的组合就是循环与 repeat while forehach 等一样的一般三重循环就是较多的了五重循环不知道是啥情况

mahuan1279 · 发表于 2025-6-20 20:50:57

不说具体问题等于耍流氓

yaojing38 · 发表于 2025-6-20 21:00:30

mahuan1279 发表于 2025-6-20 20:50
不说具体问题等于耍流氓

就是跟树枝一样，需要遍历每个分枝

你有种再说一遍 · 发表于 2025-6-20 21:22:09

yaojing38 发表于 2025-6-20 21:00
就是跟树枝一样，需要遍历每个分枝

建议学习C#,避免连map都不知道

yaojing38 · 发表于 2025-6-21 10:26:25

kozmosovia 发表于 2025-6-21 09:49
这种单纯嵌套，表层都是没有具体执行其他函数操作的情况，直接将最底层定义成函数用递归比lambda要好。用la ...

大佬，可以示范下写法吗？递归判断是list就继续mapcar吗？

Bao_lai · 发表于 2025-6-21 11:18:46

不说具体问题等于耍流氓

账号		自动登录	找回密码
密码			注册

[讨论] 怎么嵌套mapcar，怎么解，大佬有更好的方法吗？

评分