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

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