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 对象

来源 http://hgcad.com/blog-2-34.html

baitang36

十年前的帖子竟然还不过时

NetBee

参数数量是硬伤，所以只能用表传入。