[求助]请问过滤选择时报错是怎么回事？

yuren503

请教各位，报错信息为'-2147024809(80070057)'，程序代码如下： Dim selset As AcadSelectionSet Set selset = ThisDrawing.SelectionSets.Add("jihe")
filtertype = 0 filterdata = "Text"
selset.SelectOnScreen filtertype, filterdata
MsgBox ok
For Each entry In selset
Next entry selset.Delete

topirol

filtertype ,filterdata 必须为数组

2. Sub kkk()
3. Dim selset As AcadSelectionSet
4. On Error Resume Next
5. Set selset = ThisDrawing.SelectionSets("jihe")
6. If Err Then Set selset = ThisDrawing.SelectionSets.Add("jihe")
7. selset.Clear
8. Dim filtertype(0 To 0) As Integer
9. Dim filterdata(0 To 0) As Variant
10. filtertype(0) = 0filterdata(0) = "Text"
11. selset.SelectOnScreen filtertype, filterdata
12. MsgBox selset.Count  
13. End Sub

Sub kkk() Dim selset As AcadSelectionSet On Error Resume Next Set selset = ThisDrawing.SelectionSets("jihe") If Err Then Set selset = ThisDrawing.SelectionSets.Add("jihe") selset.Clear Dim filtertype(0 To 0) As Integer Dim filterdata(0 To 0) As Variant filtertype(0) = 0filterdata(0) = "Text" selset.SelectOnScreen filtertype, filterdata MsgBox selset.Count   End Sub

yuren503

了解了！谢谢！