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

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