社区 › VB › 为什么没有handle

jimzhoujim 发表于 2008-8-3 10:12:00

为什么没有handle

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 发表于 2008-8-3 10:41:00

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 发表于 2008-8-3 18:35:00

谢谢,非常感谢

查看完整版本: 为什么没有handle