[Tonic]

Всем привет!
У меня случилась проблема, которую я никак не могу решить.
Я вставляю блоки в ячейки таблицы так:

• вставляю блок на чертёж (vla-InsertBlock)
• меняю этому вхождению блока цвет (на "По слою") (vla-put-Layer)
• вставляю этот блок в таблицу
• удаляю этот временный блок с чертежа (в таблице он остаётся с нужным цветом)

Потом в процессе работы с чертежом я вставляю новые вхождения этого блока командой

Код:

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

 (vl-cmdf "_-insert" (strcat block_name "=" block_file_name) ...)

где block_file_name — это имя DWG блока (чтобы на чертеже в случае чего обновились все старые вхождения блока).

Но вот, в чём проблема: для динамических блоков внутри ячеек таблицы сразу после этой команды сбрасывается цвет. У обычных блоков — нет. Блокировка ячеек не помогает.
Что можно придумать?

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

Может, проще перед вставкой в таблицу менять системные переменные, а потом их восстанавливать?

[Tonic]

Конечно, проще. Но какие системные переменные здесь помогут?

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

clayer, cecolor, celweight, celtype...

[Tonic]

К сожалению, эти переменные никак не повлияли на "обнуление" цвета блока внутри ячейки. Он (цвет) сбрасывается, ещё когда вставляемый на чертёж аналогичный блок висит на курсоре.

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

Ок, что значит "сбрасывается"? Также не помешает образец dwg. И код.

[Tonic]

Удалось локализовать проблему с минимумом действий и почти без кода.
Во вложении — файл DWG.dwg, содержащий только один блок (в слое "1", с красным цветом "По слою") и таблицу, в ячейку которой вставлен этот же блок (тоже красного цвета). Всё, что нужно сделать — это вставить ещё раз этот блок на чертёж командой (файл с блоком положить в корень диска D):

Код:

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

 (vl-catch-all-apply 'vl-cmdf (list "_-insert" (strcat "PPK=" (findfile "D:\\PPK.dwg")) "_PX" 1 "_PY" 1 pause 1 1 ""))

Сразу же (ещё когда блок висит на курсоре) цвет блока в таблице изменится на белый (то есть, видимо, его слой станет таким же, как слой таблицы — "0"). От выставления предварительно слоя или цвета в AutoCAD результат не меняется.

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

Первое, что приходит в голову - это создавать отдельное определение анонимного блока, в который выполнять копирование всех видимых примитивов "исходного". В таблицу вставлять уже новый анонимный блок. Второе - почитать "САПР на базе AutoCAD" - там есть вариант вставки блока "на курсоре".

[Tonic]

Спасибо. Я нашёл и адаптировал код Ли Мака для переименования блока (чтобы вставить его в таблицу с другим именем), но появилась другая проблема: в блоках размещена маскировка, и в некоторых версиях Автокада при "пересоздании" блока нарушается порядок отображения элементов внутри него, в результате чего маскировка внутри блока оказывается поверх остальных его элементов. Кто-то описывал такую же проблему: https://forums.autodesk.com/t5/autoc...g/td-p/2280305

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

Как варианты:
1. https://autolisp.ru/2013/09/18/draworder-inside-blocks/
2. https://autolisp.ru/2011/12/16/draworder/

[Nike]

3. https://www.cadtutor.net/forum/topic...-blocks-issue/

[Tonic]

Спасибо всем за участие!
Проблему решил функцией Ли Мака из последней ссылки. Теперь, правда, на чертеже будут множиться лишние блоки, но зато проблема решилась.