[讨论]：另一个图层问题

wwwjyc

CAD里面改图层名字能同时替换一批吗？或者有其他工具实现吗？
比如：
现有图层：
IDECK_WALL_01
IDECK_WALL_02
IDECK_WALL_03
IDECK_WALL_04
IDECK_WALL_05
IDECK_WALL_06
等。。。
我想把WALL替换成DOOR，变成：
IDECK_DOOR_01
IDECK_DOOR_02
IDECK_DOOR_03
IDECK_DOOR_04
IDECK_DOOR_05
IDECK_DOOR_06
等。。。
总之，有点象WORD里面的替换功能。

yangjr

一个一个地来吧，CAD现在还没有你需要的这个功能。

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 = JZ & Uplayer.Name
Next I
End Sub

柔柔

这也要编程？

wwwjyc

非常感谢柔柔的指教！

这里高手就是多*-*4

刚才试了一下，替换前面的内容可以，不过后缀好象加不上去，
是图层*
替换成：图层*DOOR吗？好象不行。
前缀或中间到是可以，图层*替换成：DOOR图层*

我还是要用我的那个VBA加后缀吗

柔柔

最初由 wwwjyc 发布
[B]刚才试了一下，替换前面的内容可以，不过后缀好象加不上去，
... [/B]

wwwjyc

2个字，佩服。一个*，一个？；象这种符号，你是怎么知道的？
佩服！！！

为了彻底把这个问题搞清楚，并用于实际，还有个问题：
如果我想以命令行形式操作，把他定义成一个工具按钮，好象不行，命令行不认*和？

柔柔

你没有发现我帖子里的漏洞？
我那个是“图层1”““图层2”““图层3”。。。，很有规律的。与其说是改名，不如说是替换，呵呵。。。
假如图层名毫无规律呢？用6楼的方法能行？不行啦。
所以，加后缀的真正有效的方法是下图。

柔柔

下图为刚才例子的结果。

*，? 就是通配符，DOS时代就用了，不稀奇。在ACAD的联机帮助里就有。只是一般人不去注意而已。

你要的快捷方式做不到，因为rename内部命令不支持通配符。

wwwjyc

但是在命令行里面输入*还是不行，我想定义工具按纽，所以要命令行的方式运行，谢谢！

柔柔

要达到你的要求，只能通过编程。而且这个程序应该非常简单。
不过，我的观点却是：ACAD已经有的功能我就没必要编程，过去编的也扔掉。别人编好的送给我，呵呵，我也不用。

ACAD的联机帮助真的不错，大家应该看看，否则妄下结论，会贻笑大方。

wwwjyc

问题是我不是要改一两个文件，而是要改好多，看来只能编程了

不过还是要谢谢你的帮助*-*4

lvdonghua

本站的晓东工具箱中－－－图层管理工具－－轻松实现你的问题

wwwjyc

哪个版本？我试过，没有啊！

刚才我到教学中心里去看过了，图层管理工具里面没有我要的功能。