[编程申请]：帮忙看一下一个图层的小工具

wwwjyc

我这里有个加后缀的小程序，麻烦高手帮我改一下，要求实现以下功能：
现有图层：
IDECK_WALL_01
IDECK_WALL_02
IDECK_WALL_03
等。。。
我想把WALL替换成DOOR，变成：
IDECK_DOOR_01
IDECK_DOOR_02
IDECK_DOOR_03
等。。。
总之，有点象WORD里面的替换功能。

Public Sub cmjz()

Dim laycount As Integer
Dim I As Integer
Dim Uplayer As AcadLayer
Dim JZ As String

JZ = ThisDrawing.Utility.GetString(False, "输入图层名后缀:")

laycount = ThisDrawing.Layers.Count - 1

For I = 1 To laycount
Set Uplayer = ThisDrawing.Layers(I)
Uplayer.Name = Uplayer.Name & JZ
Next I

End Sub


3Q

hailler

思路：
（我不知道有没有直接改的函数）
遍历全图，找到所有图层的名称
判断输入的后缀，是否存在该后缀的层名称。
没有改的层就推出，有就继续。
for
{
新建改后的图层，遍历改前的图层，搜索改层的所有实体，并保存。
拷贝原有层的实体到新建的层。
}

wwwjyc

上面这个加后缀的程序是别人写的，可以运行。我想改成替换功能，可是我还没学，不会啊。哪位高手帮一下忙啊。在下先谢过了！

sea83

用ARX吧！这个我不懂，但是用ARX很快就可以

wwwjyc

ARX和VBA有什么区别？赐教

zjzjzj

arx是用C++语言，VBA用VB语言，ARX学起来较困难，但会了后，效率会很高，能实现更多的功能．

wwwjyc

谢谢指点，我还是从简单的开始！

solepower

迷茫了