cad批量修改图层名称

Question

比如有一DWG文件，其图层名为“0”，“Defpoints”，“图层1”，“图层2”，图层3”，“图层…”，“图层99”，现在想把其中的“图层”全部换成“LAYER”，即图层名变成“0”，“Defpoints”，“LAYER1”，“LAYER2”，LAYER3”，“LAYER…”，“LAYER99”。
================================================
网上看到一个答案
“这个其实很简单。“格式”---“重命名”

其他的命名方式类似，大家自己研究”

（中间那张图片看不到了，还是不知道怎么命名的。。。。），求命名方法。

Answer 1

通过以下VBA可以达到批量重命名的目的：

Sub 批量重命名图层()

Dim LayObj As AcadLayer

For Each LayObj In ThisDrawing.Layers

If InStr(LayObj.Name, "图层") Then

ThisDrawing.SendCommand "

rename" & vbCr & "LA" & vbCr & LayObj.Name & vbCr & "LAYER" & Right(LayObj.Name, Len& vbCr

End If

Next

End Sub

扩展资料：

软件：

除计算机本身的软件如操作系统、编译程序外，CAD主要使用交互式图形显示软件、CAD应用软件和数据管理软件3类软件。至2014年来国内快速崛起的浩辰CAD、中望CAD等，和AutoCAD，他们都有很高度兼容，也是用户的选择之一。

交互式图形显示软件用于图形显示的开窗、剪辑、观看，图形的变换、修改，以及相应的人机交互。CAD应用软件提供几何造型、特征计算、绘图等功能 ， 以完成面向机械、广告、建筑、电气各专业领域的各种专门设计。

构造应用软件的四个要素是：算法 、数据结构、用户界面和数据管理。数据管理软件用于存储 、检索和处理大量数据，包括文字和图形信息。为此，需要建立工程数据库系统。

参考资料来源：百度百科-CAD批量处理程序

Answer 2

那种方法是错的。无论是rename命令还是在图层管理器中都无法批量修改成你需要的那样的图层名称。除非是批量增加前缀、后缀。

追问

如何批量减少前缀？或者增加前缀？

追答

这样操作，rename命令。



追问

我试了，貌似只能增加不能减少，可以减少前缀吗？

追答

不能减少，本来批处理改名并不是这个命令所能达到的效果，这个只是锦上添花所为。

Answer 3

通过以下VBA 可以达到批量重命名的目的
Sub 批量重命名图层()
Dim LayObj As AcadLayer
For Each LayObj In ThisDrawing.Layers
If InStr(LayObj.Name, "图层") Then
ThisDrawing.SendCommand "-rename" & vbCr & "LA" & vbCr & LayObj.Name & vbCr & "LAYER" & Right(LayObj.Name, Len(LayObj.Name) - 2) & vbCr
End If
Next
End Sub