新手求助，大家帮帮忙

hd464011547

Private Sub CommandButton1_Click()
Dim ass As AcadSelectionSet
Dim ftype As Integer
Dim fdata As String
ftype = 0
fdata = "TEXT"
Set ass = ThisDrawing.SelectionSets.Add("ass")
ass.Select acSelectionSetAll, , , ftype, fdata
sco = ass.Count
MsgBox "选中对象数:" & CStr(sco)
End Sub

我想在选取图中的文字，怎么执行了没结果

学至于行

Private Sub CommandButton1_Click()
Dim ass As AcadSelectionSet
Dim ftype（0） As Integer
Dim fdata（0） As Variant

ftype（0） = 0
fdata（0） = "TEXT"
Set ass = ThisDrawing.SelectionSets.Add("ass")
ass.Select acSelectionSetAll, , , ftype, fdata
sco = ass.Count
MsgBox "选中对象数:" & CStr(sco)
End Sub

hd464011547

谢谢二楼