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

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

请问：
现有的选择集中有一些实体内容，我想用一个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] 怎么样已有的选择集中移除掉一些内容

发表回复

精选推荐