社区 › VB › [VBA] 怎么样已有的选择集中移除掉一些内容

zxj_76 发表于 2005-12-14 10:25:00

[VBA] 怎么样已有的选择集中移除掉一些内容

请问：
现有的选择集中有一些实体内容，我想用一个for each ……next 从中判断把不符合条件的内容从选择集中移除掉，应该怎么操作？

xinghesnak 发表于 2005-12-14 14:52:00

9   For k = 0 To SelectionSet.Count - 1
            If (你的条件) Then
                  ReDim deleteObj(0) As Object
                  Set deleteObj(0) = SelectionSet.Item(k)
                  SelectionSet.RemoveItems deleteObj
                  GoTo 9
            End If
         Next
呵呵!大体是这样的...你看看吧^_^

zxj_76 发表于 2005-12-14 15:33:00

谢谢啦！

WarpSkyMapping 发表于 2013-3-11 17:05:00

Sub RemoveSsetsObjects()
' ´ÓÑ¡Ôñ¼¯ÖÐÒƳý¶ÔÏó
On Error Resume Next
   Dim sset As AcadSelectionSet
   Set sset = ThisDrawing.SelectionSets.Add("SS4")
   sset.SelectOnScreen
   MsgBox sset.Count
   Dim Ent As AcadObject
   Dim deleteObj() As Object
   k = 0
   For Each Ent In sset
       If Ent.Layer = "0" Then
          ReDim Preserve deleteObj(k) 'As Object
          Set deleteObj(k) = Ent
          k = k + 1
       End If
   Next
   sset.RemoveItems deleteObj
   MsgBox sset.Count
   sset.Delete
End Sub

查看完整版本: [VBA] 怎么样已有的选择集中移除掉一些内容