Sub Example_Delete()
    ' Этот пример создает Слой по имени "TEST".
    ' Затем выполняет итерации коллекции Слоев и показывает имена
    ' доступных слоев.
    ' Затем удаляет слой "TEST" и снова выполняет итерации коллекции слоев
    ' и показывает имена доступных слоев.
    
    Dim layerObj As AcadLayer
    
    ' Создайте новый слой
    Set layerObj = ThisDrawing.Layers.Add("TEST")
    
    ' Покажите имена слоев в рисунке
    GoSub DISPLAYLAYERS
    
    ' Удалите слой "TEST"
    layerObj.Delete
    
    ' Покажите имена слоев, остающихся в рисунке
    GoSub DISPLAYLAYERS
    
    Exit Sub
    
DISPLAYLAYERS:
    Dim entry As AcadLayer
    Dim layerNames As String
    layerNames = ""
    For Each entry In ThisDrawing.Layers
       layerNames = layerNames & entry.name & ", "
    Next
    MsgBox "Рисунок состоит из следующих слоев:" & vbCr & layerNames, , "Delete Пример"
    Return
    
End Sub

Сайт управляется системой uCoz