[Кудахтыч]

На чертеже нужно выбрать все динамические блоки по имени блока и слою при помощи "Групповых кодов DXF в цифровой последовательности", чтобы не использовать долгие циклы перебора.
Если блок обычный или блок динамический с не изменёнными динамическими настройками, то всё работает нормально и фильтрация срабатывает корректно, но как только происходит изменение настроек динамического блока, так сразу же перестаёт работать фильтр по имени блока для изменённых блоков.
Что сделать чтобы фильтрация по gpCode(1) = 2: dataValue(1) = "Круг с прямоуг" заработала и для изменённых динамических блоков, ну или как ещё можно выбрать все динамические блоки активного чертежа по имени блока и слою без использования циклов (с циклами я и сам знаю как)?

Код:

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

    
    Dim APolyline As AcadLWPolyline '2D полилиния
    Dim Obj As AcadEntity 'Общий объект автокада (сущность)

    Dim ssetName As String 'Объявление переменная имени набора
    Dim ssetObj As AcadSelectionSet 'Объявление переменной набора

    ssetName = "TEST_SSET1" 'Присвоение переменной ssetName имени набора
    'On Error Resume Next
    'ThisDrawing.SelectionSets.Item(ssetName).Delete 'Удаление набора, если до этого он не был удалён в результате ошибки
    Set ssetObj = ThisDrawing.SelectionSets.Add(ssetName) 'Присвоение переменной ssetObj и добавление к активному чертежу набора выбора с именем набора переменной ssetName

    Dim mode As Integer
    mode = acSelectionSetAll

    Dim gpCode(2) As Integer
    Dim dataValue(2) As Variant
    gpCode(0) = 0: dataValue(0) = "INSERT" 'Вставка блока
    gpCode(1) = 2: dataValue(1) = "Круг с прямоуг" 'Имя блока
    gpCode(2) = 8: dataValue(2) = "Пр._Отметка низа или лотка трубы" 'Имя слоя

    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode: dataCode = dataValue

    ssetObj.Select mode, , , groupCode, dataCode
'    ssetObj.Select mode
    If ssetObj.Count > 0 Then
    CommandButton26.Caption = ssetObj.Item(0).ObjectName & " = " & ssetObj.Count & " шт."
    Else
    CommandButton26.Caption = ssetObj.Count
    End If

'   Очистка данных
    ssetObj.Delete
    Set ssetObj = Nothing

[maratovich]

Никак.
Все блоки в чертеже имеют имена "*U...", поэтому берём всё и перебором сравниваем имя.

[Кудахтыч]

Сообщение от maratovich Никак. Все блоки в чертеже имеют имена "*U...", поэтому берём всё и перебором сравниваем имя.

Ну может есть отдельный код фильтрации для свойства блока EffectiveName, которое указывает оригинальное имя блока, а не имя уникального блока описываемое свойством Name. Так например для изменённого динамического блока получится:
ABlockReference.EffectiveName = "Круг с прямоуг"
ABlockReference.Name = "*U139"
Или Групповые коды DXF вообще не могут работать с динамическими блоками поэтому используют уникальные блоки типа "*U139" как прокладку для возможности их сохранения?

[maratovich]

Offtop:

Сообщение от Кудахтыч Ну может есть отдельный код фильтрации для свойства блока EffectiveName

Если кто это найдёт (на vba) - подарю лицензию без ограничения на Реверс

Сообщение от Кудахтыч Или Групповые коды DXF вообще не могут работать с динамическими блоками

А тут разницы нет, свойства одинаковы у всех боков, только есть параметр - динамический или нет, причем в DXF его тоже нет, определяется в том же переборе.

[Кудахтыч]

Сообщение от maratovich Offtop: Если кто это найдёт (на vba) - подарю лицензию без ограничения на Реверс А тут разницы нет, свойства одинаковы у всех боков, только есть параметр - динамический или нет, причем в DXF его тоже нет, определяется в том же переборе.

Ну значит все новые Автокады это просто костыли к старому DXF формату, а на новую архитектуру переходить не хотят чтобы не потерять поддержку старых продуктов и кучу клиентов с ними.

[Сергей812]

Сообщение от Кудахтыч Ну значит все новые Автокады это просто костыли к старому DXF формату, а на новую архитектуру переходить не хотят чтобы не потерять поддержку старых продуктов и кучу клиентов с ними

