Sub Example_Lock()
    ' Этот пример создает новый слой по имени "Lock".
    ' Затем показывает состояние свойства Lock для нового слоя, переключает
    ' состояние свойства Lock и снова показывает его состояние.
    ' После выполнения этого примера, Вы можете проверить управление слоя
    ' на панеле Object Properties. Она покажет новый слой и состояние Lock.
    
    Dim layerObj As AcadLayer
    
    'Создайте новый слой
    Set layerObj = ThisDrawing.Layers.Add("Lock")
    
    'Покажите состояние Lock нового слоя
    GoSub DISPLAYSTATUS
    
    'Переключите состояние свойства Lock для слоя
    layerObj.Lock = Not (layerObj.Lock)
    
    'Покажите состояние Lock нового слоя
    GoSub DISPLAYSTATUS
    Exit Sub
    
DISPLAYSTATUS:
    If layerObj.Lock Then
        MsgBox "Слой " & layerObj.name & " блокирован.", , "Lock Пример"
    Else
        MsgBox "Слой " & layerObj.name & " разблокирован.", , "Lock Пример"
    End If
    Return
        
End Sub

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