LISP也能实现函数重载

asen

在cond或if的条件中使用type，numberp等函数，LISP也能模仿C++函数的重载功能，函数参数数量只能有一个定值，以下举例说明：

;;HGCAD.COM

;;以dxf索引取出对应dxf值，可以接受某一对象的图元名或图元表。
(defun HG-GetDXF (en-el dxf)
     (cond ((= (type en-el) 'ENAME) (cdr (assoc dxf (entget en-el))))
              ((= (type en-el) 'LIST)  (cdr (assoc dxf en-el)))
              (t nil)
     )
)

以下是type函数返回值：

数据类型	type 函数返回的数据类型说明
ENAME	图元名
EXRXSUBR	外部 ObjectARX 应用程序
FILE	文件描述符
INT	整数
LIST	表
PAGETB	函数分页表
PICKSET	选择集
REAL	浮点数
SAFEARRAY	安全数组
STR	字符串
SUBR	内部 AutoLISP 函数或由编译（FAS 或 VLX）文件加载的函数从 AutoCAD 命令提示中加载的 LISP 源文件函数也可能作为 SUBR 出现。
SYM	符号
VARIANT	变体
USUBR	从 LISP 中加载的用户定义函数
VLA-object	ActiveX 对象

carrot1983

“重载”在C#的学习过程中遇到过，是非常不错的功能。LISP在这方面差了。。。

同一个函数名，可以定义无数个。每一个函数的参数类型及数量都不一样（也可以一样）。

举个例子：

(defun DXF (A B)

(+ A B)

)

(defun DXF (lst)

(car lst)

)

(defun DXF (str i len)

(substr str i len)

)

在LISP里面，只能最后一个DXF函数起作用，后面的会覆盖掉前面的定义。

而有了“重载”功能。每个DXF函数都能起作用。

楼主这样子的做法，某种程度上会遇到麻烦。

LISP真的要重载，其实只要提供一个LIST类型的参数。即

(defun Fun (LST)

(setq A (nth 0 LST))

(setq B (nth 1 LST))

;;etc....

)

狂刀无痕

你把我弄糊涂了，搞个“重载”这么高级的名词。

但是所举的例子，这是lisp最稀松平常的应用啊。

zml84

carrot1983 解释得很充分。

补充一点：C#可以使多个函数体使用同一函数名，实质上编译器是将用户函数名加上参数类型，作为新的内部函数名。

jxphklibin

重载？？？？？迷糊

bridgewind

不错，确实是个思路