Sub Example_SetMask()
    ' Следующий код обновляет свойство Mask установок слоя, сохраненных
    ' под именем "ColorLineType так, чтобы свойства слоя Цвет, Тип линии и
    ' Веса линии были восстановлены операцией Restore.
    
    Dim oLSM As AcadLayerStateManager
    Dim settings As AcLayerStateMask
    
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")
    oLSM.SetDatabase ThisDrawing.Database
       
    'Получите текущую маску, сходящую с ColorLinetype
    settings = oLSM.Mask("ColorLinetype")
       
    ' Набор маскирует так, чтобы свойства Цвет, Тип линии, и Веса линии были
    ' восстановлены операцией Restore
     settings = acLsColor + acLsLineType + acLsLineWeight
         
    'Передайте новую маску установок ColorLinetype
     oLSM.Mask("ColorLinetype") = settings

End Sub