[求助]：选中文本进行排序

yinzhun22

我用find查找到很多相关的文字，提取出来后，希望有个命令可以对他进行排序，先数字，后字母，不分大小写，如01AE2,1AE1,03ATpy1，01ATpy1……
排序后列一列下来
1AE1
01AE2
01ATpy1
03ATpy1

前面两个是数字，有的1个，有的2个，前面按数字，后面按字母排列，其实像word里面的排序一样，

希望高手帮忙啊

tusha

期待高手的出现

xshrimp

命令: (vl-sort '("1AE1" "01AE2" "01ATpy1" "03ATpy1") '<)
("01AE2" "01ATpy1" "03ATpy1" "1AE1")

yinzhun22

不明白高手的意思，
麻烦给个提示，具体怎么使用！

brainstorm

(setq a (list "1AE1" "01AE2" "01ATpy1" "03ATpy1"))
(vl-sort a '<)

yinzhun22

我想要的效果是，我运行命令，选中文本，然后对它进行排序……
不要输入排序的内容，用选中文本的……

leeyuan

将文本内容做成一个表就行了

carrot1983

2. 
   
3. ;;getValues
   
4. (defun getValues (ss code / i lst)
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq lst (cons (cdr (assoc code (entget (ssname ss i))))
   
8.                     lst
   
9.               )
   
10.           i   (1+ i)
    
11.     )
    
12.   )
    
13.   (reverse lst)
    
14. )
    
15. ;;;
    
16. (princ
    
17.   "\n输入tt,选择需要的文字后指定插入点列出文字.carrot1983 2008-01-29"
    
18. )
    
19. (defun c:tt (/ P SS TXT V1LST)
    
20.   (if (setq ss (ssget '((0 . "TEXT"))))
    
21.     (progn
    
22.       (initget 1)
    
23.       (setq p (getpoint "指定插入点:"))
    
24.       (setq v1lst (vl-sort (getValues ss 1) '>)
    
25.             txt          ""
    
26.       )
    
27.       (foreach v1 v1lst
    
28.         (setq txt (strcat (strcat v1 "\\P") txt))
    
29.       )
    
30.       (command "._MTEXT" p p txt "")
    
31.     )
    
32.     (alert "\n老大出什么事了！")
    
33.   )
    
34.   (princ)
    
35. )
    
36. 
    

<br /> ;;getValues<br /> (defun getValues (ss code / i lst)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq lst (cons (cdr (assoc code (entget (ssname ss i))))<br />                     lst<br />               )<br />           i   (1+ i)<br />     )<br />   )<br />   (reverse lst)<br /> )<br /> ;;;<br /> (princ<br />   "\n输入tt,选择需要的文字后指定插入点列出文字.carrot1983 2008-01-29"<br /> )<br /> (defun c:tt (/ P SS TXT V1LST)<br />   (if (setq ss (ssget '((0 . "TEXT"))))<br />     (progn<br />       (initget 1)<br />       (setq p (getpoint "指定插入点:"))<br />       (setq v1lst (vl-sort (getValues ss 1) '>)<br />             txt          ""<br />       )<br />       (foreach v1 v1lst<br />         (setq txt (strcat (strcat v1 "\\P") txt))<br />       )<br />       (command "._MTEXT" p p txt "")<br />     )<br />     (alert "\n老大出什么事了！")<br />   )<br />   (princ)<br /> )<br /> <br />

yinzhun22

谢谢carrot1983，和我想要的一样，高手啊！！！

hmillf

热心人终有好报！ 支持