现在想一次先输出T的数量,然后输出R的数量,请问该怎么改?
Sub co()
Dim SSet As AcadSelectionSet
Dim obj As AcadText
Dim ptcen(0 To 2) As Double
Dim endPoint1(0 To 2) As Double
Dim endPoint2(0 To 2) As Double
Dim cline As AcadLine
Dim lineHalfLength As Double
Dim groupCode(0 To 4) As Integer
Dim dataValue(0 To 4) As Variant
Dim i As Integer
On Error Resume Next
If Not IsNull(ThisDrawing.SelectionSets.Item("tex")) Then
Set SSet = ThisDrawing.SelectionSets.Item("tex")
SSet.Delete
End If
Set SSet = ThisDrawing.SelectionSets.Add("ArcsCirclesEllipses")