Blockref的查找问题

snowfly220

  我要查找特定名称的块，找到这个块在图形中的所有实例，也就是BlockReference对象

  刚开始是用thisdrawing.modelspace.layout.item(n)一个个查找。。但是发现当图形大的时候需要太长时间

  我发现BlockReference的访问方法有一个Block.Item(n)，应该是可以从block对象下面索引到

  我获得blocks对象然后得到特定的block对象..当尝试使用block.item获取blockreference时发现获取到的不是块的实例..而是组成该块的图元..

  请问各位老大，是否可以通过Block.item()获得块的实例？应该怎么做？如果不行怎么用最快的方法遍历各图元...

  万分感谢... 

sailorcwx

通过过滤器创建选集

雪山飞狐_lzh

Sub tt()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "Insert"
ft(1) = 2: fd(1) = "MyBlockName"
ss.Select acSelectionSetAll, , , ft, fd
For Each obj In ss
Debug.Print obj.Handle
Next obj
End Sub