（XD::List:ToFile）表内容写出到文件

newer

1. (defun XD::List:ToFile (fn lst / fl x)
   
2.   (setq fl (open fn "w"))
   
3.   (if fl
   
4.     (progn
   
5.       (if (> (length lst) 0)
   
6.         (mapcar
   
7.           '(lambda (x)
   
8.              (cond
   
9.                ((= (type x) 'LIST)
   
10.                  (mapcar
    
11.                    '(lambda (y)
    
12.                       (write-line (vl-princ-to-string y) fl)
    
13.                     )
    
14.                    x
    
15.                  )
    
16.                )
    
17.                (t
    
18.                  (write-line (vl-princ-to-string x) fl)
    
19.                )
    
20.              )
    
21.            )
    
22.           lst
    
23.         )
    
24.       )
    
25.       (close fl)
    
26.       t
    
27.     )
    
28.   )
    
29. )
    

(defun XD::List:ToFile (fn lst / fl x)<br />   (setq fl (open fn "w"))<br />   (if fl<br />     (progn<br />       (if (> (length lst) 0)<br />         (mapcar<br />           '(lambda (x)<br />              (cond<br />                ((= (type x) 'LIST)<br />                  (mapcar<br />                    '(lambda (y)<br />                       (write-line (vl-princ-to-string y) fl)<br />                     )<br />                    x<br />                  )<br />                )<br />                (t<br />                  (write-line (vl-princ-to-string x) fl)<br />                )<br />              )<br />            )<br />           lst<br />         )<br />       )<br />       (close fl)<br />       t<br />     )<br />   )<br /> )<br />

yoyoho

啥也不说了，感谢 N版 分享哇！

ynhh

看来是全源码
太感谢大师了

凝思

谢谢大神！

sh_h

啥也不说了，感谢楼主分享哇！

434939575

十分感谢！大好人！

aimisiyou

进来点个赞。

qqqincccken

謝謝大師的分享學習啊

qqqincccken

謝謝大師的分享學習啊

colinjian22

啥也不说了，感谢楼主分享哇！

占卜者

谢谢大师，超赞

bzhjl

查了好久的问题终于有答案了！感谢版主。

yjch

这个有用的很，谢谢，好好学习天天向上

majian_lmx

版主武威，感谢！

dqshy108

感谢大神，非常棒，