[LISP函数]：把表（LIST）转换成字符串...

XDSoft

2. 
   
3. ;|
   
4.    函数：$l2string
   
5.    参数：表
   
6.    作用：把LIST转换成字符串
   
7.    适用平台：AutoCAD任何版本
   
8.    
   
9.    欢迎到“晓东CAD空间－论坛”，[url]http://www.fspdi.com/forum[/url]
   
10.    获得更多函数
    
11. |;
    
12. (defun $l2string (pl / f str)
    
13.   (if (setq f (open "l$s.temp" "w"))
    
14.     (progn
    
15.       (princ pl f)
    
16.       (close f)
    
17.       (if (setq f (open "l$s.temp" "r"))
    
18.         (progn
    
19.           (setq str (read-line f))
    
20.           (close f)
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   str
    
26. )
    

<br /> ;|<br />    函数：$l2string<br />    参数：表<br />    作用：把LIST转换成字符串<br />    适用平台：AutoCAD任何版本<br />    <br />    欢迎到“晓东CAD空间－论坛”，[url]http://www.fspdi.com/forum[/url]<br />    获得更多函数<br /> |;<br /> (defun $l2string (pl / f str)<br />   (if (setq f (open "l$s.temp" "w"))<br />     (progn<br />       (princ pl f)<br />       (close f)<br />       (if (setq f (open "l$s.temp" "r"))<br />         (progn<br />           (setq str (read-line f))<br />           (close f)<br />         )<br />       )<br />     )<br />   )<br />   str<br /> )<br />

测试结果：
命令: (setq a '((35 5 56) 24 "3ffafg"))
((35 5 56) 24 "3ffafg")

命令: ($l2string a)
"((35 5 56) 24 3ffafg)"