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

zhb236623

【KAIXIN】 发表于 2013-7-31 18:31
也不难的，这样的话，你就要提取文本，获取最后一个数字进行加一即可

要修改的文字不单都是001，只是求快复制的，可能为任意数，其实要实现的功能是把这些数字按坐标排序的顺序从小到大变成001，002 ，003.…………。

坐标排序用我发的那个函数可以，能掌握。但是排序后如何把这个坐标对匹配到原来要更更改的文字 目前不懂……所以无法更改文字。

【KAIXIN】

是复制吗？貌似只是递增啊

zhb236623

【KAIXIN】 发表于 2013-7-31 18:31
也不难的，这样的话，你就要提取文本，获取最后一个数字进行加一即可

2. 
   
3. (if (not (setq n1 (getint "\n请输入尾数起始顺序号 <0>: ")))
   
4.     (setq n1 0)
   
5.   )
   
6. ;;地号最后三位数不够补0，例3＝003，34＝034，189＝189
   
7. (command ".style" "仿宋体" "仿宋_GB2312" wzstyle 1 0 "" "")
   
8. 
   
9.   (setq slist nil)
   
10.   (setq i 0)
    
11. (setq ss (ssget '((0 . "text"))))
    
12.     (repeat (sslength ss)
    
13.     (setq en (ssname ss i))                                    ;(setq en (entget ssn))
    
14.     (vla-getboundingbox        (vlax-ename->vla-object en)
    
15.                         'minpoint
    
16.                         'maxpoint
    
17.     )
    
18.     (setq pmax (vlax-safearray->list maxpoint)
    
19.           pmin (vlax-safearray->list minpoint)
    
20.     )
    
21.     (setq xmin (car pmin))
    
22.     (setq xmax (car pmax))
    
23.     (setq ymin (cadr pmin))
    
24.     (setq ymax (cadr pmax))
    
25.     (setq xmid (/ (+ xmin xmax) 2))
    
26.     ;;(setq ymid ( / ( + ymin ymax) 2))
    
27.     (setq xmid_ymax (list xmid ymax))
    
28.     (setq slist (cons xmid_ymax slist))
    
29.     (setq i (1+ i))
    
30.   )  
    
31. ;;;关键就是这里了，排序，1e-6为容差，意思是1乘以10的负6次方。你可以自己改  
    
32. ;;(setq tmp_slist (dh_zhy_sort_pt slist 1e-6))
    
33.   (setq tmp_slist (dh_zhy_sort_pt slist 3))
    
34.   (foreach insertp_mid tmp_slist
    
35.     ;;(setq insertp_move (pmove insertp_mid 0 wz_insertp_move_down))   ;;;最后一位为向下移动距离
    
36.                
    
37. (cond
    
38.     (  (< n1 10)
    
39.      (setq wz_n  (strcat "00" (itoa n1)))
    
40.                 )
    
41.     ( (< 9 n1 100)
    
42.            
    
43.                                 (setq wz_n  (strcat "0" (itoa n1)))
    
44.     )
    
45.     ( (> n1 99)
    
46.            
    
47.                                 (setq wz_n (itoa n1))         
    
48.     )
    
49. )
    
50.                
    
51.             (setq Parameter_a5  "aa")   
    
52.           (setq wz (strcat Parameter_a5 wz_n))          ;;;  
    
53. ;;;就是要如何才能更改这个坐标点对应的文字呢？
    
54. 
    
55. ;;直接生成文字可能还更容易……
    
56. ;;(setq P_center_fz_nn_d1 (list 3 5))
    
57. (entmake (list '(0 . "TEXT") (cons 1 "me") (cons 7  "仿宋体") (cons 10 insertp_mid ) (cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))
    
58. 
    
59.     (setq n1 (+ n1 1))
    
60.   )

<br /> (if (not (setq n1 (getint "\n请输入尾数起始顺序号 <0>: ")))<br />     (setq n1 0)<br />   )<br /> ;;地号最后三位数不够补0，例3＝003，34＝034，189＝189<br /> (command ".style" "仿宋体" "仿宋_GB2312" wzstyle 1 0 "" "")<br /> <br />   (setq slist nil)<br />   (setq i 0)<br /> (setq ss (ssget '((0 . "text"))))<br />     (repeat (sslength ss)<br />     (setq en (ssname ss i))                                    ;(setq en (entget ssn))<br />     (vla-getboundingbox        (vlax-ename->vla-object en)<br />                         'minpoint<br />                         'maxpoint<br />     )<br />     (setq pmax (vlax-safearray->list maxpoint)<br />           pmin (vlax-safearray->list minpoint)<br />     )<br />     (setq xmin (car pmin))<br />     (setq xmax (car pmax))<br />     (setq ymin (cadr pmin))<br />     (setq ymax (cadr pmax))<br />     (setq xmid (/ (+ xmin xmax) 2))<br />     ;;(setq ymid ( / ( + ymin ymax) 2))<br />     (setq xmid_ymax (list xmid ymax))<br />     (setq slist (cons xmid_ymax slist))<br />     (setq i (1+ i))<br />   )  <br /> ;;;关键就是这里了，排序，1e-6为容差，意思是1乘以10的负6次方。你可以自己改  <br /> ;;(setq tmp_slist (dh_zhy_sort_pt slist 1e-6))<br />   (setq tmp_slist (dh_zhy_sort_pt slist 3))<br />   (foreach insertp_mid tmp_slist<br />     ;;(setq insertp_move (pmove insertp_mid 0 wz_insertp_move_down))   ;;;最后一位为向下移动距离<br />                 <br /> (cond<br />     (  (< n1 10)<br />      (setq wz_n  (strcat "00" (itoa n1)))<br />                 )<br />     ( (< 9 n1 100)<br />            <br />                                 (setq wz_n  (strcat "0" (itoa n1)))<br />     )<br />     ( (> n1 99)<br />            <br />                                 (setq wz_n (itoa n1))         <br />     )<br /> )<br />                 <br />             (setq Parameter_a5  "aa")    <br />           (setq wz (strcat Parameter_a5 wz_n))          ;;;  <br /> ;;;就是要如何才能更改这个坐标点对应的文字呢？<br /> <br /> ;;直接生成文字可能还更容易……<br /> ;;(setq P_center_fz_nn_d1 (list 3 5))<br /> (entmake (list '(0 . "TEXT") (cons 1 "me") (cons 7  "仿宋体") (cons 10 insertp_mid ) (cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))<br /> <br />     (setq n1 (+ n1 1))<br />   )

zhb236623

【KAIXIN】 发表于 2013-7-31 18:38
是复制吗？貌似只是递增啊

相当于把老的字去掉，在相同的位置按顺序从小到大重新编号。

zhb236623

zhb236623 发表于 2013-7-31 18:45
相当于把老的字去掉，在相同的位置按顺序从小到大重新编号。

文字批量替换，数字递增问题

zhb236623

zhb236623 发表于 2013-7-31 18:45
相当于把老的字去掉，在相同的位置按顺序从小到大重新编号。

我说的复制是CAD里面的数字都为001是为了快速弄出来那些文字直接复制的。不是说这个问题是复制的问题

zhb236623

zhb236623 发表于 2013-7-31 18:45
相当于把老的字去掉，在相同的位置按顺序从小到大重新编号。

;;;就是要如何才能更改这个坐标点对应的文字呢？color]
;;直接生成文字可能还更容易……

cocoorange

做这个还是挺有难度的，学习一下

chcumt

期待完成稿

yxl88168

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