程序数据（参数）以表的形式保存至TXT文件与提取

wxytiger

1. (defun ace-config-restore (filename / f line text data)
   
2.   (setq f (open filename "r")
   
3.     text ""
   
4.   )
   
5.   (while (setq line (read-line f))
   
6.     (setq text (strcat text line))
   
7.   )
   
8.   (close f)
   
9.   (setq data (read text))
   
10.   (mapcar
    
11.     '(lambda (x)
    
12.        (set (car x) (cdr x))
    
13.      )
    
14.     data
    
15.   )
    
16. )
    
17. (defun ace-config-save (filename symbols / f data)
    
18.   (setq data (apply
    
19.            'list
    
20.            (mapcar
    
21.          '(lambda (x)
    
22.             (cons x (vl-symbol-value x))
    
23.           )
    
24.          symbols
    
25.            )
    
26.          )
    
27.   )
    
28.   (setq f (open filename "w"))
    
29.   (prin1 data f)
    
30.   (close f)
    
31. )
    

(defun ace-config-restore (filename / f line text data)<br />   (setq f (open filename "r")<br />     text ""<br />   )<br />   (while (setq line (read-line f))<br />     (setq text (strcat text line))<br />   )<br />   (close f)<br />   (setq data (read text))<br />   (mapcar<br />     '(lambda (x)<br />        (set (car x) (cdr x))<br />      )<br />     data<br />   )<br /> )<br /> (defun ace-config-save (filename symbols / f data)<br />   (setq data (apply<br />            'list<br />            (mapcar<br />          '(lambda (x)<br />             (cons x (vl-symbol-value x))<br />           )<br />          symbols<br />            )<br />          )<br />   )<br />   (setq f (open filename "w"))<br />   (prin1 data f)<br />   (close f)<br /> )<br />

从明经上找到的方法。认为不错，贴出来。
原作者为明经的vectra。

rq28

来是你是双重身份哈:lol

wxytiger

rq28 发表于 2013-10-16 14:06
来是你是双重身份哈

学习阶段，当然多个论坛都要跑的。各位版主不也都是这样。

Free-Lancer

数据随图有多种方法，外部保存只是其一，孰优孰劣看个人习惯

wxytiger

Free-Lancer 发表于 2013-10-16 14:38
数据随图有多种方法，外部保存只是其一，孰优孰劣看个人习惯

是的。不过我最近搞的几个程序都是数据需要与图纸分离的，所以觉得这种方法还不错，论坛上介绍的不多，所以贴过来和大家分享一下，对于我们这些初学者，还是很有帮助的。

hemanhejz7

(lambda (x)  (set (car x) (cdr x))  大师这句是什么意思

wxytiger

相当于赋值函数，(car x) 相当于变量  (cdr x) 是变量的值。

wxytiger

hemanhejz7 发表于 2015-6-19 14:05
(lambda (x)  (set (car x) (cdr x))  大师这句是什么意思

相当于赋值函数，(car x) 相当于变量  (cdr x) 是变量的值。

xhwcj@sina.com

很好的，学习中啊。。。。。。。。。。。。。。:):)