块选择集筛选，但用于多个块名。。
嗨，我正在尝试在模型空间中创建一个选择块集，但是我想搜索3或4种类型的块，所以每个块显然都有一个不同的块名称 - 我如何编码来搜索我想要的所有块？以下是我到目前为止所拥有的：
Dim ssBlockZ As AcadSelectionSet'Selection set for blocks..
Dim blockname(0 To 3) As String'Name of block picked..
For Each ssBlockZ In ThisDrawing.SelectionSets
If ssBlockZ.Name = "SSBLOCKZ" Then
ssBlockZ.Delete
Exit For
End If
Next ssBlockZ
blockname(0) = "A1": blockname(1) = "A2": blockname(2) = "A3": blockname(3) = "A4"
Dim FilterType(0 To 3) As Integer'Selection Set - Filter type..
Dim FilterData(0 To 3) As Variant'Selection Set - Filter data..
' Create a selection set..
Set ssBlockZ = ThisDrawing.SelectionSets.Add("SSBLOCKZ")
' Set Filters and Add entities (if any) to the Selection Set..
FilterType(0) = 0: FilterData(0) = "INSERT"
FilterType(1) = 2: FilterData(1) = blockname
FilterType(2) = 0: FilterData(2) = 67 'Check what space the block is in..
FilterType(3) = 2: FilterData(3) = 0 'Modelspace..
ssBlockZ.Select acSelectionSetAll, , , FilterType, FilterData
...任何想法？
**** Hidden Message ***** 把名字串在一起，用逗号分隔；不要像以前那样使用数组。 像这样：
“A1、A2、A3”
页:
[1]