自贡黄明儒 发表于 2013-8-22 15:18:14

一统+ strcat[原创]

本帖最后由 自贡黄明儒 于 2013-8-22 15:21 编辑

;;一统+ strcat
;;在处理输入时，可能有些用处 自贡黄明儒 2013年8月20日
;;(++ '(2 3));返回5
;;(++ '("A" 5));返回"A5"
(defun ++ (lis / SYMBOL X)
(if (vl-every 'numberp lis)
    (setq symbol +)
    (progn
      (setq symbol strcat)
      (setq lis      (mapcar      '(lambda (x)
                           (if (numberp x)
                           (VL-PRINC-TO-STRING x)
                           x
                           )
                         )
                        lis
                )
      )
    )
)
(apply 'symbol lis)
)
上面的代码不精简

海盗曹 发表于 2013-8-22 15:26:12

抢个沙发，多谢分享~

杨如迁 发表于 2013-8-23 08:55:09

多谢分享~

清风明月名字 发表于 2013-8-24 07:28:59

谢谢楼主代码分享！
页: [1]
查看完整版本: 一统+ strcat[原创]