函数名作为变量的小用法

Casa小宝

eval是lisp最特别的函数之一，其用法灵活
下面举个遍历选择集的小例子
遇到类似的需要反复利用的一段程序，都可用以简化程序

2. ;~自定义遍历选择集(可嵌套使用)
   
3. ;子函数funcstr默认可使用mm和ent变量，若只使用这两个变量可不带变量运行
   
4. (defun Ca_repeat(sset funcstr / mm ent)
   
5. (setq mm 0)
   
6.   (repeat (sslength sset)
   
7.     (setq ent (ssname sset mm))
   
8.     (eval(read funcstr))
   
9.     (setq mm (1+ mm))
   
10.   )
    
11.   )
    
12. 
    
13. ;例如
    
14. (setq ss (ssget))
    
15. (Ca_repeat ss "(if (= "0" (dxf 8 (entget ent))) (princ "\n 含0图层"))")
    
16. (defun DXF (NO ED)
    
17.        (cdr (assoc NO ED))
    
18.    )
    

;~自定义遍历选择集(可嵌套使用)<br /> ;子函数funcstr默认可使用mm和ent变量，若只使用这两个变量可不带变量运行<br /> (defun Ca_repeat(sset funcstr / mm ent)<br /> (setq mm 0)<br />   (repeat (sslength sset)<br />     (setq ent (ssname sset mm))<br />     (eval(read funcstr))<br />     (setq mm (1+ mm))<br />   )<br />   )<br /> <br /> ;例如<br /> (setq ss (ssget))<br /> (Ca_repeat ss "(if (= "0" (dxf 8 (entget ent))) (princ "\n 含0图层"))")<br /> (defun DXF (NO ED)<br />        (cdr (assoc NO ED))<br />    )<br />

yxp

eval 和 read 的组合可以在程序运行过程中生成代码，编译的时候会有警告提示
(eval(read ******(eval(read ######))***)) 的嵌套使用会更妙
我忘了是在哪个程序中这样用过了

Casa小宝

yxp 发表于 2013-7-25 19:50
eval 和 read 的组合可以在程序运行过程中生成代码，编译的时候会有警告提示
(eval(read ******(eval(read ...

我也只是懂些皮毛：），不死猫前辈这方面研究的更多
例如 http://bbs.mjtd.com/thread-72144-1-1.html 可选参数调用
或者他近来关于加密的研究，都是运用这个原理

Casa小宝

eval + read + vl-prin1-to-string 的运用也是很有趣的
下面这个函数用到了gu版的gxl-StrParse，请搜索相关帖子得到该子函数

2. ;指定调用多层嵌套的子函数
   
3. (defun Ca_call(funcstr / funclst lst n str)
   
4.   (setq funclst (gxl-StrParse funcstr ":")
   
5.         funclst (reverse funclst);("d" "c" "a")
   
6.         lst '())
   
7.   (foreach n funclst
   
8.     (setq str (vl-prin1-to-string (setq lst (cons (read n) lst)))  
   
9.           lst (list str)
   
10.           )
    
11.     )
    
12.   (eval(read str))
    
13.   )
    
14. 
    
15. (defun a(funcst / a-1)
    
16.   (defun a-1(funcst / a-1-1 a-1-2)
    
17.     (defun a-1-1() (alert "a-1-1"))
    
18.     (defun a-1-2() (alert "a-1-2"))
    
19.     (alert "a-1")
    
20.     (eval (read funcst))
    
21.     )
    
22.   (defun a-2(funcst / a-2-1 a-2-2)
    
23.     (defun a-2-1() (alert "a-2-1"))
    
24.     (defun a-2-2() (alert "a-2-2"))
    
25.     (alert "a-2")
    
26.     (eval (read funcst))
    
27.     )
    
28.   (alert "a")
    
29.   (eval (read funcst))
    
30.   )
    
31. 
    
32. (Ca_call "a:a-1:a-1-2")

;指定调用多层嵌套的子函数<br /> (defun Ca_call(funcstr / funclst lst n str)<br />   (setq funclst (gxl-StrParse funcstr ":")<br />         funclst (reverse funclst);("d" "c" "a")<br />         lst '())<br />   (foreach n funclst <br />     (setq str (vl-prin1-to-string (setq lst (cons (read n) lst)))  <br />           lst (list str) <br />           )<br />     )<br />   (eval(read str))<br />   )<br /> <br /> (defun a(funcst / a-1)<br />   (defun a-1(funcst / a-1-1 a-1-2)<br />     (defun a-1-1() (alert "a-1-1"))<br />     (defun a-1-2() (alert "a-1-2"))<br />     (alert "a-1")<br />     (eval (read funcst))<br />     )<br />   (defun a-2(funcst / a-2-1 a-2-2)<br />     (defun a-2-1() (alert "a-2-1"))<br />     (defun a-2-2() (alert "a-2-2"))<br />     (alert "a-2")<br />     (eval (read funcst))<br />     )<br />   (alert "a")<br />   (eval (read funcst))<br />   )<br /> <br /> (Ca_call "a:a-1:a-1-2")

TPG辉

[em0][em0]

xiangzai2527

顶一顶.......

yfs719

哗，刚刚开始，不知道自己有没有这个恒心。