tonyhuangg 发表于 2004-12-14 10:29:00

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

vb6.0,cad2004lib库


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

雪山飞狐_lzh 发表于 2004-12-14 10:42:00

Sub tt1()<BR>Dim i As AcadBlock<BR>For Each i In ThisDrawing.Blocks<BR>If i.IsXRef Then<BR>                       For Each j In i.XRefDatabase.ModelSpace<BR>                                                       If TypeOf j Is AcadText Then<BR>                                                                                       MsgBox j.TextString<BR>                                                       End If<BR>                       Next j<BR>End If<BR>Next i<BR>End Sub<BR>
页: [1]
查看完整版本: 外部参照块区域里的text内容