嗨，
我正在尝试在模型空间中创建一个选择块集，但是我想搜索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
...任何想法？
本帖以下内容被隐藏保护；需要你回复后，才能看到！ 游客，如果您要查看本帖隐藏内容请 回复 | 
置顶卡
