社区 › VB › 请问如何删除指定名字图层上的所有对象

sifeng001 发表于 2010-8-12 04:30:00

请问如何删除指定名字图层上的所有对象

如题
各位大侠，代码怎么写？谢谢！

sifeng001 发表于 2010-8-12 04:49:00

Function DelAllInLayer(ByVal LName As String)
    'On Error Resume Next
    Dim SSet As AcadSelectionSet
    Set SSet = CreateSelectionSet("XXX")
    Dim Ft(0) As Integer, Fd(0)
    Ft(0) = 8: Fd(0) = LName
    SSet.Select acSelectionSetAll, , , Ft, Fd
    Dim E As AcadEntity
    'MsgBox SSet.Count
    For Each E In SSet
      E.delete
    Next
End Function
Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet
    On Error Resume Next
    ThisDrawing.SelectionSets(SSetName).delete
    Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)
End Function
网上找到的，不知道怎么用。

AirCD 发表于 2010-8-12 09:52:00

建立选择集-用选择集过滤器根据图层名称选择指定图层上所有对象-删除对象-删除选择集

实际上你找到的程序已经足够清楚了，不知道怎么用说明你大概还没有入门。建议你再看看这方面的资料。乐筑天下里有很多入门学习资料，足够满足你的需要。

查看完整版本: 请问如何删除指定名字图层上的所有对象