[求助]删除图层

caizhiming

请为VBA或LISP怎么样才可以达到以下目的：

1、打开一个CAD文件，

2、删除文件中的一个层（该层可能包含实体），

3、另存文件。

以上功能要批量进行！！

请高手指点。谢谢！！

gdzhou

这个用SCR脚本就可以实现呵呵

这种单一的功能，编个程序有点大材小用了。。

用DOS编个批处理吧。。

嘻嘻

style6301

如何实现，请写明，并最好有注解

千度Show颖

嗯，希望那个高手把代码弄出来

千度Show颖

我急着用，急

sscylh

千度Show颖 发表于 2012-9-7 09:25
我急着用，急

Sub aa()
Dim s As String
On Error Resume Next
Dim la As AcadLayer
s = InputBox("请输入图层名称")
Set la = ThisDrawing.Layers("0")
ThisDrawing.Layers(s).Lock = False
ThisDrawing.Layers(s).Freeze = False


For i = 1 To ThisDrawing.ModelSpace.Count
  If ThisDrawing.ModelSpace(i - 1).Layer = s Then
  ThisDrawing.ModelSpace(i - 1).Delete
  End If
Next
ThisDrawing.ActiveLayer = la
ThisDrawing.Layers(s).Delete
ThisDrawing.SaveAs "d:/hello.dwg"
Application.Quit
End Sub

yuanji007

.delete     .save as

yanyanjun999

斑竹这个程序蛮好的，收藏了