[求助]如何修改块中的AcadText的文本内容？

yichong

我通过在ModelSpace中增加了一些AcadLine和AcadText做了一个标题栏，并定义成AcadBlock，想用程序去修改块中的AcadText的文本内容，请问是否须分解块？
我试着用如下程序分解：
Dim blockRefObj As AcadBlockReference
Dim explodedObjects As Variant
explodedObjects = blockRefObj.Explode
但总提示说blockRefObj未定义，请问若可行，该如何将blockRefObj与图形中已有的块联系起来？
如不可行，该如何去修改块中的AcadText的文本内容？

mccad

不知你的AcadBlock是如何定义出来的。


如果你是想先定义块再插入块，则可以在Blocks中添加一个命名块，原来再在这个块中添加AcadLine和AcadText，再插入到图形ModelSpace中。这样会方便一些。


修改块中的文字，不必炸开，而直接在块中修改，因为块中的每个图元你都可以通过程序得到。

yichong

关键问题就是我不知如何用程序得到该块，并修改其中文本！
举例说，我是用类似以下程序DRAW的块：
Dim B As acadblock
Dim BR As AcadBlockReference
Dim SPnt(0 To 2), EPnt(0 To 2) As Double
SPnt(0) = 0: SPnt(1) = 0: SPnt(2) = 0
EPnt(0) = 0: EPnt(1) = 50: EPnt(2) = 0
Dim line As AcadLine
Dim text As AcadText
Set line = B.AddLine(SPnt, EPnt)
Set text = B.AddText("标题栏文本", SPnt, 5)
Set BR = ThisDrawing.ModelSpace.InsertBlock(ePnt, "TitleBar", 1#, 1#, 1#, 0)
想用另外一个类似以下程序得到该块：
Dim BlkRef As AcadBlockReference
Dim Pnt As Variant
Dim Blk As AcadEntity
ThisDrawing.Utility.GetEntity Blk, Pnt, "Get Block:"
......
我是新手，能否给写出一些关键的代码？？谢谢了！！