新开一贴，我的最终：炸属性快

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

大佬无私！大佬牛逼！

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

[经验] 新开一贴，我的最终：炸属性快

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

评分