qjcpj 发表于 2008-10-17 00:26:00

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

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

sailorcwx 发表于 2008-10-17 11:16:00

把块当成一个集合
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 发表于 2008-10-17 11:25:00

<p>果然是高手!!受教了!</p><p>我还以为必须要做属性块,原来还可以这样~!</p><p></p>

qjcpj 发表于 2008-10-17 23:45:00

本帖最后由 作者 于 2008-10-18 8:46:26 编辑 <br /><br /> <p>非常感谢水手兄弟！我试试效果怎样。</p><p>另，如果“块”中含多个“TEXT”实体，又如何保证编辑的是所选的？</p>
页: [1]
查看完整版本: [求助]块内文字内容修改的vba例程