[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

[Кулик Алексей aka kpblc]

В чертеже, в пространстве модели или в файле? Вхождений блоков или их описаний? Учитывать ли вложенные блоки? Как обрабатывать внешние ссылки?
И ради интересу сначала руками выполни команду _.qselect и посмотри на количество вхождений блоков в пространстве модели.

---
Добавлено:

Код:

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

Option Explicit

Public Function GetBlockReferences(Optional bCheckSubEnt As Boolean = True) As Long
Dim lRes As Long
Dim oBlockDef As AcadBlock
Dim oEnt As AcadEntity
  If bCheckSubEnt Then
    For Each oBlockDef In ThisDrawing.Blocks
      If oBlockDef.IsXRef = False Then
          For Each oEnt In oBlockDef
            If oEnt.ObjectName = "AcDbBlockReference" Then
              lRes = lRes + 1
            End If
          Next
      End If
    Next
  Else
    For Each oEnt In ThisDrawing.ModelSpace
       If oEnt.ObjectName = "AcDbBlockReference" Then
              lRes = lRes + 1
            End If
    Next
  End If
  GetBlockReferences = lRes
End Function

Public Sub test()
  MsgBox "Включая вложенные: " & CStr(GetBlockReferences)
  MsgBox "Только пространство модели : " & CStr(GetBlockReferences(False))
End Sub

[maratovich]

В пространстве модели.
Описаний.
Учитывать вложенные блоки.
Конечный результат должен быть = 30
Сколько видно - столько и есть в модели. (при размороженных и включенных слоях)
Вот эти 30 получить и не могу. Как ?

[Кулик Алексей aka kpblc]

Я неверный код там написал... По логике: проходишь по всем примитивам пространства модели. Если примитив блок, то получить его описание, пройтись по всем его примитивам. Если внутри блока тоже блок, то...
Рекурсия чистой воды. Сейчас попробую нарисовать
P.S. Гоняй, тестируй. Но откуда ты взял 30 штук, когда их у меня получилось 27 - не пойму. Что я сделал: разморозил и разблокировал все слои, выбрал все блоки (9 штук), разбил. Выбрал все блоки (12 штук), разбил. Выбрал все блоки (6 штук), разбил. 9+12+6=27.
Или у меня с логикой что-то не то?

Код:

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

Option Explicit

Public Function GetBlockReferencesByOwner(objOwner As AcadBlock) As Long
Dim lRes As Long
Dim oEnt As AcadEntity
  lRes = 0
  For Each oEnt In objOwner
    If oEnt.ObjectName = "AcDbBlockReference" Then
      lRes = lRes + 1 + GetBlockReferencesByOwner(ThisDrawing.Blocks.Item(oEnt.Name))
    End If
  Next
  GetBlockReferencesByOwner = lRes
End Function

Public Function GetBlockReferences(Optional bCheckSubEnt As Boolean = True) As Long
Dim lRes As Long
Dim oBlockDef As AcadBlock
Dim oEnt As AcadEntity
  lRes = 0
  If bCheckSubEnt Then
    For Each oBlockDef In ThisDrawing.Blocks
      If oBlockDef.IsXRef = False Then
          For Each oEnt In oBlockDef
            If oEnt.ObjectName = "AcDbBlockReference" Then
              lRes = lRes + 1 + GetBlockReferencesByOwner(ThisDrawing.Blocks.Item(oEnt.Name))
            End If
          Next
      End If
    Next
  Else
    For Each oEnt In ThisDrawing.ModelSpace
      If oEnt.ObjectName = "AcDbBlockReference" Then
        lRes = lRes + 1
      End If
    Next
  End If
  GetBlockReferences = lRes
End Function

Public Sub test()
  MsgBox "Включая вложенные: " & CStr(GetBlockReferencesByOwner(ThisDrawing.ModelSpace))
  MsgBox "Только пространство модели : " & CStr(GetBlockReferences(False))
End Sub

[maratovich]

Сообщение от Кулик Алексей aka kpblc Или у меня с логикой что-то не то?

Вы правы ! Это я заработался. Там их 27.
Спасибо огромное !
А я то лез перебирать все внутри каждого блока....

Код:

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

For Each ACADObjectVModele In VibranieObiekti 'ThisDrawingModSpace
If ACADObjectVModele.ObjectName = "AcDbBlockReference" Then 
.............действие
   Set ACADObjectBlok2 = ThisDrawing.Blocks(ACADObjectVModele.Name)
   For Each ACADObjectVModele2 In ACADObjectBlok2
   If ACADObjectVModele2.ObjectName = "AcDbBlockReference" Then 
.............действие

И это уходило в бесконечный цикл.
Ещё раз спасибо !

Теперь буду пытаться считать атрибуты для каждого блока, хотя они у каждого вложения будут разные (хоть имя одинаковое) но надеюсь считаются как надо.

[hwd]

В пространстве модели. Описаний.

Две взаимоисключающие записи. Если "В пространстве модели", то речь явно о вхождениях блоков. Если "Описаний", то пространство тут ни к месту, т.к. эти самые "описания" хранятся в таблице блоков, а не в конкретном пространстве. Судя по тому, что делает Алексей, и как радостно ликует топикстартер - речь всё же не об описаниях, а о вхождениях.

Сообщение от Кулик Алексей aka kpblc Что я сделал: разморозил и разблокировал все слои, выбрал все блоки (9 штук), разбил. Выбрал все блоки (12 штук), разбил. Выбрал все блоки (6 штук), разбил.

Почему не захотел просто выполнить итерацию имеющихся записей в таблице блоков, отфильтровав лишнее? Насколько я помню, в определении блока имеется свойство в котором содержится коллекция идентификаторов, указанных на вхождения этого блока. Т.о. можно было бы всё выполнить очень просто, безо всяких там рекурсий - банально пересчитать общее количество таких идентификаторов.

Теперь буду пытаться считать атрибуты для каждого блока, хотя они у каждого вложения будут разные (хоть имя одинаковое) но надеюсь считаются как надо.

Возможно эта информация будет интересной.

[maratovich]

И Вам спасибо, но

Сообщение от hwd Т.о. можно было бы всё выполнить очень просто, безо всяких там рекурсий - банально пересчитать общее количество таких идентификаторов.

Таи используется ObjectId , а это надо делать версии по х32 и 64 отдельно. Нехотелось бы.

Сообщение от hwd Возможно эта информация будет интересной.

Мои познания не настолько глубоки в .net
Поэтому ответ Кулик Алексей aka kpblc полностью удовлетворил вопрос.

[hwd]

Сообщение от maratovich Таи используется ObjectId , а это надо делать версии по х32 и 64 отдельно. Нехотелось бы.

На VBA не проверял, но на .NET в данном случае компилировать отдельно под x86/x64 не нужно, достаточно "AnyCPU". Я же не предлагал использовать OldIdPtr, зависящий от разрядности ПО.

[Кулик Алексей aka kpblc]

Сообщение от hwd Почему не захотел просто выполнить итерацию имеющихся записей в таблице блоков, отфильтровав лишнее?

Хотел проверить вручную, каков должен быть реузультат.

Сообщение от hwd Насколько я помню, в определении блока имеется свойство в котором содержится коллекция идентификаторов, указанных на вхождения этого блока.

На лиспе подобное я видел, но это а) на лиспе; б) попытки, показанные здесь, показали, что не все так просто как хотелось бы (правда, опять же - на лиспе).

