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

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


你说：Uplayer.Name = Replace(Uplayer.Name, "WALL", "DOOR")
可是我要的是个变量，因为具体改的内容不同，我不懂程序，斑竹帮一下忙把，劳驾了！*-*4

这次没贴错地方吧，这里应该是VBA区！

顺便问一下，VBA程序运行时，是不是只能按ALT+F8？能不能象画直线一样，设置一个命令缩写L？*-*4

ntchjie

这个应该行了
For Each Uplayer In ThisDrawing.Layers
    If Left$(Uplayer.Name, 10) = "IDECK_WALL" Then
        Uplayer.Name = "IDECK_DOOR_" & Right(Uplayer.Name, 2)
    End If
Next Uplayer

wwwjyc

刚才翻了VB的书，终于搞定了。
Public Sub cmjz()

Dim laycount As Integer
Dim I As Integer
Dim Uplayer As AcadLayer
Dim JZ01 As String
Dim JZ02 As String

JZ01 = ThisDrawing.Utility.GetString(False, "输入想替换的原图层名字段:")
JZ02 = ThisDrawing.Utility.GetString(False, "输入想替换的新图层名字段:")

laycount = ThisDrawing.Layers.Count - 1

For I = 1 To laycount
Set Uplayer = ThisDrawing.Layers(I)
Uplayer.Name = Replace(Uplayer.Name, JZ01, JZ02)
Next I
End Sub

雪山飞狐(lzh)

laycount = ThisDrawing.Layers.Count - 1
应该改为
laycount = ThisDrawing.Layers.Count
ThisDrawing.Layers是集合
不过还是鼓励自己动手完成

wwwjyc

多谢斑竹鼓励，我会继续努力的。
不过，我的llaycount = ThisDrawing.Layers.Count - 1 这句话竟然没有抱错，程序正常执行了，完成了我要的功能，为什么？奇怪！

雪山飞狐(lzh)

肯定不会报错
你从第1个到第n-1个总共替换了n-1个，还少了一个，：）

wwwjyc

对了，因为图层0是不要改的。

wwwjyc

这些理论因为我没学过，也不是很懂。
但是我刚才运行测试过，-1以后没问题，除了图层0，其他满足条件的都改了；
但是没有-1的时候就出错了。

雪山飞狐(lzh)

是我搞错了，我一直没用For i=
一直用的是For each i in ...
AutoCad的集合都是基于0的（怪怪的），而VB里的集合都是基于1的，搞混了