my_圆弧选择集.Delete Set my_圆弧选择集 = ThisDrawing.SelectionSets.Add(\圆弧集\ Dim FilterType(6) As Integer Dim FilterData(6) As Variant FilterType(0) = -4 FilterData(0) = \ FilterType(1) = 0
1、过滤器参数FilterType和 FilterData(1) = \
FilterData必须设置成数组形式， FilterType(2) = -4
成对出现，数组元素一一对应， FilterData(2) = \
即FilterType(2) 对应 FilterType(3) = 40
FilterData(2) 。 FilterData(3) = Val(删除圆弧窗体.TextBox1.Text)
2、过滤器参数需要引用《DXF 参 FilterType(4) = -4
考手册》里面的组码值 FilterData(4) = \
FilterType(5) = 40
FilterData(5) = Val(删除圆弧窗体.TextBox2.Text)
过滤器列表中的逻辑运算符也由
FilterType(6) = -4
-4 组代码表示，运算符以小于号
FilterData(6) = \
开始 (<)，以大于号结束 (>)。
my_圆弧选择集.SelectOnScreen FilterType, FilterData Dim i As Integer For i = 0 To my_圆弧选择集.Count - 1 使用for循环函数遍历选择 my_圆弧选择集.Item(i).Delete 集里面的对象进行删除 Next my_圆弧选择集.Delete End Sub
注：在Autocad中选择集删除的方式对比
RemoveItems 方法从选择集中删除一个或多个项。删除的项仍然存在于图形中，但不再包含在选择集中。
Clear 方法将清空选择集。选择集仍然存在，但不再包含任何项。原来包含在选择集中的项仍然存在于图形中，但不再包含在选择集中。
Erase 方法删除选择集中的所有项。选择集仍然存在，但不再包含任何项。原来包含在选择集中的项也不再存在。
Delete 方法删除选择集和其中的所有项。调用 Delete 方法之后，选择集和原来包含在选择集中的项都将不再存在。
此为本案例的dvb工程文件
案例文件.zip