Sub Example_Count()
    ' Рассчитывает число объектов в коллекции, которое вы можите
    ' использовать в структуре цикла, чтобы выполнить итерацию коллекции
    
    MsgBox "В рисунке " & ThisDrawing.Layers.count & " слой(я, ёв)."
    MsgBox "В ModelSpace " & ThisDrawing.ModelSpace.count & " объект(а, ов). "

    Dim objCount As Integer
    Dim I As Integer
    objCount = ThisDrawing.ModelSpace.count
    
    Dim mspaceObj As AcadObject
    For I = 0 To objCount - 1
     Set mspaceObj = ThisDrawing.ModelSpace.Item(I)
    MsgBox "Объекты в ModelSpace включают: " & mspaceObj.ObjectName, vbInformation, "Count Пример"
    Next
    
End Sub