[求助]计算选择集中某个字符个数的问题：

bsirhell

计算选择集中某个字符个数的问题：

以下是我的代码：

Public Sub count()

    On Error Resume Next
   
   Dim objtext As AcadText
    Dim height As Double
    Dim width As Double
  
    Dim SSet As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.Item("this")) Then
        Set SSet = ThisDrawing.SelectionSets.Item("this")
        SSet.Delete
    End If
    Set SSet = ThisDrawing.SelectionSets.Add("this")
  
    Dim filterType(0) As Integer
    Dim filterData(0) As Variant
    filterType(0) = 0
    filterData(0) = "Text"
   
    SSet.SelectOnScreen filterType, filterData
   
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    pt1(0) = 0: pt1(1) = 0: pt1(2) = 0
     pt2(0) = 0: pt2(1) = 180: pt2(2) = 0
    
     Dim n As Integer
     n = 0
   
    For Each objtext In SSet
   
    If objtext.TextString = "T" Then n = n + 1
   
   AddLine pt1, pt2
    MsgBox "一共有" & n & "个字符", vbOKOnly
  EXIT FOR
    Next
 
End Sub

运行得到的结果却与想象中的相差较远，

我本想输出选择集中“T”的数量，（例如T是选择集中任一字符），而输出结果为0，

请问上面的函数该如何修正？

是否要用LEN函数来统计字符数量？

雪山飞狐_lzh

你是想只查找“T”，还是包含“T”的

“aT”这样的要计算在内么？

bsirhell

我只查“T”，而且文字是单独出现在图档中的单个文字 ，不需要“AT”这样的！当然图档中还有另外的单个文字要统计，比如还有“R”，“X”等！

雪山飞狐_lzh

2. Public Sub count()
3.     On Error Resume Next
4.       
5.     Dim SSet As AcadSelectionSet
6.     ThisDrawing.SelectionSets("this").Delete
7.     Set SSet = ThisDrawing.SelectionSets.Add("this")
8.    
9.     Dim filterType(1) As Integer
10.     Dim filterData(1) As Variant
11.     filterType(0) = 0
12.     filterData(0) = "Text"
13.     filterType(1) = 1
14.     filterData(1) = "T"
15.    
16.     SSet.SelectOnScreen filterType, filterData
17.          
18.     MsgBox "一共有" & SSet.count & "个字符", vbOKOnly
20. End Sub

Public Sub count()     On Error Resume Next            Dim SSet As AcadSelectionSet     ThisDrawing.SelectionSets("this").Delete     Set SSet = ThisDrawing.SelectionSets.Add("this")         Dim filterType(1) As Integer     Dim filterData(1) As Variant     filterType(0) = 0     filterData(0) = "Text"     filterType(1) = 1     filterData(1) = "T"         SSet.SelectOnScreen filterType, filterData               MsgBox "一共有" & SSet.count & "个字符", vbOKOnly End Sub

bsirhell

谢谢，如果另外的单个文字要统计，比如还有“R”，“X”，该如改上面的代码？