[求助]块内文字内容修改的vba例程

qjcpj

如题，块内文字类型为"TEXT"，不含嵌套块，寻求块内文字内容修改例子。

sailorcwx

把块当成一个集合

2. Sub test()
3. Dim blref As AcadBlockReference
4. Dim pt As Variant
5. ThisDrawing.Utility.GetEntity blref, pt
6. Dim bl As AcadBlock
7. Set bl = ThisDrawing.Blocks(blref.Name)
8. Dim obj As AcadEntity
9. For Each obj In bl
10. If obj.ObjectName = "AcDbText" Then
11. Dim text As AcadText
12. Set text = obj
13. text.TextString = "OK"
14. End If
15. Next
16. blref.Update
17. End Sub

Sub test() Dim blref As AcadBlockReference Dim pt As Variant ThisDrawing.Utility.GetEntity blref, pt Dim bl As AcadBlock Set bl = ThisDrawing.Blocks(blref.Name) Dim obj As AcadEntity For Each obj In bl If obj.ObjectName = "AcDbText" Then Dim text As AcadText Set text = obj text.TextString = "OK" End If Next blref.Update End Sub

myiiid

果然是高手!!受教了!

我还以为必须要做属性块,原来还可以这样~!

qjcpj

非常感谢水手兄弟！我试试效果怎样。

另，如果“块”中含多个“TEXT”实体，又如何保证编辑的是所选的？