求助大师们优化一个统计块名并汇总的代码，谢谢！

金鹅起飞

小弟从同事处得到个程序（出处不详），目前只能框选属性块统计到块名及其数量，但不能去重和汇总块数量，因为工作中经常使用到这个插件这样的功能，可以省事快速完成工作，我去论坛搜索过，没有找到类似的代码，也让deepseek优化更改，搞了一个上午都没有成功。请看到此贴的大师们出手相助，帮帮小弟，谢谢！小弟不才，不会代码编写，只有求助大师们帮助了。源码和要求在下方，谢谢您们！

金鹅起飞

请有缘看到的大师帮帮忙，谢谢您了！

xiao1984

你搜一下论坛有现成的超级统计块（源码分享）
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7331256
(出处: 明经CAD社区)

金鹅起飞

xiao1984 发表于 2025-4-20 18:38
你搜一下论坛有现成的超级统计块（源码分享）
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90917&f ...

谢谢 xiao1984 大师的回复，我搜索到了这个代码，它可以实现一部分的功能。我的目标是选择属性块后统计属性包围盒里所有的块名进行块名去重、块数量累加并最后汇总。它这个是框选所有的块都会统计，不能统计属性块里的块，表格的格式也不是我想要的。谢谢您！

金鹅起飞

请大师们出手相助，谢谢！

统一网名

金鹅起飞 发表于 2025-4-21 08:17
请大师们出手相助，谢谢！

(defun @汇总 (front base)
        (setq all-names nil)
        (foreach item front
                (setq all-names (cons (car item) all-names))
        )
        (foreach item base
                (if (not (member (car item) all-names))
                        (setq all-names (cons (car item) all-names))
                )
        )       
        (setq result nil)
        (foreach name all-names
                (setq fval 0)
                (setq bval 0)
                (setq entry-in-front (assoc name front))
                (setq entry-in-base (assoc name base))
                (if entry-in-front
                        (setq fval (cadr entry-in-front))
                )
                (if entry-in-base
                        (setq bval (cadr entry-in-base))
                )
                (setq total (+ fval bval))
                (setq result (cons (list name fval bval total) result))
        )
         result
)

;
(defun c:tt (/ $底座 $前壳 result)
        (setq $前壳 (list '("AK34铜芯-外协厂1" 1) '("Kuma-15主帽（镀镍)" 2)'("ty-uobo" 1)))
        (setq $底座 (list '("AK34铜芯-外协厂1" 1) '("Kuma-15主帽（镀镍)" 2)'("M6x12内牙母-外协厂1" 2)))
        (setq result (@汇总 $前壳 $底座))
        (princ result)
)
;结果 ((AK34铜芯-外协厂1 1 1 2) (Kuma-15主帽（镀镍) 2 2 4) (ty-uobo 1 0 1) (M6x12内牙母-外协厂1 0 2 2))
让豆包写了个函数，你的问题应该可以解决了。

kozmosovia

这类需求明显是需要个性化定制的，最好还是找人付费制作。想白嫖。。。。基本不可能的了。

自贡黄明儒

用table做块统计，是比较合适的

liuhe

如果需要付费定制，可以联系我