[求助]：怎样实现序号的连续？

Dallas_whu

如果又有组字符串，是表示数字序号的，怎样将他们变成一个连续的整体？
如："1" 、"2"、"5"、"8"、"9".....
将他们变成：
"1" 、"2"、"3"、"4"、"5".....
请大家指点一下吧！

舟自横

(vl-sort '("1"  "2" "5" "8" "9" "3" "4") '(lambda(x y) (< (atoi x) (atoi y))))

Dallas_whu

呵呵，谢谢你。
但我的目的是要填补空缺，多余的去掉。如2和5之间缺了3、4，那就把5和8变成3、4，再把9要变成5.......

Underway

舟自横大大 已完成了您需求的核心部分
接下不要去想 '变成' 的思路
数量算出来后就直接给它重新配号
不要管原来的值是什么
直接赋予新值就行了

Dallas_whu

哦，不好意思！我忘了补充一点。
我的系列里面如果有相同的项，如“1”、“2”、“5”、“5”
“5”、“8”、“8”、“9”.....
需要变成：
“1”、“2”、“3”、“3”“3”、“4”、“4”、“5”.....
可以吗?（我得想想.......）

xyp1964

对数字文本实现从1～n的编号整合

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051126
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;编号整合
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (setq        ss  (ssget '((0 . "*TEXT")))
    
19.         lst '()
    
20.         i   -1
    
21.   )
    
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.     (setq tx (xyp-get-dxf 1 s1))
    
24.     (if        (distof tx)
    
25.       (setq pt-tx (cons s1 tx)
    
26.             lst          (cons pt-tx lst)
    
27.       )
    
28.     )
    
29.   )
    
30.   (setq        lst (vl-sort lst
    
31.                      '(lambda (x y) (< (atoi (cdr x)) (atoi (cdr y))))
    
32.             )
    
33.         i   0
    
34.   )
    
35.   (foreach n lst
    
36.     (progn
    
37.       (sub_upd (car n) 1 (rtos (setq i (1+ i)) 2 0))
    
38.     )
    
39.   )
    
40.   (CMDLA1)
    
41. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051126<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;编号整合<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "*TEXT")))<br />         lst '()<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (xyp-get-dxf 1 s1))<br />     (if        (distof tx)<br />       (setq pt-tx (cons s1 tx)<br />             lst          (cons pt-tx lst)<br />       )<br />     )<br />   )<br />   (setq        lst (vl-sort lst<br />                      '(lambda (x y) (< (atoi (cdr x)) (atoi (cdr y))))<br />             )<br />         i   0<br />   )<br />   (foreach n lst<br />     (progn<br />       (sub_upd (car n) 1 (rtos (setq i (1+ i)) 2 0))<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]