求助：如何将列表中的元素转成字符串？

atimao

如何将列表中的元素转成字符串？如 (12 34 56 78 90)=>"1234567890".　谢谢！

meflying

2. (defun list-string(lst)
   
3.   (setq a (vl-prin1-to-string (car lst)))
   
4.   (apply 'strcat (mapcar '(lambda(b) (vl-prin1-to-string b)) lst))
   
5. )

(defun list-string(lst)<br />   (setq a (vl-prin1-to-string (car lst)))<br />   (apply 'strcat (mapcar '(lambda(b) (vl-prin1-to-string b)) lst))<br /> )

atimao

非常感谢！刚学Autolisp语言，找不到 "vl-prin1-to-string"是什么函数，所以无法理解，

自已琢磨瞎写了一段：
(defun list_string (a b n)
(setq a "")
(foreach  n (reverse (例表)) (setq a (strcat (setq b (itoa n)) a )))
)
可不清楚为什么要设变量"a"为空才可以执行?　变量没设定时，默认是应该为空吗？

meflying

那句(setq a ...)可以不要，将vl-prin1-to-string改为itoa或rtos都可以
(defun list-string(lst)
  (apply 'strcat (mapcar '(lambda(b) (vl-prin1-to-string b)) lst))
)

atimao

谢谢，简单明了

龙龙仔

(defun LIST-STRING (LST)
  (apply 'strcat
         (mapcar 'vl-prin1-to-string LST)
  )
)