Sub Example_Item()
    ' Этот пример показывает два использования метода Item.
    ' Первое использование Item с индексом счётчика элементов в коллекции.
    ' Второе использование Item со строкой, для выбора элемента коллекции.
    
    ' Выполните итерации коллекции пространства модели, получите все
    ' элементы в коллекции, и сохраните их в массиве c именем newObjs
    Dim count As Integer
    count = ThisDrawing.ModelSpace.count
    
    ReDim newObjs(count) As AcadEntity
    Dim index As Integer
    For index = 0 To count - 1
        Set newObjs(index) = ThisDrawing.ModelSpace.Item(index)
    Next
    
    ' Получите элемент, в этом случае слой, с названием "0"
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Item("0")
    
End Sub