怎样一次定义490个函数

baitang36

为了计算指定钢筋根数的总截面积，我需要定义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 11:21
一下搞出许多函数，是不是想在不同函数中使用这些定义的函数，这样即使破解了，一个一个删除，就够破解者烦 ...

3d6 4d6 5d6 ......
为了使用方便
如果用于加密，当然可以，是防破解的一种不错的方式。让破解者去替换几百个函数，也是件艰巨的任务。

690994

20060510412 发表于 2022-6-3 17:03
这个方法通用性更强，很不错。
有相应的示例可以参考么，十分想了解一下。

http://bbs.mjtd.com/forum.php?mo ... 8273&pid=897543


这个贴参考一下

690994

用反应器未知命令来判别##d##进行感觉更好

baitang36

690994 发表于 2022-6-2 08:30
用反应器未知命令来判别##d##进行感觉更好

好办法，可以试试

masterlong

应该不是这意思
只是单纯想“命令行输入3d6回车”
就计算出相关结果

baitang36

masterlong 发表于 2022-6-2 11:53
应该不是这意思
只是单纯想“命令行输入3d6回车”
就计算出相关结果

理解正确，如果每个函数都单独定义很麻烦，用个循环一次定义一批函数。

Bao_lai

直径4跟30可以考虑删除了

Bao_lai

进阶考虑下支持4d16和4d18+4d16组合模式？

baitang36

Bao_lai 发表于 2022-6-2 16:03
直径4跟30可以考虑删除了

你自己改一下吧，全部源码都在这里了