为什么最后一句代码不能执行?

zzcctt

Dim I As Integer
Dim GpCode(0 To 1) As Integer
Dim DateValue(0 To 1) As Variant
GpCode(0) = 0: GpCode(1) = 5
DateValue(0) = "TEXT": DateValue(1) = 12195
Dim FilterType As Variant, FilterDate As Variant
FilterType = GpCode
FilterDate = DateValue
Dim SsetObj As AcadSelectionSet

If ThisDrawing.SelectionSets.Count <> 0 Then
For I = 0 To ThisDrawing.SelectionSets.Count - 1
Set SsetObj = ThisDrawing.SelectionSets.Item(I)
SsetObj.Delete
Next
End If

Set SsetObj = ThisDrawing.SelectionSets.Add("AA")
SsetObj.Select acSelectionSetAll, , , FilterType, FilterDate 以上代码加上句柄后,最后一句就不能执行?(其中句柄值为图形中已存在的) 请高手指点门路.... 谢谢!!

subtlation

知道句柄不是就可以直接引用对象了吗？句柄是唯一的，何必要用选择集过滤？

莫名

FilterType, FilterDate 要定义为数组，且FilterType为Integer
、 FilterDate为Variant，如：
Dim FilterType(0 To 1) As Integer
Dim FilterDate(0 To 1) As Variant

mccad

句柄不能用在过滤条件中

efan2000

每个对象的句柄都不一样，使用HandleToObject来返回对象最简便了。