просто вы с размаху влетели лбом в очередные ограничения VBA, как и другие начинающие программисты) А дальше уже от вас зависит - пытаться ломиться дальше или выбрать более подходящие для решения ваших задач средства разработки. Например, в NetApi есть метод GetBlockReferenceIds, который позволяет получить как раз вставки указанного определения блока без перебора всего подряд. И на его основе можно написать универсальную функцию для получения Id всех вставок блока типа такой:

Код:

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

// AutoCAD
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;


namespace SelectDynBlocks
{
    public class CommandsClass
    {
        /// <summary>
        /// Получение списка идентификаторов вставок динблока на указанном слое
        /// </summary>
        /// <param name="aNameDefineBlock">Имя динблока</param>
        /// <param name="aNameLayer">Имя слоя</param>
        /// <param name="aAcadDb">База данных чертежа</param>
        /// <returns>Список идентификаторов вставок блока либо null</returns>
        public ObjectIdCollection GetListInsertBlock(
            string aNameDefineBlock, string aNameLayer, Database aAcadDb)
        {
            // Вспомогательная коллекция Id
            ObjectIdCollection lColIds = new ObjectIdCollection();
            // Открываем транзакцию
            using (Transaction lAcadTran = aAcadDb.TransactionManager.StartTransaction())
            {
                // Получаем таблицу слоев
                LayerTable lLayerTable = lAcadTran.GetObject(
                    aAcadDb.LayerTableId, OpenMode.ForRead) as LayerTable;
                // Если указанный слой существует
                if (lLayerTable.Has(aNameLayer))
                {
                    // Получаем идентификатор слоя
                    ObjectId lLayerId = lLayerTable[aNameLayer];
                    // Получаем таблицу блоков
                    BlockTable lBlockTable = lAcadTran.GetObject(
                        aAcadDb.BlockTableId, OpenMode.ForRead) as BlockTable;
                    // Если указанное имя динблока существует
                    if (lBlockTable.Has(aNameDefineBlock))
                    {
                        // Получаем запись таблицы блоков
                        BlockTableRecord lBlockTableRecord = lAcadTran.GetObject(
                            lBlockTable[aNameDefineBlock], OpenMode.ForRead) as BlockTableRecord;
                        // Получаем Id всех прямых вставок блока
                        ObjectIdCollection lDirectIds = 
                            lBlockTableRecord.GetBlockReferenceIds(true, true);
                        // В цикле по коллекции прямых вставок блока
                        foreach (ObjectId lDirectId in lDirectIds)
                        {
                            // Получаем вставку блока
                            BlockReference lDirectBlockRef = lAcadTran.GetObject(
                                lDirectId, OpenMode.ForRead) as BlockReference;
                            // Если данная вставка находится на заданном слое
                            if (lDirectBlockRef.LayerId.Equals(lLayerId))
                            {
                                lColIds.Add(lDirectId);
                            }
                        }
                        // Если блок динамический
                        if (lBlockTableRecord.IsDynamicBlock)
                        {
                            // Получаем Id всех анонимных блоков динамического блока
                            ObjectIdCollection lAnonymousIds = lBlockTableRecord.GetAnonymousBlockIds();
                            // В цикле по Id анонимных блоков
                            foreach (ObjectId lAnonymousId in lAnonymousIds)
                            {
                                // Получаем запись таблицы блоков для анонимного блока
                                BlockTableRecord lAnonymousBtr = lAcadTran.GetObject(
                                    lAnonymousId, OpenMode.ForRead) as BlockTableRecord;
                                // Получаем Id всех вставок данного анонимного блока
                                ObjectIdCollection lColBlockRefIds =
                                    lAnonymousBtr.GetBlockReferenceIds(true, true);
                                // В цикле по коллекции вставок данного анонимного блока
                                foreach (ObjectId lAnonymousId2 in lColBlockRefIds)
                                {
                                    // Получаем вставку блока
                                    BlockReference lAnonymousBlockRef = lAcadTran.GetObject(
                                        lAnonymousId2, OpenMode.ForRead) as BlockReference;
                                    // Если данная вставка находится на заданном слое
                                    if (lAnonymousBlockRef.LayerId.Equals(lLayerId))
                                    {
                                        lColIds.Add(lAnonymousId2);
                                    }
                                }
                            }
                        }
                    }
                }
                // Подтверждаем транзакцию
                lAcadTran.Commit();
            }
            // Возвращаем вспомогательную коллекцию
            return lColIds;
        }


