能否得到像系统自带的*或/或or之类的函数形式

我的我啊

玩了这一段时间了
发现有的系统函数可以选择输入变量或不输入或多输入
例如（inters p1 p2 p3 p4 mode) 最后一个mode可以输入也可以省略。
或例如 （* i1 i2 i3 ....in) 可输入一个到多个不受限制。
我们用lisp编写的函数就没法做到这样，还是其实可以？
有没有同志有思路，或否定掉这个思路，或已经可以做到了。

ll_j

直接做不行，可以变通，就是后面参数用表，由表来变长。
建议看看我的“认识自定义函数”，或许能有帮助。

自贡黄明儒

最近想到一个办法，是不是可以通过判断参数来重新定义函数实现，比如:
(defun LM:acdoc nil
    (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
    (LM:acdoc)
)

我的我啊

自贡黄明儒 发表于 2014-9-26 12:44
最近想到一个办法，是不是可以通过判断参数来重新定义函数实现，比如:
(defun LM:acdoc nil
    (eval (l ...

这个方法我也用过，但是还是做不到多个参数的生成
e.g.

1. (defun Constant (/ lst)
   
2. (setq lst '(2 3 4 5 6))
   
3. (mapcar '(lambda (x y)
   
4.     (eval (list 'defun x (list '/) (list '/ 'pi y)))
   
5.    )
   
6.   (mapcar 'read
   
7.    (mapcar '(lambda (x)
   
8.       (strcat "pi/"
   
9.        (rtos
   
10.         x
    
11.        )
    
12.       )
    
13.      )
    
14.     lst
    
15.    )
    
16.   )
    
17.   lst
    
18. )
    
19. (mapcar '(lambda (x y)
    
20.     (eval (list 'defun x (list 'a) (list '/ 'a (list '* '1.0 y))))
    
21.    )
    
22.   (mapcar 'read
    
23.    (mapcar '(lambda (x) (strcat "/" (rtos x)))
    
24.     lst
    
25.    )
    
26.   )
    
27.   lst
    
28. )
    
29. )

(defun Constant (/ lst)<br /> (setq lst '(2 3 4 5 6))<br /> (mapcar '(lambda (x y)<br />     (eval (list 'defun x (list '/) (list '/ 'pi y)))<br />    )<br />   (mapcar 'read<br />    (mapcar '(lambda (x)<br />       (strcat "pi/"<br />        (rtos<br />         x<br />        )<br />       )<br />      )<br />     lst<br />    )<br />   )<br />   lst<br /> )<br /> (mapcar '(lambda (x y)<br />     (eval (list 'defun x (list 'a) (list '/ 'a (list '* '1.0 y))))<br />    )<br />   (mapcar 'read<br />    (mapcar '(lambda (x) (strcat "/" (rtos x)))<br />     lst<br />    )<br />   )<br />   lst<br /> )<br /> )

我的我啊

ll_j 发表于 2014-9-26 12:21
直接做不行，可以变通，就是后面参数用表，由表来变长。
建议看看我的“认识自定义函数”，或许能有帮助。

这个方法稍微和我说的有所出入，这个始终也就一个变量

ivde

不可以，Lisp 从出生就不可以