不限制数量的历史记录

cq4920

监控命令窗口，出现QSAVE触发命令！
问题1，目前只能保存两次记录（已解决）
问题2，相同文件地址和名称，不能覆盖（需要一个查重--已解决）
问题3，如何提取记录，然后快速打开文件！（已解决）

2. (vlr-command-reactor nil '((:VLR-commandEnded . cmdEnd)))
   
3. (defun cmdend (vlr lst)
   
4.   (setq cmd  (car lst))
   
5.         (if (= cmd "QSAVE")
   
6.                 (dwgs)
   
7.         )
   
8. )
   
9. (defun dwgs (/ dwgname dwgfile fp dwgfile path file i a out )
   
10.   (setq        dwgname  (getvar 'dwgname))
    
11.   (setq        dwgfile (getvar "DWGPREFIX"))
    
12.   (setq        dwgfilename (strcat dwgfile dwgname))
    
13.         (SETQ FP (OPEN "C:\\Users\\Administrator\\AppData\\Roaming\\MRCSET.TXT" "r"))
    
14.   (SETQ path (READ-LINE FP))
    
15.         (CLOSE FP)
    
16.   (setq pathn (strcat path "\\配置\\history" ".txt"))
    
17.         
    
18.         (if (vl-directory-files (strcat path "\\配置\") "history.txt")
    
19.         (progn
    
20.          (setq file (open pathn  "r"))
    
21.           (while (setq a (read-line file))
    
22.       (setq out (append out (list a)))
    
23.     )
    
24.         (close file)
    
25.   (setq out (append (list dwgfilename) out)
    
26.                     i 0)
    
27.   (setq out        (MC-pt out))        ;;查重
    
28.         (setq file (open pathn  "w"))
    
29.         (repeat (length out)
    
30.         (write-line (nth i out) file)
    
31.         (setq        i (1+ i))
    
32.                 )
    
33.         (close file)        
    
34.                 )
    
35.                 (progn
    
36.                 (setq file (open pathn  "w"))
    
37.                 (write-line dwgfilename file)
    
38.                 (close file)
    
39. ))
    
40.         
    
41. )

(vlr-command-reactor nil '((:VLR-commandEnded . cmdEnd)))<br /> (defun cmdend (vlr lst)<br />   (setq cmd  (car lst))<br />         (if (= cmd "QSAVE")<br />                 (dwgs)<br />         )<br /> )<br /> (defun dwgs (/ dwgname dwgfile fp dwgfile path file i a out )<br />   (setq        dwgname  (getvar 'dwgname))<br />   (setq        dwgfile (getvar "DWGPREFIX"))<br />   (setq        dwgfilename (strcat dwgfile dwgname))<br />         (SETQ FP (OPEN "C:\\Users\\Administrator\\AppData\\Roaming\\MRCSET.TXT" "r")) <br />   (SETQ path (READ-LINE FP))<br />         (CLOSE FP)<br />   (setq pathn (strcat path "\\配置\\history" ".txt"))<br />         <br />         (if (vl-directory-files (strcat path "\\配置\") "history.txt")<br />         (progn<br />          (setq file (open pathn  "r"))<br />           (while (setq a (read-line file))<br />       (setq out (append out (list a)))<br />     )<br />         (close file)<br />   (setq out (append (list dwgfilename) out) <br />                     i 0)<br />   (setq out        (MC-pt out))        ;;查重<br />         (setq file (open pathn  "w"))<br />         (repeat (length out)<br />         (write-line (nth i out) file)<br />         (setq        i (1+ i))<br />                 )<br />         (close file)        <br />                 )<br />                 (progn<br />                 (setq file (open pathn  "w"))<br />                 (write-line dwgfilename file)<br />                 (close file)<br /> ))<br />         <br /> )

中国梦

不会，哈哈

liuhe

我记得leemac  有类似的程序，你可以去找找

自贡黄明儒

会不会你只在文件中写了 两行，所以始终只有两行？
(write-line dwgfilename ff)
  (write-line oldff ff)
这不只写了两行吗？

烟盒迷唇

不循环就只能读一次了

cq4920

自贡黄明儒 发表于 2022-11-30 08:41
会不会你只在文件中写了 两行，所以始终只有两行？
(write-line dwgfilename ff)
  (write-line oldff ff ...

我以为，第一次保存，没有读取数据，应该只生成一条，
当第二次命令的时候，有了读取数据，就会生成2条
第三次的时候，应该把前两条都读取了+新的，就会有三条，每次保存都是先读取原本的所有记录，然后加上新的记录！
但是现在发现读取的时候只能读取一条！