[hwd]

Сообщение от Кулик Алексей aka kpblc показанные здесь

По указанной ссылке все изображения битые. Или это только у меня не отображаются?

[Кулик Алексей aka kpblc]

Сейчас все равно ничего исправить не могу - дома посмотрю

[maratovich]

Сообщение от hwd Или это только у меня не отображаются?

Открылось нормально. Мозила, Вин 7.
P.S. Изображений нет (картинок).

[hwd]

Сообщение от maratovich Открылось нормально. Мозила, Вин 7. P.S. Изображений нет (картинок).

А я разве писал, что сама ссылка битая?

[Дима_]

Сообщение от hwd в определении блока имеется свойство в котором содержится коллекция идентификаторов, указанных на вхождения этого блока.

Это где такое???

[Кулик Алексей aka kpblc]

Через DXF найти можно. Может быть, через .NET тоже - не знаю...

[Дима_]

Offtop: Так тут вроде про VBA разговор...

[hwd]

Сообщение от Дима_ Это где такое???

Смотрел BlockTableRecord.GetBlockReferenceIds? Возможно на VBA есть что-то подобное.

[trir]

нету

[hwd]

Сообщение от Кулик Алексей aka kpblc Но откуда ты взял 30 штук, когда их у меня получилось 27 - не пойму.

А у меня следующий код показывает 23 вхождения блока, а не 27 и не 30.

Код:

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

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.BlockTable bt = tr.GetObject(db.BlockTableId, Db.OpenMode.ForRead) as Db.BlockTable;
    foreach (Db.ObjectId id in bt) {
        Db.BlockTableRecord btr = tr.GetObject(id, Db.OpenMode.ForRead) as Db.BlockTableRecord;
        Db.ObjectIdCollection refs = btr.GetBlockReferenceIds(false, false);
        ed.WriteMessage("\nБлок '{0}': {1}", btr.Name, refs.Count);
        count += refs.Count;
    }                
    tr.Commit();
}
ed.WriteMessage("\nBlock references count: {0}\n", count);

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

Блок '*Model_Space': 0 Блок '*Paper_Space': 0 Блок '*Paper_Space0': 0 Блок 'Блок1': 13 Блок 'Блок2': 7 Блок 'Блок3': 3 Block references count: 23

[Кулик Алексей aka kpblc]

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

[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

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