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吗?请大家指教
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
置顶卡
