[求助]如何在选择集中去掉特定对象

qianluxi

我先在屏幕上选择对象，然后想从这些对象中去掉（不是删除）在图层DivideLines_LAYER上的对象，请问该如何写

Set currentselection = ThisDrawing.SelectionSets
On Error GoTo errorhandle1
If currentselection.Count = 0 Then
Set ContourSel = ThisDrawing.SelectionSets.Add("Contour")
ContourSel.SelectOnScreen
Else
ThisDrawing.SelectionSets("Contour").Delete
Set ContourSel = ThisDrawing.SelectionSets.Add("Contour")
ContourSel.SelectOnScreen
End If
NumContourLine = ContourSel.Count

For i = 0 To NumContourLine - 1
    If ContourSel.Item(i).Layer = "DivideLines_LAYER" Then
         找到满足条件的对象后怎么使用removeitems?
    End If
Next i

style6301

你参考一下下面的代码：

 

style6301

你看下这3页《在实体选择中使用过滤机制》，可能对你会有帮助，自己试试，今天不知道为什么不能上传，我已将这3页发到你邮箱（qianluximusic@yahoo.com.cn）中去了。

qianluxi

非常感谢，已经解决了