... ...
acObjIdColl.Remove(id_objectid))
Dim bset As List(Of ObjectId) = New List(Of ObjectId)
For Each ids As ObjectId In acObjIdColl
bset.Add(ids)
Next
ss = SelectionSet.FromObjectIds(bset.ToArray) '去除不相关对象后的选择集
... ...
acObjIdColl.Remove(id_objectid))
Dim bset As List(Of ObjectId) = New List(Of ObjectId)
For Each ids As ObjectId In acObjIdColl
bset.Add(ids)
Next
ss = SelectionSet.FromObjectIds(bset.ToArray) '去除不相关对象后的选择集