[求助]：给选中的线段编号！！！高手赐教！！

yttrelq

在CAD中，怎样用vba为选中的线段按顺序编号？并且在cad中显示出来。

雪山飞狐(lzh)

按什么顺序？

2. 
   
3. Public Sub tt()
   
4. On Error Resume Next
   
5. Dim ss As AcadSelectionSet
   
6. ThisDrawing.SelectionSets("*TEST*").Delete
   
7. Set ss = ThisDrawing.SelectionSets.Add("*TEST*")
   
8. Dim ft(0) As Integer, fd(0)
   
9. ft(0) = 0: fd(0) = "Line"
   
10. If ThisDrawing.PickfirstSelectionSet.Count > 0 Then
    
11. ss.Select acSelectionSetPrevious, , , ft, fd
    
12. Else
    
13. ss.SelectOnScreen ft, fd
    
14. End If
    
15. If ss.Count = 0 Then Exit Sub
    
16. For i = 0 To ss.Count - 1
    
17. ThisDrawing.ModelSpace.AddText i + 1, ss(i).StartPoint, 5
    
18. Next i
    
19. End Sub
    

<br /> Public Sub tt()<br /> On Error Resume Next<br /> Dim ss As AcadSelectionSet<br /> ThisDrawing.SelectionSets("*TEST*").Delete<br /> Set ss = ThisDrawing.SelectionSets.Add("*TEST*")<br /> Dim ft(0) As Integer, fd(0)<br /> ft(0) = 0: fd(0) = "Line"<br /> If ThisDrawing.PickfirstSelectionSet.Count > 0 Then<br /> ss.Select acSelectionSetPrevious, , , ft, fd<br /> Else<br /> ss.SelectOnScreen ft, fd<br /> End If<br /> If ss.Count = 0 Then Exit Sub<br /> For i = 0 To ss.Count - 1<br /> ThisDrawing.ModelSpace.AddText i + 1, ss(i).StartPoint, 5<br /> Next i<br /> End Sub<br />

yttrelq

按选取得顺序。谢谢！斑竹。