菜卷鱼 发表于 2019-7-12 11:07:55

prinx 大法已经练成

本帖最后由 菜卷鱼 于 2020-3-30 17:02 编辑

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

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

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



taoyi0727 发表于 2019-7-12 12:11:01

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

菜卷鱼 发表于 2019-7-12 13:59:50

本帖最后由 菜卷鱼 于 2019-7-12 14:04 编辑

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

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

taoyi0727 发表于 2019-7-12 15:29:06

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

菜卷鱼 发表于 2019-7-12 16:28:48

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

你说得有道理:handshake
页: [1]
查看完整版本: prinx 大法已经练成