Question

CAD中用宏如何实现批量查找和替换文本？

例如，我是想要查找文本内容为“A”、“B”、“C”、“D” 的文本替换为“1”、“2”、“3”、“4” ，并统计出各自出现的数量。网上找了个例子如：

dim strDwgName As String
dim strFind As String
dim strReplace As String
Dim ent As AcadEntity
For Each ent In Thisdrawing.ModelSpace
If TypeOf ent Is AcadText Or TypeOf ent Is AcadMText Then
With ent
If InStr(.TextString, strFind) Then .TextString = ReplaceStr(.TextString, strFind, strReplace, False)
End With
End If
Next ent
================
但是运行时提示ReplaceStr 子程序或函数未定义，
ReplaceStr 改 Replace 就显示 无效的过程调用或参数 其中 .TextString = Replace(.TextString, strFind, strReplace, False) 标黄。
如果在2010怎么实现?快速选择好像不能用OR连接吧

Answer 1

CAD2013中，有宏动作编辑，很容易实现你的要求。

这是很简单的编辑。在动作命名的时候要简单一些，因为它是快捷键名称，如Z8560，不要象下面的ACTMACRO001这么长。要统计数字，你快速选择一下，它自动出来了。

如上图，图案填充有46个。想看操作，你可以加我QQ437271963

Answer 2

我也想知道呢