[求助]请教过滤选择的问题!!!

mlcm168

小弟刚开始学vba for AutoCAD，不知道在学习选择集的过滤问题时老出错。那位大侠看看是什么原因造成的啊

alin

Sub test()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("ss3")
Dim FType(0) As Integer
Dim FData(0) As Variant
FType(0) = 0
FData(0) = "text"
sset.SelectOnScreen FType, FData
End Sub

mlcm168

感谢斑竹的解答.