求壹段CAD VBA的代碼

可以參考壹下下面的代碼

Sub?re_text()

Dim?obj?As?Variant

For?Each?obj?In?ThisDrawing.ModelSpace

If?TypeName(obj)?=?"IAcadMText"?Or?TypeName(obj)?=?"IAcadText"?Then

If?obj.TextString?=?"test"?Then?obj.TextString?=?"re_successful!"

End?If

Next?obj

End?Sub