[日积月累]：PrintAllLayersToFile

eachy

2. 
   
3. (defun PrintAllLayersToFile ( / el l dpath discri)
   
4.   (setq discri
   
5.     (open
   
6.       (setq dpath
   
7.         (strcat (getvar "dwgprefix") (getvar "dwgname") "_laylist" ".txt")
   
8.       )
   
9.       "w"
   
10.     )
    
11.   )
    
12.   (cond
    
13.     (discri
    
14.       (while (setq el (tblnext "LAYER" (not el)))
    
15.         (setq l (cons (cdr (assoc 2 el)) l))
    
16.       )
    
17.       (foreach el (vl-sort l
    
18.        '(lambda (s1 s2 / i1 i2)
    
19.           (setq i1 (vl-string-search "|" s1))
    
20.           (setq i2 (vl-string-search "|" s2))
    
21.           (cond
    
22.             ((or (and i1 i2) (and (not i1) (not i2)))
    
23.              (< (strcase s1) (strcase s2))
    
24.             )
    
25.             (i1 nil)
    
26.             (i2 T)
    
27.           )
    
28.        ))
    
29.        (write-line el discri)
    
30.       )
    
31.       (close discri)
    
32.     )
    
33.     (T
    
34.       (alert (strcat "Не удалось открыть файл <" dpath "> для записи!"))
    
35.     )
    
36.   ) ;_endof cond
    
37.   (princ)
    
38. )

<br /> (defun PrintAllLayersToFile ( / el l dpath discri)<br />   (setq discri<br />     (open<br />       (setq dpath<br />         (strcat (getvar "dwgprefix") (getvar "dwgname") "_laylist" ".txt")<br />       )<br />       "w"<br />     )<br />   )<br />   (cond<br />     (discri<br />       (while (setq el (tblnext "LAYER" (not el)))<br />         (setq l (cons (cdr (assoc 2 el)) l))<br />       )<br />       (foreach el (vl-sort l<br />        '(lambda (s1 s2 / i1 i2)<br />           (setq i1 (vl-string-search "|" s1))<br />           (setq i2 (vl-string-search "|" s2))<br />           (cond<br />             ((or (and i1 i2) (and (not i1) (not i2)))<br />              (< (strcase s1) (strcase s2))<br />             )<br />             (i1 nil)<br />             (i2 T)<br />           )<br />        ))<br />        (write-line el discri)<br />       )<br />       (close discri)<br />     )<br />     (T<br />       (alert (strcat "Не удалось открыть файл <" dpath "> для записи!"))<br />     )<br />   ) ;_endof cond<br />   (princ)<br /> )

雨箭风刀

怎么有俄文的？