[VBA程序]：如何删除图层？

fyxzi

在程序运行时，自动添加了一个图层，在结束时想把它删除，总是出现“外部相关”无法删除，请问怎么办啊

guojianguo1012

将这个图层上的所有东西都移到其他图层或删掉，再删这个图层！

fyxzi

我今天才发现是因为图层有东西啊，所以删除不掉，问下，怎么一次图层上的东西删除掉？我试了好久，找不到方法。谢谢啊

黄玉宏

采用以下程序
快速选取一层所有对象以进行操作
Sub QSelLayerControl()    '程序功能:快速选取一层所有对象,进行相应“移动、复制、删除”操作
Dim i  As AcadEntity         '删除全部图层内的对象后即可将该图层删除
Dim ss As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
Dim pLayer As String
Dim pControl As String
pLayer = ThisDrawing.Utility.GetString(0, vbCrlLf & "请输入图层名:")
ft(0) = 8: fd(0) = pLayer
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.Select acSelectionSetAll, , , ft, fd
If ss.Count = 0 Then
ss.Delete
ThisDrawing.Utility.Prompt "层内没有对象或层不存在!"
Else
ThisDrawing.Utility.InitializeUserInput 1, "Move Copy Erase"
pControl = ThisDrawing.Utility.GetKeyword(vbCr & "请输入操作名[Move(移动)/Copy(复制)/Erase(删除)]:")
ThisDrawing.SendCommand "." & pControl & vbCr & "p" & vbCr & vbCr
End If
End Sub
黄玉宏　2005.5.13

fyxzi

多谢黄兄，借鉴你的程序，我把问题已经解决了，多谢啊。
我还想问下，如何把一个选择集添加到一个块中，比如上面的“ss”，呵呵，还得请你指教下啊。

杨金付

大家能不能告诉怎样才能画好一个机械图啊！有没有好的办法啊！希望大家能帮我啊。

杨金付

大家能不能告诉怎样才能画好一个机械图啊！有没有好的办法啊！希望大家能帮我啊。