[求助]：[VBA]从选择集上移去对象的问题

liujiping

Dim j, k As Integer
j = 0: k = 0
       For i = 0 To SSetObj.count - 1 'SSetObj文字选择集
     max = SSetObj(i).InsertionPoint
   insertpnt1 = CDbl(max(1))    '取得Y值
   If insertpnt1 < insertpnt3 And insertpnt1 > insertpnt4 Then
    MsgBox SSetObj(i)
    SSetObj.RemoveItems SSetObj(i) '移出SSetObj
  j = j + 1
End If
Next i
MsgBox SSetObj.count
运行到8行，跳出循环（应该还有其它的项）,MsgBox SSetObj.count不执行。
不加8行是正常的，这是什么原因。
请各位帮忙看看。

lijiao

最初由 liujiping 发布
[B]Dim j, k As Integer
j = 0: k = 0
       For i = 0 To SSetObj.count - 1 'SSetObj文字选择集
     max = SSetObj(i).InsertionPoint
   insertpnt1 = CDbl(max(1))    '取得Y值
   If insertpnt1 < insertpn... [/B]

RemoveItems 要求数组变量，而不是实体。

liujiping

楼上兄：
   象这样的文字选择集（只是插入点不同），有啥好办法移去选择集的对象？

efan2000

Dim j, k As Integer
j = 0: k = 0
Dim EntObj(0) as AcadEntity '定义数组变量
For i = 0 To SSetObj.count - 1 'SSetObj文字选择集
max = SSetObj(i).InsertionPoint
insertpnt1 = CDbl(max(1)) '取得Y值
If insertpnt1 < insertpnt3 And insertpnt1 > insertpnt4 Then
'MsgBox SSetObj(i) '错误，在对话框中不能显示对象
Set EntObj(0)=SSetObj(i)
SSetObj.RemoveItems EntObj '移出SSetObj
j = j + 1
End If
Next i

liujiping

谢谢斑竹指点。