为什么没有handle

jimzhoujim

Sub jim()
Dim m As Integer
Dim sel1 As AcadSelectionSet
Dim sel2 As AcadSelectionSet
Dim first As Variant

Set sel1 = ThisDrawing.SelectionSets.Add("TEST1_Sjsh")
sel1.SelectOnScreen
Set first = ThisDrawing.SelectionSets.Item("TEST1_Sjsh")

Dim handle1 As Variant
handle1 = first.Handle
sel1.Delete
End Sub

我对first和handle1添加了监视,怎么first里面没有handle的属性呢?难道first不是object吗?请大家指教

yellocea

Sub jim()
Dim m As Integer
Dim sel1 As AcadSelectionSet
Dim sel2 As AcadSelectionSet
Dim first As Variant

Set sel1 = ThisDrawing.SelectionSets.Add("TEST1_Sjsh")
sel1.SelectOnScreen
Set first = sel1(0)      '改这句就行了

Dim handle1 As Variant
handle1 = first.Handle
sel1.Delete
End Sub

jimzhoujim

谢谢,非常感谢