prinx 大法已经练成

菜卷鱼

prinx 大法已经练成 ，原贴已删感谢海大师
【首发】定义真正意义的可选参数（附带防反编译技术）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=399892
(出处: 明经CAD社区)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun prinx (str)
(setq a 1122334455 a 0 a 0)
(mapcar 'princ str)
(princ)
)

taoyi0727

为什么不这样呢?
(defun prin (lst)
        (mapcar 'prin1 lst)
        (princ)
)

菜卷鱼

taoyi0727 发表于 2019-7-12 12:11
为什么不这样呢?
(defun prin (lst)
        (mapcar 'prin1 lst)

你这个用的话要多打一个括号，(prin '("a" "b" "c" ))或者 (prin (list a b c))

taoyi0727

那样一个一样写 要写好多
而且prin后面个数要和参数的个数要对上
要是多了,还得1个1个去数

菜卷鱼

taoyi0727 发表于 2019-7-12 15:29
那样一个一样写 要写好多
而且prin后面个数要和参数的个数要对上
要是多了,还得1个1个去数

你说得有道理