请教各位,报错信息为'-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