[讨论]：批量插入求助

158466939

我想写一个批量插入电算的LSP，但是遇到了这样一个问题，怎么按顺序获得指定文件夹下的所有WPJ.DWG文件，按顺序哟……

Underway

acad_strlsort

158466939

楼上的兄弟，我补充下，我要排列的文件名是：WPJ1.DWG,WPJ2.DWG……

Underway

(acad_strlsort  '("WPJ1.DWG" "WPJ2.DWG" .....))

test this
(acad_strlsort  '("A1.DWG" "B2.DWG" "A2.DWG" "C1.DWG" "B1.DWG"))

Underway

(acad_strlsort  '("WPJ1.DWG" "WPJ2.DWG" .....))

test this
(acad_strlsort  '("A1.DWG" "B2.DWG" "A2.DWG" "C1.DWG" "B1.DWG"))

158466939

谢谢楼上几位兄弟的回答，但是不是我要的结果，我就直接点吧，谁能帮我把这些文件按顺序排列出来("WPJ1.DWG" "WPJ10.DWG" "WPJ11.DWG" "WPJ12.DWG" "WPJ13.DWG" "WPJ14.DWG" "WPJ15.DWG" "WPJ16.DWG" "WPJ17.DWG" "WPJ18.DWG" "WPJ19.DWG" "WPJ2.DWG" "WPJ20.DWG" "WPJ21.DWG" "WPJ22.DWG" "WPJ3.DWG" "WPJ4.DWG" "WPJ5.DWG" "WPJ6.DWG" "WPJ7.DWG" "WPJ8.DWG" "WPJ9.DWG")

carrot1983

楼上只有一位兄弟帮你。。呵呵眼花了吧。
这个用它山之石的PKPM结构处理系列。。多方便啊。
还要编太累了。。
真的要按顺序排的话，就是

2. 
   
3. (vl-sort
   
4.   '("WPJ1.DWG"            "WPJ10.DWG"            "WPJ11.DWG"            "WPJ12.DWG"
   
5.     "WPJ13.DWG"            "WPJ14.DWG"            "WPJ15.DWG"            "WPJ16.DWG"
   
6.     "WPJ17.DWG"            "WPJ18.DWG"            "WPJ19.DWG"            "WPJ2.DWG"
   
7.     "WPJ20.DWG"            "WPJ21.DWG"            "WPJ22.DWG"            "WPJ3.DWG"
   
8.     "WPJ4.DWG"            "WPJ5.DWG"            "WPJ6.DWG"            "WPJ7.DWG"
   
9.     "WPJ8.DWG"            "WPJ9.DWG"
   
10.    )
    
11.   '(lambda (e1 e2)
    
12.     (< (atoi (vl-string-trim ".DWG" (vl-string-trim "WPJ"  e1)))
    
13.        (atoi (vl-string-trim ".DWG" (vl-string-trim "WPJ"  e2)))
    
14.        )
    
15.     )
    
16. )
    

<br /> (vl-sort<br />   '("WPJ1.DWG"            "WPJ10.DWG"            "WPJ11.DWG"            "WPJ12.DWG"<br />     "WPJ13.DWG"            "WPJ14.DWG"            "WPJ15.DWG"            "WPJ16.DWG"<br />     "WPJ17.DWG"            "WPJ18.DWG"            "WPJ19.DWG"            "WPJ2.DWG"<br />     "WPJ20.DWG"            "WPJ21.DWG"            "WPJ22.DWG"            "WPJ3.DWG"<br />     "WPJ4.DWG"            "WPJ5.DWG"            "WPJ6.DWG"            "WPJ7.DWG"<br />     "WPJ8.DWG"            "WPJ9.DWG"<br />    )<br />   '(lambda (e1 e2)<br />     (< (atoi (vl-string-trim ".DWG" (vl-string-trim "WPJ"  e1)))<br />        (atoi (vl-string-trim ".DWG" (vl-string-trim "WPJ"  e2)))<br />        )<br />     )<br /> )<br />

taner

最初由 158466939 发布
[B]谢谢楼上几位兄弟的回答，但是不是我要的结果，我就直接点吧，谁能帮我把这些文件按顺序排列出来("WPJ1.DWG" "WPJ10.DWG" "WPJ11.DWG" "WPJ12.DWG" "WPJ13.DWG" "WPJ14.DWG" "WPJ15.DWG" "WPJ16.DWG" "WPJ17.DWG" "W... [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun txt-split-numstr (txt / num str n tmp len)
   
5.   (setq len (strlen txt)
   
6.         str ""
   
7.         num ""
   
8.         n 1
   
9.   )
   
10.   (repeat len
    
11.     (setq tmp (substr txt n 1)
    
12.           n (1+ n)
    
13.     )
    
14.     (if (vl-string-search tmp "1234567890")
    
15.       (setq num (strcat num tmp))
    
16.       (setq str (strcat str tmp))
    
17.     )
    
18.   )
    
19.   (list num str)
    
20. )
    
21. (defun c:test (/ lst)
    
22.   (setq lst '("WPJ1.DWG" "WPJ10.DWG"
    
23.          "WPJ11.DWG" "WPJ12.DWG"
    
24.          "WPJ13.DWG" "WPJ14.DWG"
    
25.          "WPJ15.DWG" "WPJ16.DWG"
    
26.          "WPJ17.DWG" "WPJ18.DWG"
    
27.          "WPJ19.DWG" "WPJ2.DWG"
    
28.          "WPJ20.DWG" "WPJ21.DWG"
    
29.          "WPJ22.DWG" "WPJ3.DWG"
    
30.          "WPJ4.DWG" "WPJ5.DWG"
    
31.          "WPJ6.DWG" "WPJ7.DWG"
    
32.          "WPJ8.DWG" "WPJ9.DWG"
    
33.         )
    
34.   )
    
35.   (setq lst (vl-sort lst (function (lambda (x1 x2)
    
36.                                      (< (read (car
    
37.                                                    (txt-split-numstr x1)
    
38.                                               )
    
39.                                         ) (read (car
    
40.                                                      (txt-split-numstr x2)
    
41.                                                 )
    
42.                                           )
    
43.                                      )
    
44.                                    )
    
45.                          )
    
46.             )
    
47.   )
    
48. )
    
49. ;;;命令: test ("WPJ1.DWG" "WPJ2.DWG" "WPJ3.DWG" "WPJ4.DWG" "WPJ5.DWG" "WPJ6.DWG"
    
50. ;;;"WPJ7.DWG" "WPJ8.DWG" "WPJ9.DWG" "WPJ10.DWG" "WPJ11.DWG" "WPJ12.DWG"
    
51. ;;;"WPJ13.DWG" "WPJ14.DWG" "WPJ15.DWG" "WPJ16.DWG" "WPJ17.DWG" "WPJ18.DWG"
    
52. ;;;"WPJ19.DWG" "WPJ20.DWG" "WPJ21.DWG" "WPJ22.DWG")
    
53. 
    
54. 
    
55.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun txt-split-numstr (txt / num str n tmp len)<br />   (setq len (strlen txt)<br />         str ""<br />         num ""<br />         n 1<br />   )<br />   (repeat len<br />     (setq tmp (substr txt n 1)<br />           n (1+ n)<br />     )<br />     (if (vl-string-search tmp "1234567890")<br />       (setq num (strcat num tmp))<br />       (setq str (strcat str tmp))<br />     )<br />   )<br />   (list num str)<br /> )<br /> (defun c:test (/ lst)<br />   (setq lst '("WPJ1.DWG" "WPJ10.DWG"<br />          "WPJ11.DWG" "WPJ12.DWG"<br />          "WPJ13.DWG" "WPJ14.DWG"<br />          "WPJ15.DWG" "WPJ16.DWG"<br />          "WPJ17.DWG" "WPJ18.DWG"<br />          "WPJ19.DWG" "WPJ2.DWG"<br />          "WPJ20.DWG" "WPJ21.DWG"<br />          "WPJ22.DWG" "WPJ3.DWG"<br />          "WPJ4.DWG" "WPJ5.DWG"<br />          "WPJ6.DWG" "WPJ7.DWG"<br />          "WPJ8.DWG" "WPJ9.DWG"<br />         )<br />   )<br />   (setq lst (vl-sort lst (function (lambda (x1 x2)<br />                                      (< (read (car<br />                                                    (txt-split-numstr x1)<br />                                               )<br />                                         ) (read (car<br />                                                      (txt-split-numstr x2)<br />                                                 )<br />                                           )<br />                                      )<br />                                    )<br />                          )<br />             )<br />   )<br /> )<br /> ;;;命令: test ("WPJ1.DWG" "WPJ2.DWG" "WPJ3.DWG" "WPJ4.DWG" "WPJ5.DWG" "WPJ6.DWG" <br /> ;;;"WPJ7.DWG" "WPJ8.DWG" "WPJ9.DWG" "WPJ10.DWG" "WPJ11.DWG" "WPJ12.DWG" <br /> ;;;"WPJ13.DWG" "WPJ14.DWG" "WPJ15.DWG" "WPJ16.DWG" "WPJ17.DWG" "WPJ18.DWG" <br /> ;;;"WPJ19.DWG" "WPJ20.DWG" "WPJ21.DWG" "WPJ22.DWG")<br /> <br /> <br />   [/FONT]<br />

158466939

carrot1983 楼上只有一位兄弟帮你。。呵呵眼花了吧。
这个用它山之石的PKPM结构处理系列。。多方便啊。
还要编太累了。。
真的要按顺序排的话，就是

代码:


呵呵，那天在公司所以没看睡帮的我，误以为是三位了，不过还是非常谢谢大家的，问题已经解决，我是个初学者，没你们那么强悍拉，当然得自己动手拉，希望大家能介绍下学这个的心得，我感觉还没入门……