[求助]数字自动编号

xiaxiang

哪位能帮我实现这个功能，感谢了

请教高手：有没有哪种软件可以实现，有如下一堆数字在图形中，六位的，数字的编号为000101至019999，无序放置，需要重新编号，顺寻可以自己定义。

rongyifei

太快了，看不清！

顽石

看起来很简单，但请用文字将需求描述清楚

 

xiaxiang

请教高手：有没有哪种软件可以实现，有如下一堆数字在图形中，六位的，数字的编号为000101至019999，无序放置，需要重新编号，顺寻可以自己定义。

 

gufeng

详细说明一下怎么个重新编号

tth02

貌似就是在原来数字的基础上增加200

tth02

用vba写了一个，可以实线楼主图片中展示的功能。
代码如下：

1. Sub add200()
   
2. Dim SSet As AcadSelectionSet, objText As AcadText, str1 As String
   
3. Dim n As Integer, ii As Integer, jj As Integer
   
4. Do While ThisDrawing.SelectionSets.count > 0
   
5.             ThisDrawing.SelectionSets.Item(0).Delete
   
6. Loop
   
7. n = ThisDrawing.Utility.GetInteger("输入需要增加的数字，负数表示减：")
   
8. Set SSet = ThisDrawing.SelectionSets.Add("add200")
   
9. Dim ft(0) As Integer, fd(0) As Variant
   
10. ft(0) = 0
    
11. fd(0) = "TEXT"
    
12. SSet.SelectOnScreen ft, fd
    
13. For Each objText In SSet
    
14.     str1 = objText.TextString
    
15.     For ii = 1 To Len(str1)
    
16.         If Mid(str1, ii, 1) > "0" Then Exit For
    
17.     Next ii
    
18.     str1 = Right(str1, Len(str1) - ii + 1)
    
19.     str1 = CStr(CInt(str1) + n)
    
20.     For jj = 1 To ii - 1
    
21.         str1 = "0" & str1
    
22.     Next jj
    
23.     objText.TextString = str1
    
24. Next objText
    
25. End Sub
    

Sub add200()<br /> Dim SSet As AcadSelectionSet, objText As AcadText, str1 As String<br /> Dim n As Integer, ii As Integer, jj As Integer<br /> Do While ThisDrawing.SelectionSets.count > 0<br />             ThisDrawing.SelectionSets.Item(0).Delete<br /> Loop<br /> n = ThisDrawing.Utility.GetInteger("输入需要增加的数字，负数表示减：")<br /> Set SSet = ThisDrawing.SelectionSets.Add("add200")<br /> Dim ft(0) As Integer, fd(0) As Variant<br /> ft(0) = 0<br /> fd(0) = "TEXT"<br /> SSet.SelectOnScreen ft, fd<br /> For Each objText In SSet<br />     str1 = objText.TextString<br />     For ii = 1 To Len(str1)<br />         If Mid(str1, ii, 1) > "0" Then Exit For<br />     Next ii<br />     str1 = Right(str1, Len(str1) - ii + 1)<br />     str1 = CStr(CInt(str1) + n)<br />     For jj = 1 To ii - 1<br />         str1 = "0" & str1<br />     Next jj<br />     objText.TextString = str1<br /> Next objText<br /> End Sub<br />

yygusong

很实用，做目录能用的上