输出全局变量及函数名至csv文件

jun353835273

2. 
   
3. ;输出函数名及全局变量
   
4. (defun c:tt1 (/ nn l fn)
   
5. (setq nn (open "c:\\函数.csv" "w"))
   
6.   (setq l (mapcar 'eval (atoms-family 0)))
   
7.   (if (setq fn (getfiled "" "" "*" 4))
   
8.     (progn
   
9.       (load fn)
   
10.       (setq a
    
11.              (mapcar
    
12. 
    
13.                'print
    
14. 
    
15.                (vl-remove-if
    
16.                  '(lambda (x) (= "" (substr x 1 2)))
    
17.                  (mapcar
    
18. 
    
19.                    'VL-PRINC-TO-STRING
    
20. 
    
21.                    (vl-remove-if
    
22. 
    
23.                      '(lambda (x) (member (eval x) l))
    
24. 
    
25.                      (atoms-family 0)
    
26. 
    
27.                    )
    
28. 
    
29.                  )
    
30. 
    
31.                )
    
32. 
    
33.              )
    
34.       )
    
35.       
    
36.       (if a
    
37.         (progn
    
38.         (setq b (vl-remove-if'(lambda (x) (= (type (eval (read x))) 'SUBR)) a))
    
39.         (foreach n a (write-line n nn))
    
40.         (if b
    
41.          (progn
    
42.             (write-line "全局变量为"  nn)
    
43.             (foreach n b (write-line n nn))
    
44.            )
    
45.         )
    
46.         (close nn)
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (ALERT "文件保存至c:\\函数.csv")
    
52.   (princ)
    
53. )
    
54. 
    

<br /> ;输出函数名及全局变量<br /> (defun c:tt1 (/ nn l fn)<br /> (setq nn (open "c:\\函数.csv" "w"))<br />   (setq l (mapcar 'eval (atoms-family 0)))<br />   (if (setq fn (getfiled "" "" "*" 4))<br />     (progn<br />       (load fn)<br />       (setq a<br />              (mapcar<br /> <br />                'print<br /> <br />                (vl-remove-if<br />                  '(lambda (x) (= "" (substr x 1 2)))<br />                  (mapcar<br /> <br />                    'VL-PRINC-TO-STRING<br /> <br />                    (vl-remove-if<br /> <br />                      '(lambda (x) (member (eval x) l))<br /> <br />                      (atoms-family 0)<br /> <br />                    )<br /> <br />                  )<br /> <br />                )<br /> <br />              )<br />       )<br />       <br />       (if a<br />         (progn<br />         (setq b (vl-remove-if'(lambda (x) (= (type (eval (read x))) 'SUBR)) a))<br />         (foreach n a (write-line n nn))<br />         (if b<br />          (progn<br />             (write-line "全局变量为"  nn)<br />             (foreach n b (write-line n nn))<br />            )<br />         )<br />         (close nn)<br />         )<br />       )<br />     )<br />   )<br />   (ALERT "文件保存至c:\\函数.csv")<br />   (princ)<br /> )<br /> <br />