        /// <summary>
        /// Выделение всех вставок указанного блока
        /// </summary>
        [CommandMethod("SelAllInsertBlock", CommandFlags.Modal | CommandFlags.Redraw)]
        public void SelAllInsertBlock()
        {
            // Получаем текущий документ, его БД и редактор
            Document lAcadDoc = Application.DocumentManager.MdiActiveDocument;
            Database lAcadDb = lAcadDoc.Database;
            Editor lAcadEd = lAcadDoc.Editor;
            // Запрашиваем вставку блока
            PromptEntityOptions lEntityOptions = new PromptEntityOptions("\nУкажите вставку блока: ");
            lEntityOptions.SetRejectMessage("\nДопустима только вставка блока ");
            lEntityOptions.AddAllowedClass(typeof(BlockReference), false);
            PromptEntityResult lSSPrompt = lAcadEd.GetEntity(lEntityOptions);
            // Если блок был выбран
            if (lSSPrompt.Status == PromptStatus.OK)
            {
                // Имя блока и его слоя 
                string lNameBlock = null;
                string lBlockNameLayer = null;
                // Открываем транзакцию
                using (Transaction lAcadTran = lAcadDb.TransactionManager.StartTransaction())
                {
                    // Получаем вставку блока
                    BlockReference lBlockReference = lAcadTran.GetObject(
                        lSSPrompt.ObjectId, OpenMode.ForRead) as BlockReference;
                    // Получаем имя блока
                    lNameBlock = (lAcadTran.GetObject(lBlockReference.IsDynamicBlock ? 
                        lBlockReference.DynamicBlockTableRecord : lBlockReference.BlockTableRecord, 
                            OpenMode.ForRead) as BlockTableRecord).Name;
                    // И имя его слоя
                    lBlockNameLayer = lBlockReference.Layer;
                    // Подтверждаем транзакцию
                    lAcadTran.Commit();
                }
                // Получаем Id всех вставок указанного блока на данном слое
                ObjectIdCollection lColIds = GetListInsertBlock(
                    lNameBlock, lBlockNameLayer, lAcadDb);
                lAcadEd.SetImpliedSelection(new ObjectId[0]);
                // Если найдена хоть одна вставка
                if (lColIds.Count > 0)
                {
                    ObjectId[] lIds = new ObjectId[lColIds.Count];
                    lColIds.CopyTo(lIds, 0);
                    lAcadEd.SetImpliedSelection(lIds);
                }
            }
        }

    }
}

Данный пример использует полученную коллекцию идентификаторов объектов лишь для выделения всех вставок данного блока на том же слое (неважно, динамический блок или обычный), а так эту коллекцию Id можно использовать для дальнейшей обработки.

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

Сергей812, а этот метод "заходит" внутрь других блоков? Ну так, просто для интересу

[Сергей812]

Сообщение от Кулик Алексей aka kpblc а этот метод "заходит" внутрь других блоков?

насколько понимаю из хелпа, если первый аргумент GetBlockReferenceIds directOnly=false, то будет возвращать Id и вложенных блоков при наличии. Но на практике пока не использовал в таком виде) Да и какой смысл во вложенных динблоках?

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

Я уже сталкивался с ситуациями, когда требовалось пройтись по всем вхождениям указанного динблока. Это было печально...

[Сергей812]

Проверил, действительно при directOnly=false возвращает дополнительно идентификаторы вставок блока, внутри которых размещен искомый блок. Нашелся и подводный камень - при любом значении аргумента directOnly функция GetBlockReferenceId возвращает Id вставок искомого блока в определениях других блоков. Но это легко решаемо путем сравнения значения свойства BlockName полученного по Id вставки блока BlockReference c константами *Model_Space / *Paper_Space.

[Кудахтыч]

Сообщение от Сергей812 Проверил, действительно при directOnly=false возвращает дополнительно идентификаторы вставок блока, внутри которых размещен искомый блок. Нашелся и подводный камень - при любом значении аргумента directOnly функция GetBlockReferenceId возвращает Id вставок искомого блока в определениях других блоков. Но это легко решаемо путем сравнения значения свойства BlockName полученного по Id вставки блока BlockReference c константами *Model_Space / *Paper_Space.

Решил эту проблему только через цикл через цикл:

Код:

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

   
   For Each Obj In SelSetDinBl 'Цикл по всем объектам набора SelSetDinBl
  Set ABlockReference = Obj
  If ABlockReference.EffectiveName = nameDinBlOtm Then 'Проверка истинного имени блока EffectiveName
  End If
   Next Obj