[功能] 连接成字符串

自贡黄明儒 · 发表于 2014-3-20 09:26:49

本帖最后由自贡黄明儒于 2014-3-20 09:28 编辑

;;[功能] 连接成字符串
(defun HH::strcat (Lst)
(VL-CATCH-ALL-APPLY 'strcat (mapcar 'VL-PRINC-TO-STRING Lst))
)
;;(HH::strcat(list "a" 20.2 "B"))=>"a20.2B"

328302216 · 发表于 2014-3-20 10:36:36

黄兄这个跟直接 strcat 的区别是什么？

【KAIXIN】 · 发表于 2014-3-20 16:40:28

字符N多数字只有几个的时候效率较低

77077 · 发表于 2014-3-29 16:38:35

黄大师出品，支持下！
 (VL-CATCH-ALL-APPLY (strcat (mapcar (VL-PRINC-TO-STRING Lst))))
 (VL-CATCH-ALL-APPLY 'strcat (mapcar 'VL-PRINC-TO-STRING Lst))
这连个的区别是什么？“'”号的作用是？

逍遥无声 · 发表于 2022-7-22 02:27:35

账号		自动登录	找回密码
密码			注册

[源码] [功能] 连接成字符串

本帖被以下淘专辑推荐:

点评