[求助]：刚才那个程序在应用中的BUG！

wwwjyc

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

BUG1：不支持多文档操作。如果我同时打开多个文档，只有1个可以执行，其他的报以下错误：
命令: 2 TCHZ ; 错误: Visual LISP command document mismatch: tchz

BUG2：不支持( )，没办法加带（）的前后缀或者替换；
TCQZ 输入图层名前缀:(0)
; 错误: 函数错误: 0

雪山飞狐(lzh)

不支持( )，是因为GetString接受Lisp表达式，(**)被解释成调用Lisp函数了，只有在输入时（）前或后加其他字符
另外一个问题我倒没碰到过