外部参照块区域里的text内容

tonyhuangg

vb6.0,cad2004lib库


如何把外部参照块区域里的text内容读出来，外部参照块未炸开，但块所覆盖的区域里有几个地方是可以自己写text的（炸开的），我的想法是先读出参照块的距形坐标，再在这范围内读出几个text内容。能提供要用哪些方法和要用到的函数吗？

雪山飞狐_lzh

Sub tt1()
Dim i As AcadBlock
For Each i In ThisDrawing.Blocks
If i.IsXRef Then
For Each j In i.XRefDatabase.ModelSpace
If TypeOf j Is AcadText Then
MsgBox j.TextString
End If
Next j
End If
Next i
End Sub