求批量定义函数？

cchessbd

求各位高手帮我精简以下函数，尽量精简些来批量定义。因为我还想加一些、、、
但是论坛的帖子的代码，我看不懂。怎么修改那个帖子的代码，都达不到我以下代码的效果。

(defun C:+A () (TQHZ "K*+*" "A" "Q") )
(defun C:+B () (TQHZ "K*+*" "B" "Q") )
(defun C:+C () (TQHZ "K*+*" "C" "Q") )
(defun C:+D () (TQHZ "K*+*" "D" "Q") )
(defun C:+E () (TQHZ "K*+*" "E" "Q") )
(defun C:+F () (TQHZ "K*+*" "F" "Q") )
(defun C:+G () (TQHZ "K*+*" "G" "Q") )
(defun C:+H () (TQHZ "K*+*" "H" "Q") )
(defun C:+I () (TQHZ "K*+*" "I" "Q") )
(defun C:+J () (TQHZ "K*+*" "J" "Q") )
(defun C:+L () (TQHZ "K*+*" "L" "Q") )
(defun C:+M () (TQHZ "K*+*" "M" "Q") )
(defun C:+N () (TQHZ "K*+*" "N" "Q") )

以下为答案1：
(foreach n '(1 2 3 4 5 6)
        (eval (list 'defun (read(strcat"L"(itoa n))) nil (list 'setq 'key n)'(princ key) ))
)

以下为答案2：

• (setq lChars '("E" "F" "G" "H" "I" "J" "L" "M" "N"))
  
• (defun funcs_defun (lChars / sChar)
  
•   (foreach sChar lChars
  
•     (eval (list 'defun (read  (strcat "C:+" sChar)) nil (list 'TQHZ "K*+*" sChar "Q")))
  
•   );_for
  
• );_defun
  
  

以下为答案3：

• (defun c:tt()
•   (defun abc(tx)(eval(read(strcat"(defun C:+"tx"(/)(TQHZ\"K*+*\"\""tx"\"\"Q\"))"))))
•   (mapcar 'abc '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N"))
•   (princ)
• )
  

liuhe

(setq num 65 i 23)
(repeat        i
  (eval        (read (strcat "(defun-q""\tc:+"(chr NUM)"(/) (TQHZ"
                       "\"K*+*\""
                      (vl-prin1-to-string(chr NUM))
                      "\"Q\""
                      "))"
              )
        )
  )
  (SETQ I (1+ I))
)
(defun-q-list-ref 'C:+A )
defun-q  是用来测试查看函数定义的，测试完成成后，改成defun  别人就看不到定义了。

求助，如何批量定义函数 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)

cchessbd

liuhe 发表于 2023-3-15 09:01
(setq num 65 i 23)
(repeat        i
  (eval        (read (strcat "(defun-q""\tc:+"(chr NUM)"(/) (TQHZ"

谢谢您！但是您可能没注意，+K是没有定义的。

我想要的是这样的
(foreach n '(1 2 3 4 5 6)
        (eval (list 'defun (read(strcat"L"(itoa n))) nil (list 'setq 'key n)'(princ key) ))
)

就是我把 表里面替换成 "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N" ，没有“K"

229096767

(setq lst '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N"))
(foreach item lst
  (eval
    (list 'defun-q
          (read (strcat "c:+" item))
          nil
          (list 'TQHZ "K*+*" item "Q")
    )
  )
)
;抄了前面的:菜卷鱼

菜卷鱼

(defun c:tt (/ s)
  (setq _ascii 65)
  (repeat 13
    (setq s (chr _ascii))
    (eval (list        'defun-q
                (read (strcat "c:+" s))
                nil
                (list 'TQHZ "K*+*" s "Q")
          )
    )
    (setq _ascii (1+ _ascii))
  )
)

liuhe

菜卷鱼 发表于 2023-3-15 09:07
(defun c:tt (/ s)
  (setq _ascii 65)
  (repeat 13

表还可以这样用 想学习了。我以前只是玩字符串

e2002

1. (setq lChars '("E" "F" "G" "H" "I" "J" "L" "M" "N"))
   
2. (defun funcs_defun (lChars / sChar)
   
3.   (foreach sChar lChars
   
4.     (eval (list 'defun (read  (strcat "C:+" sChar)) nil (list 'TQHZ "K*+*" sChar "Q")))
   
5.   );_for
   
6. );_defun

(setq lChars '("E" "F" "G" "H" "I" "J" "L" "M" "N"))<br /> (defun funcs_defun (lChars / sChar)<br />   (foreach sChar lChars<br />     (eval (list 'defun (read  (strcat "C:+" sChar)) nil (list 'TQHZ "K*+*" sChar "Q")))<br />   );_for<br /> );_defun

都是一个套路哈...

cchessbd

谢谢以上各位高手的热心回复。太感谢了！

主要是最近遇到的问题太多了。自己能力又很不够，没法一一解决。

e2002

eval 这一句，如果换成 apply ，该怎么写呢？

cchessbd

e2002 发表于 2023-3-15 10:39
eval 这一句，如果换成 apply ，该怎么写呢？

我也搞不懂。尤其是mapcar,lamda
再加上混合了defun,list,eval,read的话，把我要绕晕。