Sub Example_Name()
    ' Этот пример создает новый слой.
    ' Затем изменяется название этого слоя.
    
    ' Добавьте новый слой
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Add("NewLayer")
    
    ' Найдите название нового слоя
    Dim layerName As String
    layerName = layerObj.name
    MsgBox "Новый слой был создан с именем: " & layerObj.name, , "Name Пример"
    
    ' Измените название слоя на "TEST".
    ' Обратите внимание, что поведение следующего кода
    ' будет различно для различных объектов.
    ' В некоторых случаях типа Вхождения блока, изменение названия
    ' означает ссылаться к новому Блоку, и поэтому Блок
    ' с названным "TEST" должен уже существовать:
    ' иначе будет возвращена ошибка.
    layerObj.name = "TEST"
    layerName = layerObj.name
    MsgBox "Новое название слоя: " & layerObj.name, , "Name Пример"
    
End Sub