[求助]：VBA中已知定义块，如何得到它所有的引用块？

pckite

一个问题：
1、VBA中已知定义块，如何得到它所有的引用块（实体）？

谢谢！

雪山飞狐(lzh)

看看这里2楼的测试贴
http://www.xdcad.net/forum/showthread.php?s=&threadid=294720

pckite

TO　lzh741206 [：你的测试里没有相关的内容啊

雪山飞狐(lzh)

贴过来，写清楚一点
Sub test()
    Dim ss As New TlsSel
    Dim BlockName As String
    BlockName = "1"
    ss.Init
    ss.SetFilter 0, "Insert", 2, BlockName
    ss.Selectobject acSelectionSetAll
    MsgBox ss.Count
End Sub

pckite

lzh741206：你程序的意思我基本上明白了，但没能回答我这帖子的问题；
假如我已经有定义块A的名称或者ID，如何得到所有引用A的实体？非常感谢！

雪山飞狐(lzh)

ss里面的实体就是你要的

pckite

TO　lzh741206：
看得有些糊涂了，你的类太强大了，我看不出你具体是如何过滤选择名称的。能不能简单说说呢？

雪山飞狐(lzh)

那就贴一段你看得懂的吧
Sub tt1()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("TlsSel").Delete
Set ss = ThisDrawing.SelectionSets.Add("TlsSel")
Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "Insert"
ft(1) = 2: fd(1) = "A"
ss.Select acSelectionSetAll, , , ft, fd
For Each i In ss
MsgBox i.Handle
Next i
End Sub

pckite

哦！！！！！！！！！！！！！！！！！1
明白了，我陷入胡同了，谢谢你lzh741206  ！