[maratovich]

Вопрос простой - сколько блоков в чертеже ?
После выполнения кода получаю 9 шт. а в реальности 30. (поправка :ошибочка вышла, их 27)

Код:

[Выделить все]

Private Sub CommandButton1_Click()
Dim i As Long
Dim objEnt As AcadEntity
i = 0
For Each objEnt In ThisDrawing.ModelSpace
    If objEnt.ObjectName = "AcDbBlockReference" Then
       i = i + 1
    End If
Next
MsgBox i
End Sub

[hwd]

Сообщение от Кулик Алексей aka kpblc hwd, еще раз скачай вложение и проверь, что должно получиться при ручном расчете.

Как показывает практика - сегодня повторно скачивать бесполезно. Это уже на следующий день нужно качать.

UPD
Если выполнить прямую итерацию по базе данных, то получаю вообще 13 вхождений:

Код:

[Выделить все]

App.Document doc = cad.DocumentManager.MdiActiveDocument;
Db.Database db = doc.Database;
Ed.Editor ed = doc.Editor;
Int32 count = 0; /* общее количество вхождений блоков */
using (Db.Transaction tr = db.TransactionManager.StartTransaction()) {                
    Db.Handle handle = default(Db.Handle);
    Db.ObjectId id = Db.ObjectId.Null;
    for (Int64 i = db.BlockTableId.Handle.Value; i < db.Handseed.Value; i++) {
        handle = new Db.Handle(i);                    
        Boolean result = db.TryGetObjectId(handle, out id);
        if (result && id.IsValid && !id.IsErased && id.ObjectClass.Name.Equals("AcDbBlockReference",
            StringComparison.CurrentCulture)) {
            Db.BlockReference btr = tr.GetObject(id, Db.OpenMode.ForRead) as Db.BlockReference;     
            ed.WriteMessage("\nВхождение блока '{0}'", btr.Name);
            ++count;
        }
    }
    tr.Commit();
}

ed.WriteMessage("\nBlock references count: {0}\n", count);

Результат работы такой:

Вхождение блока 'Блок1' Вхождение блока 'Блок2' Вхождение блока 'Блок3' Вхождение блока 'Блок1' Вхождение блока 'Блок2' Вхождение блока 'Блок2' Вхождение блока 'Блок3' Вхождение блока 'Блок3' Вхождение блока 'Блок1' Вхождение блока 'Блок1' Вхождение блока 'Блок2' Вхождение блока 'Блок1' Вхождение блока 'Блок1' Block references count: 13

Странно. И это всё при том, что блоки даже не параметрические и не аннотативные.