Question

cad批量修改图层名称

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批量处理程序