怎样一次定义490个函数
本帖最后由 baitang36 于 2022-6-2 08:24 编辑为了计算指定钢筋根数的总截面积，我需要定义c:1d4到c:35d32 共490个函数，经过试验，获得成功。
共享一下源码，希望能有朋友喜欢。
(defun gjmj (x y) (setq mj (/ (* x 3.1415926 y y) 4))) ;计算公式 s=x*pi*y^2/4
(setq x 1)
(while (< x 36) ；根数1-35循环
(foreach y '(4 6 8 10 12 14 16 18 20 22 25 28 30 32) ；钢筋直径表
(progn
(set (read (strcat "c:" (itoa x) "d" (itoa y))) ；构造函数名
(eval
(read (strcat " '(nil (gjmj " (itoa x) " " (itoa y) "))")) ；函数内容（gjmj x y）
) ;_ eval
) ;_ set
(vl-acad-defun (read (strcat "c:" (itoa x) "d" (itoa y)))) ；定义成cad命令
) ;_ progn
) ;_ foreach
(setq x (1+ x)) ；根数加1
) ;_ while
;计算钢筋根数截面积，加载本程序后，在命令行输入3d6回车，就是计算3根直径6的钢筋的截面积。可以计算从1根到35根直径从4到32的钢筋截面积
一下搞出许多函数，是不是想在不同函数中使用这些定义的函数，这样即使破解了，一个一个删除，就够破解者烦了？ 本帖最后由 baitang36 于 2022-6-2 13:29 编辑
自贡黄明儒 发表于 2022-6-2 11:21
一下搞出许多函数，是不是想在不同函数中使用这些定义的函数，这样即使破解了，一个一个删除，就够破解者烦 ...
3d6 4d6 5d6 ......
为了使用方便
如果用于加密，当然可以，是防破解的一种不错的方式。让破解者去替换几百个函数，也是件艰巨的任务。
20060510412 发表于 2022-6-3 17:03
这个方法通用性更强，很不错。
有相应的示例可以参考么，十分想了解一下。
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=88273&pid=897543
这个贴参考一下 用反应器未知命令来判别##d##进行感觉更好 690994 发表于 2022-6-2 08:30
用反应器未知命令来判别##d##进行感觉更好
好办法，可以试试 应该不是这意思
只是单纯想“命令行输入3d6回车”
就计算出相关结果 masterlong 发表于 2022-6-2 11:53
应该不是这意思
只是单纯想“命令行输入3d6回车”
就计算出相关结果
理解正确，如果每个函数都单独定义很麻烦，用个循环一次定义一批函数。 直径4跟30可以考虑删除了 进阶考虑下支持4d16和4d18+4d16组合模式？ Bao_lai 发表于 2022-6-2 16:03
直径4跟30可以考虑删除了
你自己改一下吧，全部源码都在这里了
页:
[1]
2