字符表排序 A-1 A-2.. A-11

aeo

;命令: (sort_name  '("A-1""B-9""A-11""A-5""Floor11""CAD""B-2""Floor2""CAB" "2" "11" "4" "Floor1"))
-----> ("2" "4" "11" "A-1" "A-5" "A-11" "B-2" "B-9" "CAB" "CAD" "Floor1" "Floor2" "Floor11")

2. 
   
3. ;By Aeo @xdcad.net
   
4. (defun sort_name(lst / num1 num2 numexp pre1 pre2 prenumexp str1 str2)
   
5.         (setq preNumExp "^[^0-9]*"
   
6.                   numExp "[0-9]*"
   
7.         )
   
8.         (vl-sort lst
   
9.                 '(lambda(str1 str2 / num1 num2 pre1 pre2)
   
10.                     (setq pre1 (car(xd::string:regexpS  preNumExp str1 "img"))
    
11.                               pre2 (car(xd::string:regexpS  preNumExp str2 "img"))
    
12.                               num1 (car(xd::string:regexpS  numExp str1 "img"))
    
13.                               num2 (car(xd::string:regexpS  numExp str2 "img"))
    
14.                     )
    
15.                     (if(and (= pre1 pre2) num1 num2)
    
16.                             (< (atoi num1) (atoi num2))
    
17.                             (< str1 str2)
    
18.                     )
    
19.                 )
    
20.         )
    
21. )
    

<br /> ;By Aeo @xdcad.net<br /> (defun sort_name(lst / num1 num2 numexp pre1 pre2 prenumexp str1 str2)<br />         (setq preNumExp "^[^0-9]*"<br />                   numExp "[0-9]*"<br />         )<br />         (vl-sort lst <br />                 '(lambda(str1 str2 / num1 num2 pre1 pre2)<br />                     (setq pre1 (car(xd::string:regexpS  preNumExp str1 "img"))<br />                               pre2 (car(xd::string:regexpS  preNumExp str2 "img"))<br />                               num1 (car(xd::string:regexpS  numExp str1 "img"))<br />                               num2 (car(xd::string:regexpS  numExp str2 "img")) <br />                     )<br />                     (if(and (= pre1 pre2) num1 num2)<br />                             (< (atoi num1) (atoi num2))<br />                             (< str1 str2)<br />                     )<br />                 )<br />         )<br /> )<br />

aeo

布局按名称排序

2. 
   
3. (defun sort_layouts (/ lst pos lay)   
   
4.     (setq lst(sort_name(layoutlist) ))
   
5.     (vlax-for lay
   
6.         (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   
7.         (if (setq pos (vl-position (vla-get-name lay) lst))
   
8.             (vla-put-taborder lay (1+ pos))
   
9.         )
   
10.     )
    
11. )
    

<br /> (defun sort_layouts (/ lst pos lay)   <br />     (setq lst(sort_name(layoutlist) ))<br />     (vlax-for lay<br />         (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))<br />         (if (setq pos (vl-position (vla-get-name lay) lst))<br />             (vla-put-taborder lay (1+ pos))<br />         )<br />     )<br /> )<br />

Lisphk

真给力，版主。

Lisphk

我这执行怎么不对呢

命令: (sort_name  '("A-1""B-9""A-11""A-5""Floor11""CAD""B-2""Floor2""CAB" "2"
"11" "4" "Floor1"))

("2" "4" "11" "A-1" "A-11" "A-5" "B-9" "B-2" "CAB" "CAD" "Floor11" "Floor2"
"Floor1")


另外，版主，分割号能不能定义个参数，比如 -  # 等等都给分割。

fools

很好的主题，拆分数字和非数字可以考虑用  “\\d+|\\D+”
(xd::string:regexps "\\d+|\\D+" "1a高-1b-璟-c11弃-1" "") -->("1" "a高-" "1" "b-璟-c" "11" "弃-" "1")
属于比较特殊的拆分方式，用于文件名，目录名，布局名等排序的前置处理，忽略了小数点，正负号，科学计数法的影响
(LM:getfiles:sortlist '("A-1""B-9""A-11""A-5""Floor11""CAD""B-2""Floor2""CAB" "2" "11" "4" "Floor1"))("2" "4" "11" "A-1" "A-5" "A-11" "B-2" "B-9" "CAB" "CAD" "Floor1" "Floor2" "Floor11")

2. 
   
3. ;;摘录自[url]http://www.lee-mac.com/lisp/html/GetFilesV1-6.html[/url]
   
4. ;;文件名排序函数(Lee Mac)
   
5. (defun LM:getfiles:sortlist (lst)
   
6.   (mapcar (function (lambda (n) (nth n lst)))
   
7.           (vl-sort-i (mapcar 'splitstringbynumber lst)
   
8.                      (function (lambda (a b / x y)
   
9.                                  (while        (and (setq x (car a)) (setq y (car b)) (= x y))
   
10.                                    (setq a (cdr a)
    
11.                                          b (cdr b)
    
12.                                    )
    
13.                                  )
    
14.                                  (cond ((null x) b)
    
15.                                        ((null y) nil)
    
16.                                        ((and (numberp x) (numberp y)) (< x y))
    
17.                                        ((numberp x))
    
18.                                        ((numberp y) nil)
    
19.                                        ((< x y))
    
20.                                  )
    
21.                                )
    
22.                      )
    
23.           )
    
24.   )
    
25. )
    
26. ;;拆分数字和非数字（忽略正负号及小数点）
    
27. (defun splitstringbynumber (str)
    
28.   (mapcar '(lambda (x / y)
    
29.              (if (setq y (distof x))
    
30.                y
    
31.                x
    
32.              )
    
33.            )
    
34.           (xd::string:regexps "\\d+|\\D+" str "")
    
35.   )
    
36. )
    

<br /> ;;摘录自[url]http://www.lee-mac.com/lisp/html/GetFilesV1-6.html[/url]<br /> ;;文件名排序函数(Lee Mac)<br /> (defun LM:getfiles:sortlist (lst)<br />   (mapcar (function (lambda (n) (nth n lst)))<br />           (vl-sort-i (mapcar 'splitstringbynumber lst)<br />                      (function (lambda (a b / x y)<br />                                  (while        (and (setq x (car a)) (setq y (car b)) (= x y))<br />                                    (setq a (cdr a)<br />                                          b (cdr b)<br />                                    )<br />                                  )<br />                                  (cond ((null x) b)<br />                                        ((null y) nil)<br />                                        ((and (numberp x) (numberp y)) (< x y))<br />                                        ((numberp x))<br />                                        ((numberp y) nil)<br />                                        ((< x y))<br />                                  )<br />                                )<br />                      )<br />           )<br />   )<br /> )<br /> ;;拆分数字和非数字（忽略正负号及小数点）<br /> (defun splitstringbynumber (str)<br />   (mapcar '(lambda (x / y)<br />              (if (setq y (distof x))<br />                y <br />                x<br />              )<br />            )<br />           (xd::string:regexps "\\d+|\\D+" str "")<br />   )<br /> )<br />

sicky111

不错的函数。