Sub Example_Layers()
    ' Этот пример находит текущую коллекцию Layers
    ' и добавляет новый слой к этой коллекции.
    
    Dim layerColl As AcadLayers
    Set layerColl = ThisDrawing.Layers
    
    ' Создайте размерный стиль по имени "TEST" в текущем рисунке
    Dim testlayer As AcadLayer
    Set testlayer = layerColl.Add("TEST")
    MsgBox "Новый слой " & testlayer.name & " добавился к коллекции Layers.
", vbInformation, "Layers Пример"
End Sub