[Theodor]

Коллеги, доброго здоровичка!
Выручайте, не могу побороть проблемку в VBA.

Средствами метода .explode взрываю блок, но в блоке есть "маскировка". Важно, что бы все примитивы блока после расчленения были выше этой "маскировки" (так сказать на переднем плане чертежа). Кроме того, саму "маскировку" нельзя отправлять на задний план.

Алгоритм вижу такой:
- получить массив объектов после расчленения блоков
- удалить из массива "маскировку", или создать новый массив без этой маскировки.
- переместить оставшиеся объекты (примитивы) на передний план

Массив после расчленения получаю так:
Dim SetExpBlock as variant
SetExpBlock=OBlock.Explode 'OBlock - это статический блок на чертеже

а тут начинаются проблемы:
- как из набора (массива) убрать элемент "маскировка"? Найти их при переборке получается, но как убрать? Не удалив при этом сам объект с чертежа.
If TypeName(SetExpBlock(Index)) = "IAcadRasterImage" Then ...

И как этот массив (набор) подсунуть в метод переноса на передний план (попытка ниже)? У меня от VBA одна ругань на неопределенные переменные. Я просто запутался в их типах.

Перемещение объектов на передний план пытаюсь сделать методом
Dim DrawDic As Object
Dim MObj As Object
Set DrawDic = ThisDrawing.ModelSpace.GetExtensionDictionary
Set MObj = DrawDic.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
MObj.MoveToTop SetObjs ' SetObjs - объект или набор - тут не понятно


В общем: как получить все объекты расчленения блока, и те из них, которые не являются "маскировкой" (растровым изображением), переместить на передний план?

Спасибо за понимание.
Прошу прощения, что не оформил код

[Theodor]

Маскировку нельзя на задний план по условию использования. В противном случае на кой она вообще нужна на заднем плане, если ничего закрывать не будет.

[maratovich]

новая вводная:
использовать команду
_XPLODE
с параметром
_По объекту
она не перекидывает маскировку на верх.

[Theodor]

Сообщение от maratovich использовать команду _XPLODE

Вся затея реализовать свою функцию на VBA вылезла из необходимости сохранить значение атрибутов. При штатном расчленении они превращаются в названия полей.
А функция в expresstools маскировку размещает когда как.

[maratovich]

Сообщение от Theodor А функция в expresstools маскировку размещает когда как.

Это вы про _burst ?

----- добавлено через ~1 мин. -----
так у вас ещё и атрибуты ???? условие усложняется...

[Theodor]

Сообщение от maratovich Это вы про _burst ?

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

Да и использование сторонних решений мне не всегда актуально, так как в своем коде я добавлю дополнительный функционал - например отфильтровываю блоки по некоторым критериям.

[maratovich]

Кстати Theodor, а вы в своём коде что, каждый блок делаете .Explode и обрабатываете ?

[Theodor]

Сообщение от maratovich условие усложняется...

ну с этими условиями у меня нет сложностей.

[maratovich]

имелось ввиду - каждое вхождение в чертеже обрабатываете ?

[Theodor]

Сообщение от maratovich Кстати Theodor, а вы в своём коде что, каждый блок делаете .Explode и обрабатываете ?

Сообщение от maratovich имелось ввиду - каждое вхождение в чертеже обрабатываете ?

Увы, да. А есть пакетное расчленение с получением массива объектов?

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

[maratovich]

Сообщение от Theodor Увы, да.

А вот теперь... ахалай махалай, сяски.... зачем ???!!!
Блок то один, просто его вхождений много (одинаковых, без учета значения атрибутов), из этого следует что расчленить и обработать можно только один блок. Потом этим расчленением просто заменять существующий блок. Это будет в разы быстрее. Вставляете по точке вставки блока, а порядок расположения по порядку как есть в каде.
По поводу атрибутов - надо смотреть цель, чего с ними делаете. Поэтому и просили реальный пример.

[Theodor]

Сообщение от maratovich Блок то один, просто его вхождений много (одинаковых, без учета значения атрибутов), из этого следует что расчленить и обработать можно только один блок. Потом этим расчленением просто заменять существующий блок. Это будет в разы быстрее. Вставляете по точке вставки блока, а порядок расположения по порядку как есть в каде.

Ну это не всегда так. Да и блоки есть динамические. Плюс надо учитывать поворот блока - в общем не пойдет такой вариант.

Сообщение от maratovich По поводу атрибутов - надо смотреть цель, чего с ними делаете. Поэтому и просили реальный пример.

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

[maratovich]

Сообщение от Theodor Да и блоки есть динамические

Без нормального ТЗ результат ХЗ

[Theodor]

Сообщение от maratovich Без нормального ТЗ результат ХЗ

Это точно!!! Полезная рифма, учту в работе по проектированию.

Просто вопрос то был: можно ли преобразовать массив примитивов, полученного расчленением, в массив, пригодный для .MoveToTop без перебора в цикле.
И уж если никак этого не избежать, то и придется смотреть на задачу комплексе и искать возможности по ускорению обработки.

Ну пока вкратце (сейчас нет под рукой решений) некое ТЗ:
есть куча блоков на плане (в том числе и динамические, и с атрибутами, и с маскировкой) - вариации разные.
надо провести пакетное расчленение (как правило запрашивается пространство, но отфильтровываются блоки по именам) с преобразованием атрибутов в текстовые поля, и размещением вытащенных примитивов и полученных текстов поверх маскировок.

Все необходимое мне понято как реализовать, но скорость из-за промежуточных циклов падает - пример я выкладывал. Хотя кое какие мысли имеются, но до реализации пока руки не дошли.