cad批量修改图层名称通过以下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
CAD如何批量修改块的名称命令rename，可以为已命名的块、图层、标注样式、线型、样式、用户坐标系、视图、视口重新命名。
举例：将图中的块名“11”更名为“12345”,命令行显示如下：
命令: rename
输入要重命名的对象类型 [块(B)/标注样式(D)/图层(LA)/线型(LT)/文字样式(S)/Ucs(U)/视图(VI)/视口(VP)]: b
输入旧块名: 11
输入新块名: 12345
块"11"重命名为"12345"。
034鞋子展台货架
我用CAD批量打印时，生成的是好多个PDF文件，每个...你用的哪一款批量打印程序？我用的这个版本有点久远，不过还挺好用的。可以选择“生成PLT文件”，然后把后缀改为PDF（打印机是DWG To PDF），然后预设好文件名称样板，图示是文件名后加编号。如果用带有属性的图框，也可以将变量设置为图号、图名之类。再设置好保存位置，这样还是生成很多个文件，但打印时就不会问你文件名了。有编号的情况下，合并PDF也很简单了。
