[Pitonio]

Здравствуйте!

Суть в следующем: Есть чертеж, в котором несколько блоков с несколькими атрибутами каждый. Требуется выбрать блок (AcadBlockReference), у которого атрибут "A" имеет значение "B". До этого программа выбирала все блоки с атрибутами (в Selection set), а потом перебирала каждый блок и смотрела в нем атрибуты (For Each ... GetAttributes ... For Each ...). Все работало достаточно быстро, когда был всего один атрибут у каждого блока. Но теперь и количество блоков и количество атрибутов выросло, все работает жутко медленно.

Что я пытался:
Диагонально скурив спецификацию формата DXF, нашел, что если EntityType у нас 'INSERT' (далее цитата) значение, которое следует за группой 66, равно 1, то ожидается, что атрибуты (ATTRIB) следуют за элементом INSERT. (Конец цитаты). Пытался и так:

Код:

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

    FilterType[0] := 0;
    FilterData[0] := 'INSERT';
    FilterType[1] := 66;
    FilterData[1] := 1;
    FilterType[2] := 0;
    FilterData[2] := 'ATTRIB';
    FilterType[3] := 1; //Значение атрибута
    FilterData[3] := 'B';
    FilterType[4] := 2; //Tag атрибута 
    FilterData[4] := 'A';
    FilterType[5] := 0;//без этого тоже не работает
    FilterData[5] := 'SEQEND';//без этого тоже не работает

и сяк:

Код:

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

    FilterType[0] := 0;
    FilterData[0] := 'INSERT';
    FilterType[1] := 66;
    FilterData[1] := 1;
    FilterType[2] := -4;
    FilterData[2] := '<and';
    FilterType[3] := 0;
    FilterData[3] := 'ATTRIB';
    FilterType[4] := 1;
    FilterData[4] := 'B';
    FilterType[5] := 2;
    FilterData[5] := 'A';
    FilterType[6] := -4;
    FilterData[6] := 'and>';
    FilterType[7] := 0;
    FilterData[7] := 'SEQEND';

и остальные извращения в этом роде, но все-равно SelectionSet.Count = 0.

Если кто что-то насчет этого знает, или имеет идеи как это сделать по другому, прошу, направьте на путь.
Заранее Спасибо!
P.S.: Код на Делфи, но смысл, я думаю понятен.

[Дима_]

А зачем ты из делфи лезишь в DXF - он более для автолиспа подходит - с наружи я бы точно использовал объектную модель. Скорость по твоему алгоритму упадет в число раз равное колличеству аттрибутов. Переделвывай чтоб проверяла за один "проход" все аттрибуты.
p.s. ну и заодно проверь не вылезаешь-ли ты с проверками за seqend.

[Александр Ривилис]

Сообщение от Pitonio Если кто что-то насчет этого знает, или имеет идеи как это сделать по другому, прошу, направьте на путь.

Фильтр по имени атрибута в принципе не работает (т.к. атрибут - ATTRIB не самостоятельный примитив, а связан со вставкой блока). Поэтому ты должен сначала отфильтровать все вставки блоков с группой 66 не равной 0, а затем уже самостоятельно отобрать вставки блоков с нужными атрибутами. Иначе никак.

[Pitonio]

Спасибо за ответы.

Сообщение от Дима_ А зачем ты из делфи лезишь в DXF - он более для автолиспа подходит - с наружи я бы точно использовал объектную модель

Я объектную модель и использую, просто в методе Select у объекта Selection Set есть атрибуты FilterType и FilterData, которые задаются "при помощи" формата DXF.

Сообщение от Дима_ Переделвывай чтоб проверяла за один "проход" все аттрибуты.

А вот это уже интересней. Как получить список всех атрибутов у всех блоков и потом, найдя нужную пару (атрибут - значение), выбрать блок, в котором этот атрибут? У меня возникали идеи создать небольшую базу данных, которая будет заполняться при первом открытии чертежа и будет содержать внутренний идентификатор блока, атрибуты и их значения. Но это долго и проблематично.

Сообщение от Александр Ривилис Поэтому ты должен сначала отфильтровать все вставки блоков с группой 66 не равной 0, а затем уже самостоятельно отобрать вставки блоков с нужными атрибутами. Иначе никак.

Ну я так и делаю. Получается два цикла: первый - перебор всех блоков, второй перебор атрибутов в каждом блоке. Когда атрибутов всего один, программа работает быстро, а когда больше... один блок может искать две минуты...

[Олег (jr.)]

Сообщение от Pitonio Ну я так и делаю.

Вот ты и делаешь совершенно не так
Слушай что тебе говорят
Другого метода (как советует А.Ривилис) нет и точка

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

Pitonio, попробуй такой алгоритм:
1. Получить набор блоков, имеющих атрибуты (FilterType(0) = 66: FilterData(0) = 1)
2. Добавить новый набор (естественно, именованный) или массив блоков - в зависимости от того, что собираешься с ним дальше делать.
3. В цикле по первому набору для каждого блока получаешь Variant его атрибутов (и обычных, и постоянных).
4. Проверяешь, есть ли в полученном (п.3) массиве нужный атрибут с нужным значением. Если есть, помещаешь указатель на вхождение блока в набор / массив из п.2
5. По окончании получаешь набор или массив блоков, удовлетворяющих твоим условиям.
---
Лисповой код специально не пишу - только запутаю.

[Pitonio]

Спасибо, Алексей.
Лисповый код действительно мне бы не помог. А вот блок-схема - в самый раз.

Прочитал предложенный тобой алгоритм 26 раз. Пришел к выводу, что он схож с моим (либо я что-то недопонял). Опять же два цикла (один в п.3 - перебор вхождений блоков, второй - в п.4 - перебор значений атрибутов (он вложен в цикл из п.3)). Механизм получения набора блоков интересен, но блок с искомым значением атрибута должен быть всего один на чертеже (условия построения чертежа).
Вот если бы сразу можно было выцепить все атрибуты (объекты типа IACADAttribute), найти нужный и из него получить вхождение блока, в котором он обозначен.
Может быть прояснит дело описание того, что должна делать моя программа. Так вот:
Есть значение (текстовое), которое является значением атрибута с именем Name (имя атрибута постоянно) вхождения блока. Программа должна подсветить (Hilight) и приблизить (Zoom) блок, с искомым значением атрибута Name. Блоков на чертеже больше 40, атрибутов у каждого блока больше 10 (помимо атрибута Name).

1. Я делаю фильтр (Selection Set) на все блоки с атрибутами.
2. <перебираю блоки из Selection Set>
3. __У блока вызываю метод GetAttributes, получаю массив атрибутов;
4. __<перебираю атрибуты>
5. ____Проверяю имя и значение атрибута на соответствие искомым параметрам;
6. ____Если соответствуют, выходим из всех циклов
7. __</перебираю атрибуты>
8. </перебираю блоки из Selection Set>

Где < >, </> - границы цикла.

Спасибо всем за помощь.