自贡黄明儒 发表于 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

:handshake
页: [1]
查看完整版本: [功能] 连接成字符串