[求助]：批量处理300幅地形图，删除其中几个图层

围棋

批量处理300幅地形图，删除其中几个图层中的内容，图层可以不删。
请问大家有什么好的办法？
急！

AutoCAD@Coke

你先转换图层再清理图层。

围棋

2楼的方法还是手工操作,我需要有一个LISP/VBA的程序,只要几分钟,就搞定了.可是我不会编程啊.
今天上午,我一个人手工花了2个多小时,全部清掉了.这是在做机械动作,累.

自由的鱼

不难的！以前我记得在这里发过一个程序可以解决你这个问题的，让我找找！ 用这个程序以前我10分钟处理了1000多幅地形图，就是为了删除一些垃圾图层里的图元！一次可以打开多少张图就要看楼主的机器配置了，：）

Sub delmlayer()
On Error Resume Next

'Dim i As Integer
Dim ent As AcadEntity
For i = 0 To ThisDrawing.Application.Documents.Count - 1
    ThisDrawing.Application.Documents.Item(i).Activate
      For j = 0 To ThisDrawing.SelectionSets.Count - 1
        ThisDrawing.SelectionSets.Item(i).Clear
        ThisDrawing.SelectionSets.Item(i).Delete
    Next
   
    Dim sset As AcadSelectionSet
    Dim Ftype(0) As Integer
    Dim Fdata(0) As Variant
    Ftype(0) = 8
    Fdata(0) = "3,5" '这里的3和5是图层名，如果有多个图层你就加在里面，用逗号分隔
    Set sset = ThisDrawing.SelectionSets.Add("laysel")
    sset.Select acSelectionSetAll, , , Ftype, Fdata
   
    For Each ent In sset
    ent.Delete
    Next

Next



End Sub

围棋

鱼兄,你为什么不早点现身啊?
这2天我搜了相关的内容,怎么没有找到你所说的?
请问这上面的这段程序是怎样运行的?LISP或是什么?

自由的鱼

是VB程序，要不这样吧，你把你要删除的图层名告诉我，我直接做成一个文件给你，到时候你直接加载就可以运行了！我也是今天才看到你的帖啊，呵呵

围棋

鱼兄,我已经手工处理了,感谢你.
我的CAD的VBA/宏功能不能用(是CD上文件坏上,安装不上).
我想再请教一下,用宏的功能可以解决吧?(EXCEL的宏功能我还用得比较熟)但VBA我是真的不懂.

自由的鱼

excel我就不太懂了，：）