将list数据输出至TXT文件

晨曦CAD

2. ;;list数据输出到文件
   
3. ;@晨曦 2021.3
   
4. ;输入参数：lst list数据
   
5. ;          ff 文件描述符，open函数返回值
   
6. (defun list->file(lst ff / i temp conslst)
   
7.   (princ "(" ff)
   
8.   
   
9.   ;处理关联表
   
10.   (if(= (isRealList lst) 2)
    
11.     (progn
    
12.       (setq conslst(nth 1 (con2list lst))
    
13.       lst(nth 0 (con2list lst)))
    
14.     )
    
15.    )
    
16.   
    
17.   (setq i 0)
    
18.   (repeat(length lst)
    
19.     (setq temp(nth i lst))
    
20.     (cond
    
21.       ;list
    
22.       ((= (type temp) (quote LIST)) (list->file temp ff))
    
23.       ;字符串
    
24.       ((= (type temp) (quote STR)) (princ (chr 34) ff)(princ temp ff)(princ (chr 34) ff))
    
25.       ;int real数值
    
26.       ((or(= (type temp) (quote INT))(= (type temp) (quote REAL))) (princ temp ff)(princ (chr 32) ff))
    
27.       ;图元(实体名会变 ，此处输出为字符串)
    
28.       ((= (type temp) (quote ENAME)) (princ (chr 34) ff)
    
29.                                      (princ (vl-string-subst "" " "(VL-PRINC-TO-STRING temp))  ff)
    
30.                                      (princ (chr 34) ff))
    
31.       ;选择集（此处仅输出为选择集名称LIST）
    
32.       ((= (type temp) (quote PICKSET))(list->file (list (VL-PRINC-TO-STRING temp))  ff))
    
33.       ;符号
    
34.       ((= (type temp) (quote SYM))(princ temp ff)(princ (chr 32) ff))
    
35.       );cond
    
36.      (setq i(1+ i))
    
37.     );repeat
    
38.   
    
39.   ;处理关联表
    
40.   (if(/= conslst nil)
    
41.     (progn
    
42.       (princ (chr 32) ff) ;空格
    
43.       (princ (chr 46) ff) ;逗号
    
44.       (princ (chr 32) ff)
    
45.       (cond
    
46.       ;list
    
47.       ((= (type conslst) (quote LIST)) (list->file conslst ff))
    
48.       ;字符串
    
49.       ((= (type conslst) (quote STR)) (princ (chr 34) ff)(princ conslst ff)(princ (chr 34) ff))
    
50.       ;int real数值
    
51.       ((or(= (type conslst) (quote INT))(= (type conslst) (quote REAL))) (princ conslst ff)(princ (chr 32) ff))
    
52.       ;图元(实体名会变，可自动转换为句柄 DXF 5 ，此处输出为字符串)
    
53.       ((= (type conslst) (quote ENAME)) (princ (chr 34) ff)
    
54.                                         (princ (vl-string-subst "" " "(VL-PRINC-TO-STRING conslst))  ff)
    
55.                                         (princ (chr 34) ff))
    
56.       ;选择集（此处仅输出为选择集名称LIST）
    
57.       ((= (type conslst) (quote PICKSET))(list->file (list (VL-PRINC-TO-STRING conslst))  ff))
    
58.       ;符号
    
59.       ((= (type conslst) (quote SYM))(princ conslst ff)(princ (chr 32) ff))
    
60.       )
    
61.       )
    
62.     )
    
63.   
    
64.   (princ ")" ff)
    
65.   )

;;list数据输出到文件<br /> ;@晨曦 2021.3<br /> ;输入参数：lst list数据<br /> ;          ff 文件描述符，open函数返回值<br /> (defun list->file(lst ff / i temp conslst)<br />   (princ "(" ff)<br />   <br />   ;处理关联表<br />   (if(= (isRealList lst) 2)<br />     (progn<br />       (setq conslst(nth 1 (con2list lst))<br />       lst(nth 0 (con2list lst)))<br />     )<br />    )<br />   <br />   (setq i 0)<br />   (repeat(length lst)<br />     (setq temp(nth i lst))<br />     (cond<br />       ;list<br />       ((= (type temp) (quote LIST)) (list->file temp ff))<br />       ;字符串<br />       ((= (type temp) (quote STR)) (princ (chr 34) ff)(princ temp ff)(princ (chr 34) ff))<br />       ;int real数值<br />       ((or(= (type temp) (quote INT))(= (type temp) (quote REAL))) (princ temp ff)(princ (chr 32) ff))<br />       ;图元(实体名会变 ，此处输出为字符串)<br />       ((= (type temp) (quote ENAME)) (princ (chr 34) ff)<br />                                      (princ (vl-string-subst "" " "(VL-PRINC-TO-STRING temp))  ff)<br />                                      (princ (chr 34) ff))<br />       ;选择集（此处仅输出为选择集名称LIST）<br />       ((= (type temp) (quote PICKSET))(list->file (list (VL-PRINC-TO-STRING temp))  ff))<br />       ;符号<br />       ((= (type temp) (quote SYM))(princ temp ff)(princ (chr 32) ff))<br />       );cond<br />      (setq i(1+ i))<br />     );repeat<br />   <br />   ;处理关联表<br />   (if(/= conslst nil)<br />     (progn<br />       (princ (chr 32) ff) ;空格<br />       (princ (chr 46) ff) ;逗号<br />       (princ (chr 32) ff)<br />       (cond<br />       ;list<br />       ((= (type conslst) (quote LIST)) (list->file conslst ff))<br />       ;字符串<br />       ((= (type conslst) (quote STR)) (princ (chr 34) ff)(princ conslst ff)(princ (chr 34) ff))<br />       ;int real数值<br />       ((or(= (type conslst) (quote INT))(= (type conslst) (quote REAL))) (princ conslst ff)(princ (chr 32) ff))<br />       ;图元(实体名会变，可自动转换为句柄 DXF 5 ，此处输出为字符串)<br />       ((= (type conslst) (quote ENAME)) (princ (chr 34) ff)<br />                                         (princ (vl-string-subst "" " "(VL-PRINC-TO-STRING conslst))  ff)<br />                                         (princ (chr 34) ff))<br />       ;选择集（此处仅输出为选择集名称LIST）<br />       ((= (type conslst) (quote PICKSET))(list->file (list (VL-PRINC-TO-STRING conslst))  ff))<br />       ;符号<br />       ((= (type conslst) (quote SYM))(princ conslst ff)(princ (chr 32) ff))<br />       )<br />       )<br />     )<br />   <br />   (princ ")" ff)<br />   )

;测试案例
(defun tt(/ ll f )
  (setq ll (list 1 2 "3" "4" 5 '(1 2 "3" 4 "" 5) (cons 44 55)(CAR(ENTSEL))'<))
  (setq f(open "TT.txt" "w"))
  (list->file ll f)
  (close f)
  )

hh_lj007

谢谢分享！

yangjian001

做一个热心并受欢迎的人

xk15c

做一个有用的人