Sub Example_ActiveLayer()
    ' Этот пример возвращает текущий слой и затем добавляет новый слой.
    ' Наконец, он возвращает слой к предыдущей установке.
    Dim currLayer As AcadLayer
    Dim newLayer As AcadLayer
    
    ' Возвратите текущий слой активного документа
    Set currLayer = ThisDrawing.ActiveLayer
    MsgBox "Текущий слой - " & currLayer.name, vbInformation, "ActiveLayer Пример"
    
    ' Создайте Слой и сделайте его активным слоем
    Set newLayer = ThisDrawing.Layers.Add("TestLayer")
    ThisDrawing.ActiveLayer = newLayer
    MsgBox "Новый слой - " & newLayer.name, vbInformation, "ActiveLayer Пример"

    ' Сбросьте слой к его предыдущей установке
    ThisDrawing.ActiveLayer = currLayer
    MsgBox "Активный слой сброшен к " & currLayer.name, vbInformation, "ActiveLayer Пример"
End Sub