[求助]：由图层工具推出的图块工具，但是有些问题

wwwjyc

Public Sub tkhz()
Dim laycount As Integer
Dim I As Integer
Dim UpBlock As AcadBlock
Dim JZ As String
JZ = ThisDrawing.Utility.GetString(False, "输入图块名后缀:")
laycount = ThisDrawing.Blocks.Count - 1
For I = 1 To laycount
    Set UpBlock = ThisDrawing.Blocks(I)
    UpBlock.Name = UpBlock.Name & JZ
Next I
End Sub


Public Sub tkqz()
Dim laycount As Integer
Dim I As Integer
Dim UpBlock As AcadBlock
Dim JZ As String
JZ = ThisDrawing.Utility.GetString(False, "输入图块名前缀:")
laycount = ThisDrawing.Blocks.Count - 1
For I = 1 To laycount
    Set UpBlock = ThisDrawing.Blocks(I)
    UpBlock.Name = JZ & UpBlock.Name
Next I
End Sub


Public Sub tkth()
Dim laycount As Integer
Dim I As Integer
Dim UpBlock As AcadBlock
Dim JZ01 As String
Dim JZ02 As String
JZ01 = ThisDrawing.Utility.GetString(False, "输入想替换的原图块名字段:")
JZ02 = ThisDrawing.Utility.GetString(False, "输入想替换的新图块名字段:")
laycount = ThisDrawing.Blocks.Count - 1
For I = 1 To laycount
Set UpBlock = ThisDrawing.Blocks(I)
UpBlock.Name = Replace(UpBlock.Name, JZ01, JZ02)
Next I
End Sub

程序1和2的前缀后缀加不上，但是程序3的替换功能可以实现。为什么？
这个程序是我把LAYER改成BLOCK类推过来的，为什么图层里面可以加前缀和后缀，图块不可以。

雪山飞狐(lzh)

模型空间和图纸空间也在块集合中
改为
If Not UpBlock.IsLayout Then UpBlock.Name = 。。。。。。

wwwjyc

谢谢斑竹帮忙！看样子等手上的项目完成以后，一定要抽时间好好的学一下VBA编程！

meili2000

太高深,呵呵,看不懂啊,以后又时间再学学