lisp如何将文本中的数据写到文件上

jly0406

在网上找了代码改的，目的是把文本文件中的数据写到文件上，目前的代码看不太懂，只能写第一个逗号那块，并且好像list那块不对，求大侠帮改改，能大概实现附图的结果就行，可以接受选一个基点写一行数据

(defun c:get( / b1 b2 b3 d dat_file ff n path1 txt1 x y)
; 用于lsp与txt之间数据传输
  (setq path1 (getvar "dwgprefix"))
  (setq ff (open (strcat path1 "样表" ".txt" ) "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。
  (write-line "C1215,1200,1500,20,左10右10,2层" ff)
  (write-line "C1515,1500,1500,16,左8右8,4层" ff)
  (write-line "C1815,1800,1500,22,左11右11,4层" ff)
  (write-line "C2118,2100,1800,14,左7右7,12层" ff)
  (write-line "C0921,900,2100,6,左6,4层" ff)
  (close ff)
  (setq dat_file (getfiled "选择txt的文件或样表" path1 "txt" 2))
  (setq n 1 b1 '() b2 '() b3 '() ff (open dat_file "r"))
  (while (setq txt1 (read-line ff))
      (setq b1 (parse txt1 ","))
      (setq d (nth 0 b1) x (atof (nth 1 b1)) y (atof (nth 2 b1)) )
      (setq b2 (list n d x y) b3 (cons b2 b3) n (1+ n) )

   )


   (setq b3 (reverse b3))
   (setq d (nth 1 (nth 2 b3)) )
    (setq p1 (getpoint "\n请指定插入点："))
    (command "text"  p1 100 0 d "")
   (print b3) (print "第3行第1个数值：")(princ d)
   (princ)
   )

  (defun parse (str delim / lst pos)
  ;明经Gu-xl编写,将字符串按照区别符delim分成表str
      (setq pos (vl-string-search delim str))
      (while pos
        (setq lst (cons (substr str 1 pos) lst)
              str (substr str (+ pos 2))
             pos (vl-string-search delim str)
        )
      )
      (if (> (strlen str) 0)
        (setq lst (cons str lst))
      )
      (if (= " " delim) (setq lst (vl-remove "" lst)))
      (reverse lst)
    )
    ;测试
;    (setq s (list 'a 'b 'c))

edata

2. (defun c:get( / b1 b2 b3 d dat_file ff n path1 txt1 x y
   
3.        CH FX I LC OLD_CMD P1 P2 P3 P4 P5 P6 PT SL STR STR_LST )
   
4. ; 用于lsp与txt之间数据传输
   
5.   (setq path1 (getvar "dwgprefix"))
   
6.   (setq ff (open (strcat path1 "样表" ".txt" ) "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。
   
7.   (write-line "C1215,1200,1500,20,左10右10,2层" ff)
   
8.   (write-line "C1515,1500,1500,16,左8右8,4层" ff)
   
9.   (write-line "C1815,1800,1500,22,左11右11,4层" ff)
   
10.   (write-line "C2118,2100,1800,14,左7右7,12层" ff)
    
11.   (write-line "C0921,900,2100,6,左6,4层" ff)
    
12.   (close ff)
    
13.   (setq dat_file (getfiled "选择txt的文件或样表" path1 "txt" 2))
    
14.   (setq n 1 b1 '() b2 '() b3 '() ff (open dat_file "r"))
    
15.   (setq str_lst '())
    
16.   (while (setq txt1 (read-line ff))
    
17.       (setq b1 (parse txt1 ","))
    
18.     (setq str_lst(cons b1 str_lst))
    
19.       ;(setq d (nth 0 b1) x (atof (nth 1 b1)) y (atof (nth 2 b1)) )
    
20.       ;(setq b2 (list n d x y) b3 (cons b2 b3) n (1+ n) )
    
21. 
    
22.    )
    
23.   (setq str_lst (reverse str_lst))
    
24. 
    
25. (setq pt(getpoint "\n请指定插入点：") i 0)
    
26.     (if (and pt str_lst)
    
27.       (progn
    
28.   (setq old_cmd(getvar "cmdecho"))
    
29.   (setvar "cmdecho" 0)
    
30.   (command "_.undo" "be")
    
31.   (repeat (length str_lst)
    
32.     (setq str(nth i str_lst))
    
33.     (setq p1(list(+(car pt) 4 )(- (cadr pt) 5))
    
34.     p2(list(+(car pt) 40 )(- (cadr pt) 5))
    
35.     p3(list(+(car pt) 54 )(- (cadr pt) 5))
    
36.     p4(list(+(car pt) 4 )(- (cadr pt) 13))
    
37.     p5(list(+(car pt) 254 )(- (cadr pt) 13))
    
38.     p6(list(+(car pt) 138 )(- (cadr pt) 5))
    
39.     )
    
40.     (setq ch(car str)
    
41.     x (cadr str)
    
42.     y (caddr str)
    
43.     sl (cadddr str)
    
44.     fx(nth 4 str)
    
45.     lc(nth 5 str))
    
46.     (command "_.text" "_non" p1 3 0 ch nil)
    
47.     (command "_.text" "_non" p2 3 0 x nil)
    
48.     (command "_.text" "_non" p3 3 0 y nil)
    
49.     (command "_.text" "_non" p4 3 0 sl nil)
    
50.     (command "_.text" "_non" p5 3 0 fx nil)
    
51.     (command "_.text" "_non" p6 3 0 lc nil)
    
52.     (setq i(1+ i)
    
53.     pt(list(+(car pt) 0 )(- (cadr pt) 23))
    
54.     )
    
55.     )
    
56.   (command "_.undo" "e")
    
57.   (setvar "cmdecho" old_cmd)
    
58. )
    
59.       )
    
60. ;;;   (setq b3 (reverse b3))
    
61. ;;;   (setq d (nth 1 (nth 2 b3)) )
    
62. ;;;    (setq p1 (getpoint "\n请指定插入点："))
    
63. ;;;    (command "text"  p1 100 0 d "")
    
64. ;;;   (print b3) (print "第3行第1个数值：")(princ d)
    
65.    (princ)
    
66.    )
    
67. 
    
68.   (defun parse (str delim / lst pos)
    
69.   ;明经Gu-xl编写,将字符串按照区别符delim分成表str
    
70.       (setq pos (vl-string-search delim str))
    
71.       (while pos
    
72.         (setq lst (cons (substr str 1 pos) lst)
    
73.               str (substr str (+ pos 2))
    
74.              pos (vl-string-search delim str)
    
75.         )
    
76.       )
    
77.       (if (> (strlen str) 0)
    
78.         (setq lst (cons str lst))
    
79.       )
    
80.       (if (= " " delim) (setq lst (vl-remove "" lst)))
    
81.       (reverse lst)
    
82.     )
    
83.     ;测试
    
84. ;    (setq s (list 'a 'b 'c))
    

(defun c:get( / b1 b2 b3 d dat_file ff n path1 txt1 x y<br />        CH FX I LC OLD_CMD P1 P2 P3 P4 P5 P6 PT SL STR STR_LST )<br /> ; 用于lsp与txt之间数据传输<br />   (setq path1 (getvar "dwgprefix")) <br />   (setq ff (open (strcat path1 "样表" ".txt" ) "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。<br />   (write-line "C1215,1200,1500,20,左10右10,2层" ff)<br />   (write-line "C1515,1500,1500,16,左8右8,4层" ff)<br />   (write-line "C1815,1800,1500,22,左11右11,4层" ff)<br />   (write-line "C2118,2100,1800,14,左7右7,12层" ff)<br />   (write-line "C0921,900,2100,6,左6,4层" ff)<br />   (close ff)<br />   (setq dat_file (getfiled "选择txt的文件或样表" path1 "txt" 2))<br />   (setq n 1 b1 '() b2 '() b3 '() ff (open dat_file "r"))<br />   (setq str_lst '())<br />   (while (setq txt1 (read-line ff)) <br />       (setq b1 (parse txt1 ","))<br />     (setq str_lst(cons b1 str_lst))<br />       ;(setq d (nth 0 b1) x (atof (nth 1 b1)) y (atof (nth 2 b1)) )<br />       ;(setq b2 (list n d x y) b3 (cons b2 b3) n (1+ n) )<br /> <br />    )<br />   (setq str_lst (reverse str_lst))<br /> <br /> (setq pt(getpoint "\n请指定插入点：") i 0)<br />     (if (and pt str_lst)<br />       (progn<br />   (setq old_cmd(getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (repeat (length str_lst)<br />     (setq str(nth i str_lst))<br />     (setq p1(list(+(car pt) 4 )(- (cadr pt) 5))<br />     p2(list(+(car pt) 40 )(- (cadr pt) 5))<br />     p3(list(+(car pt) 54 )(- (cadr pt) 5))<br />     p4(list(+(car pt) 4 )(- (cadr pt) 13))<br />     p5(list(+(car pt) 254 )(- (cadr pt) 13))<br />     p6(list(+(car pt) 138 )(- (cadr pt) 5))<br />     )<br />     (setq ch(car str)<br />     x (cadr str)<br />     y (caddr str)<br />     sl (cadddr str)<br />     fx(nth 4 str)<br />     lc(nth 5 str))<br />     (command "_.text" "_non" p1 3 0 ch nil)<br />     (command "_.text" "_non" p2 3 0 x nil)<br />     (command "_.text" "_non" p3 3 0 y nil)<br />     (command "_.text" "_non" p4 3 0 sl nil)<br />     (command "_.text" "_non" p5 3 0 fx nil)<br />     (command "_.text" "_non" p6 3 0 lc nil)<br />     (setq i(1+ i)<br />     pt(list(+(car pt) 0 )(- (cadr pt) 23))<br />     )<br />     )<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" old_cmd)<br /> )<br />       )<br /> ;;;   (setq b3 (reverse b3))<br /> ;;;   (setq d (nth 1 (nth 2 b3)) )<br /> ;;;    (setq p1 (getpoint "\n请指定插入点："))<br /> ;;;    (command "text"  p1 100 0 d "")<br /> ;;;   (print b3) (print "第3行第1个数值：")(princ d)<br />    (princ)<br />    )<br /> <br />   (defun parse (str delim / lst pos)<br />   ;明经Gu-xl编写,将字符串按照区别符delim分成表str<br />       (setq pos (vl-string-search delim str))<br />       (while pos<br />         (setq lst (cons (substr str 1 pos) lst)<br />               str (substr str (+ pos 2))<br />              pos (vl-string-search delim str)<br />         )<br />       )<br />       (if (> (strlen str) 0)<br />         (setq lst (cons str lst))<br />       )<br />       (if (= " " delim) (setq lst (vl-remove "" lst)))<br />       (reverse lst)<br />     )<br />     ;测试 <br /> ;    (setq s (list 'a 'b 'c)) <br />

jly0406

edata 发表于 2014-1-8 23:07

大侠你太厉害了，解决了我老大的问题了，太感谢了