[求助]：LISP中是否有把表转为字符的函数？

wzg

如：(1 2 3 4 5)->"1 2 3 4 5"

qjcpj

可自定义一个！Look ......
;;TEST by qjcpj 05.01.20 PM12:10
;;Example: (list>-str '(1 2 3 4 5))
(defun list>-str        (lst / str)
        (setq str (itoa (car lst)))
        (foreach nb lst
                (setq str (strcat str (chr 32) (itoa nb)))
        )
        (setq str (substr str 3))
        (eval 'str)
)

eachy

这个程序网上早有现成的

2. 
   
3. (defun spa (lst spa /)
   
4.   (substr
   
5.     (apply 'strcat
   
6.            (mapcar '(lambda (x) (strcat spa (vl-princ-to-string x)))
   
7.                    lst
   
8.            )
   
9.     )
   
10.     (1+ (strlen spa))
    
11.   )
    
12. )

<br /> (defun spa (lst spa /)<br />   (substr<br />     (apply 'strcat<br />            (mapcar '(lambda (x) (strcat spa (vl-princ-to-string x)))<br />                    lst<br />            )<br />     )<br />     (1+ (strlen spa))<br />   )<br /> )

aeo

命令: (vl-princ-to-string '(1 2 3 4))
"(1 2 3 4)"