wangsr 发表于 2024-7-20 08:11:40


感谢大佬，无私奉献

kzd2004 发表于 2024-7-20 09:11:26

大佬，这个能炸开吗？谢谢你了。

尘缘一生 发表于 2024-7-20 09:47:03

本帖最后由 尘缘一生 于 2024-7-20 10:00 编辑

kzd2004 发表于 2024-7-20 09:11
大佬，这个能炸开吗？谢谢你了。

能炸开

你这个块，查是等比块，但是用本坛的分解不等比块程序，可以炸开。你找找。

kzd2004 发表于 2024-7-20 10:02:38

尘缘一生 发表于 2024-7-20 09:47
能炸开

你这个块，查是等比块，但是用本坛的分解不等比块程序，可以炸开。你找找。

谢谢你了啊。

尘缘一生 发表于 2024-7-20 10:11:16

本帖最后由 尘缘一生 于 2024-7-20 10:28 编辑

kzd2004 发表于 2024-7-20 10:02
谢谢你了啊。
不客气，对于块来说呢，光炸这个功能，就是个很复杂的，因为很多情况。
要做到任何块，加密的也好，都万能炸开，本坛并没有谁给出集成源码，我发的也是一部分。
大致来说，有这么些方面。



yk1216 发表于 2024-7-20 20:58:50

感谢大佬 无私奉献

moshouhot 发表于 2024-7-22 16:07:54

老哥，sl:list-substassoc函数能不能发一下？

尘缘一生 发表于 2024-7-22 16:15:22

moshouhot 发表于 2024-7-22 16:07
老哥，sl:list-substassoc函数能不能发一下？

;根据 lstSub 子表中的首元素 替换 lstSource 中对应表元-----(一级)--------
;lstSub需要替换的列表   lstSource源列表   bAdd是否向源列表中追加 原本没有的元素
(defun sl:list-substassoc (lstSub        lstSource        bAdd / e e1)
        (foreach e lstSub
                (if (setq e1 (assoc (car e) lstSource))
                        (setq lstSource (subst e (assoc (car e) lstSource) lstSource))
                        (if bAdd (setq lstSource (append lstSource (list e))))
                )
        )
        lstSource
)

chenhuixo 发表于 2024-7-23 09:06:29

大佬无私！大佬牛逼！
页: 1 [2]
查看完整版本: 新开一贴，我的最终：炸属性快