Public Sub changeallname()
Dim objlayer As AcadLayer
Dim i As Integer
For Each objlayer In ThisDrawing.Layers '针对一个数组或集合中的每个元素，重复执行一组语句。
If StrComp(Left$(objlayer.Name, 2), "图层") = 0 Then
i = i + 1
End If
Next objlayer
Debug.Print "有" & i & "个图层需要修改名称"
End Sub
'strcomp返回 Variant (Integer)，为字符串比较的结果。
'Debug 对象在运行时将输出发送到 立即 窗口
置顶卡
