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

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

saltxf

看不明白，这个LISP里面 很多括号都没？

wwwjyc

不好意思，这个不是LISP，是宏，这个程序可以运行的，帮忙改一下，实现替换功能，谢了！

winabcd

你这很象一个VBA程序，到那里去问问高手，或许能解决。

wwwjyc

这个就是VBA程序，HELP！！！

雪山飞狐(lzh)

Uplayer.Name = Replace(Uplayer.Name, "WALL", "DOOR")
VBA的问题跑到Lisp问，搞得我没饭吃，：）