函数的批量定义的两种方法

namezg

2. ;方法一
   
3. (defun c:ZG_SnapAng (/ cmdlst ang)
   
4. (setq cmdlst '(0 15 30 45 60 75))
   
5. (foreach x cmdlst
   
6.   (setq ang (* x (/ pi 180)))
   
7.   (eval
   
8.    (read
   
9.     (strcat
   
10.      "(defun c:" (rtos x) " ()
    
11.       (setvar "snapang" " (rtos ang) ")
    
12.       (princ)
    
13.      )"
    
14.     )
    
15.    )
    
16.   )
    
17. )
    
18. (princ)
    
19. )
    
20. 
    
21. ;方法二
    
22. (defun c:ZG_SnapAng (/ cmdlst ang)
    
23. (setq cmdlst '(0 15 30 45 60 75))
    
24. (foreach x cmdlst
    
25.   (setq ang (* x (/ pi 180)))
    
26.   (eval
    
27.    (list 'defun (read (strcat "C:" (rtos x))) '()
    
28.     (list 'setvar "snapang" ang)
    
29.     (list 'princ)
    
30.    )
    
31.   )
    
32. )
    
33. (princ)
    
34. )
    

;方法一<br /> (defun c:ZG_SnapAng (/ cmdlst ang)<br /> (setq cmdlst '(0 15 30 45 60 75))<br /> (foreach x cmdlst<br />   (setq ang (* x (/ pi 180)))<br />   (eval<br />    (read<br />     (strcat<br />      "(defun c:" (rtos x) " ()<br />       (setvar "snapang" " (rtos ang) ")<br />       (princ)<br />      )"<br />     )<br />    )<br />   )<br /> )<br /> (princ)<br /> )<br /> <br /> ;方法二<br /> (defun c:ZG_SnapAng (/ cmdlst ang)<br /> (setq cmdlst '(0 15 30 45 60 75))<br /> (foreach x cmdlst<br />   (setq ang (* x (/ pi 180)))<br />   (eval<br />    (list 'defun (read (strcat "C:" (rtos x))) '()<br />     (list 'setvar "snapang" ang)<br />     (list 'princ)<br />    )<br />   )<br /> )<br /> (princ)<br /> )<br />

vlisp2012

多谢分享了！

yoyoho

不错喔!感谢楼主分享学习!

xiaoyuzj-503

学习学习。感谢楼主分享

自贡黄明儒

http://www.xdcad.net/forum/thread-670421-1-1.html
这里还有一种方法

我爱lisp

什么意思？有什么用？

wayne_myles

我爱lisp 发表于 2015-6-16 15:03
什么意思？有什么用？

应该是让命令循环执行吧！