Подсчет количества блоков в чертеже (Страница 3 из 3)

> Walkmax
Таблицы, атрибуты, динамические блоки есть много нюансов. Потому не возможно дать однозначный ответ в чём глюки. Думаю что ответить на этот вопрос без ознакомления с файлом будет трудно. Постарайтесь по этапно конкретизировать проблему. Может кто работающий с таблицами по этому принципу подскажет.

> Startrek
И пролететь как фанера над Парижем при попытке подсчитать динамические блоки ;)

> Walkmax
ifolder.ru, slil.ru, rapidshare.com (ru) либо любой другой файлообменник. И ссылку сюда

Так что умные люди скажут?

Приветствую всех! Как смешно, ведь пару лет назад я здесь "тусовался" как раз по этой теме, но полностью задачу тогда решить не удалось. Есть у меня программа на LISPe BLCOUNT, которая прекрасно считает блоки даже в бесплатном ProgeCADe Smart и результат (количество и имена блоков)скидывает в файл xls c именем файла dwg. И вот сейчас на Visual Basice попалась программка.
Public Sub GetCensus()
    Dim oAutoCad As Object
    Dim oModelSpace As Object
    Dim wksCensus As Worksheet
    Dim intI As Integer
    ' Get the open instance of AutoCAD
    Set oAutoCad = GetObject(, "AutoCAD.Application")
    If Not oAutoCad Is Nothing Then
        Set wksCensus = Worksheets("Census")
        wksCensus.Range("A2", "E1000").Clear
        Set oModelSpace = oAutoCad.ActiveDocument.ModelSpace
        wksCensus.Cells(3, 6) = oAutoCad.ActiveDocument.Name
        wksCensus.Cells(4, 6) = oModelSpace.Count & " total objects"
        For intI = 0 To oModelSpace.Count - 1
            With oModelSpace.Item(intI)
                wksCensus.Cells(intI + 2, 1) = .EntityName
                wksCensus.Cells(intI + 2, 2) = .EntityType
                wksCensus.Cells(intI + 2, 3) = .Color
                wksCensus.Cells(intI + 2, 4) = .Layer
                wksCensus.Cells(intI + 2, 5) = .Linetype
            End With
        Next intI
    End If
End Sub
Она вставляет в Excell столбцы EntityName, EntityType и прочее из открытого Acadoвского файла при активации макроса в Excelle. А вот может ли кто-нибудь разбирающийся в VB ее чуть подправить, чтобы в Excell переносились названия блоков и их количество?
И, конечно, поделиться результатом! :)

Вопрос про dvb снимается - естественно, он запускается в AutoCADe, а у меня был ACAD14, в котором нет VBA. А про макрос в Excelle, который должен подсчитывать блоки,вопрос остается!