Dim Sset As AcadSelectionSet-----这里可以改成Object
With Thisdrawing.SelectionSets
If Not (IsDBNull(.Item("this"))) Then
Sset = .Item("this")
Sset.Delete()
End If
Sset = .Add("this")
If Err.Number <> 0 Then Err.Clear()
End With
................................
Dim Ent(0) As AcadEntity-----这里用AcadEntity的时候是正常的,但是改成Object时下面的 Sset.AddItems(Ent)就出错是怎么回事?
Ent(0) =......
Sset.AddItems(Ent)