求助 关于文字批量替换，数字递增问题

zhb236623

如图，或者下载CAD图里面有我想要达到的效果……想要把数字批量替换，然后数字递增，批量替换数字的时候按从左到右，从上到下的顺序替换……。应该用得着下面的程序，但是自己能力有限，写不出来。盼高手赐教。 ;;;;取得点集行数，将每行的y坐标列表，lst为点坐标表，rc为容差

2. 
   
3. (defun y_lst (lst rc / it lst2)
   
4.   (while (setq lst2 (cons (setq it (cadr (car lst))) lst2)
   
5.                lst  (vl-remove-if '(lambda (x) (equal it (cadr x) rc)) lst)
   
6.          )
   
7.   )
   
8.   (vl-sort lst2 (function (lambda (e1 e2) (> e1 e2))))
   
9. )
   
10. ;;;将点集按从上到下，从左到右的顺序排序。pt_lst为点坐标表，rc为容差
    
11. (defun dh_zhy_sort_pt (pt_lst rc /        pt_y lst1 pt_lst_new n1        n2 m1 m2 pt_y_a        pt_lst_a lst2)
    
12.   (setq pt_y (y_lst pt_lst rc))
    
13.   (setq pt_lst_new '())
    
14.   (setq lst1 '())
    
15.   (setq m1 0)
    
16.   (setq n1 (length pt_y))
    
17.   (setq n2 (length pt_lst))
    
18.   (while (/= m1 n1)
    
19.     (setq pt_y_a (nth m1 pt_y))
    
20.     (setq m2 0)
    
21.     (while (/= m2 n2)
    
22.       (setq pt_lst_a (nth m2 pt_lst))
    
23.       (if (equal pt_y_a (cadr pt_lst_a) rc)
    
24.         (setq lst1 (cons pt_lst_a lst1))
    
25.       )
    
26.       (setq m2 (1+ m2))
    
27.     )
    
28.     (if        (/= (length lst1) 1)
    
29.       (setq lst1 (vl-sort lst1
    
30.                           (function (lambda (e1 e2) (< (car e1) (car e2))))
    
31.                  )
    
32.       )
    
33.     )
    
34.     (setq pt_lst_new (cons lst1 pt_lst_new))
    
35.     (setq lst1 '())
    
36.     (setq m1 (1+ m1))
    
37.   )
    
38.   (setq pt_lst_new (reverse pt_lst_new))
    
39.   (setq n1 (length pt_lst_new))
    
40.   (setq m1 0)
    
41.   (setq lst2 '())
    
42.   (while (/= m1 n1)
    
43.     (setq lst1 (nth m1 pt_lst_new))
    
44.     (setq n2 (length lst1))
    
45.     (setq m2 0)
    
46.     (while (/= m2 n2)
    
47.       (setq lst (nth m2 lst1))
    
48.       (setq lst2 (cons lst lst2))
    
49.       (setq m2 (1+ m2))
    
50.     )
    
51.     (setq m1 (1+ m1))
    
52.   )
    
53.   (reverse lst2)
    
54. )

<br /> (defun y_lst (lst rc / it lst2)<br />   (while (setq lst2 (cons (setq it (cadr (car lst))) lst2)<br />                lst  (vl-remove-if '(lambda (x) (equal it (cadr x) rc)) lst)<br />          )<br />   )<br />   (vl-sort lst2 (function (lambda (e1 e2) (> e1 e2))))<br /> )<br /> ;;;将点集按从上到下，从左到右的顺序排序。pt_lst为点坐标表，rc为容差<br /> (defun dh_zhy_sort_pt (pt_lst rc /        pt_y lst1 pt_lst_new n1        n2 m1 m2 pt_y_a        pt_lst_a lst2)<br />   (setq pt_y (y_lst pt_lst rc))<br />   (setq pt_lst_new '())<br />   (setq lst1 '())<br />   (setq m1 0)<br />   (setq n1 (length pt_y))<br />   (setq n2 (length pt_lst))<br />   (while (/= m1 n1)<br />     (setq pt_y_a (nth m1 pt_y))<br />     (setq m2 0)<br />     (while (/= m2 n2)<br />       (setq pt_lst_a (nth m2 pt_lst))<br />       (if (equal pt_y_a (cadr pt_lst_a) rc)<br />         (setq lst1 (cons pt_lst_a lst1))<br />       )<br />       (setq m2 (1+ m2))<br />     )<br />     (if        (/= (length lst1) 1)<br />       (setq lst1 (vl-sort lst1<br />                           (function (lambda (e1 e2) (< (car e1) (car e2))))<br />                  )<br />       )<br />     )<br />     (setq pt_lst_new (cons lst1 pt_lst_new))<br />     (setq lst1 '())<br />     (setq m1 (1+ m1))<br />   )<br />   (setq pt_lst_new (reverse pt_lst_new))<br />   (setq n1 (length pt_lst_new))<br />   (setq m1 0)<br />   (setq lst2 '())<br />   (while (/= m1 n1)<br />     (setq lst1 (nth m1 pt_lst_new))<br />     (setq n2 (length lst1))<br />     (setq m2 0)<br />     (while (/= m2 n2)<br />       (setq lst (nth m2 lst1))<br />       (setq lst2 (cons lst lst2))<br />       (setq m2 (1+ m2))<br />     )<br />     (setq m1 (1+ m1))<br />   )<br />   (reverse lst2)<br /> )

yxl88168

这个搞好了吗，能发个源程序给我不，我的邮箱是yxl33168@163.com 谢谢你

328302216

虽然不会帮给顶一下！

pzweng

langjs的递增刷,看他的帖子

ucuc2003

帮不了忙，顶起来！

自贡黄明儒

我用的1 选择集根据点坐标排序http://bbs.mjtd.com/thread-96090-1-1.html
         2 未尾数字增加http://bbs.mjtd.com/thread-102143-1-1.html 7楼
仅供参考

【KAIXIN】

提供思路 :
就以上情况而言，可以用排序加1的方法直接写入文字

zhb236623

自贡黄明儒 发表于 2013-7-31 12:05
我用的1 选择集根据点坐标排序http://bbs.mjtd.com/thread-96090-1-1.html
         2 未尾数字增加http:/ ...

谢谢，这几天有空把你的两个帖子消化下再看看能不能写得出来。

zhb236623

【KAIXIN】 发表于 2013-7-31 18:22
提供思路 :
就以上情况而言，可以用排序加1的方法直接写入文字

直接写入文字实现起来是相对比较容易，然后把旧的直接删除，因为文字样式，对中方式，大小都是一样的，只要设定统一的不用针对每个文字更改。如果要根据旧的文字只更改内容感觉会比较难。

【KAIXIN】

zhb236623 发表于 2013-7-31 18:29
直接写入文字实现起来是相对比较容易，然后把旧的直接删除，因为文字样式，对中方式，大小都是一样的， ...

也不难的，这样的话，你就要提取文本，获取最后一个数字进行加一即可