[mmax]

Начитался тут, что блоки взрывать нет большой необходимости.
Но если очень хочется,
то как сделать так, чтобы объекты, входящие в блок, оставались в слое в который блок вставлялся.
Делаю блок в слое "0" Вставляю его с помощью команды INSERT в "Слой 5", при взрывании все линии перелетаю т обратно в слой "0".

Дело в том, что я создал отметки уровня в виде динамических блоков -- очень удобная вещь. У полиграфистов ACAD2004 и динамические блоки там не потянут. А рисовать отметки с помощью LEADER очень муторно, поэтому их надо взорвать. Вринципе ничего страшного нет в том что отметки будут в слое 0, просто непорядочек получается.
[ATTACH]1150242462.dwg[/ATTACH]

[Cерж]

Зайди в редактор блоков и поменяй на другой слой, после того можешь взрывать
[ATTACH]1150257623.dwg[/ATTACH]

[Лентяй]

Держи лиспов, ибо аз добр днесь. так что пользуйся на здоровье, да не забывай благодарить меня за то. что я есть. [sm2001]
Это для очень одинокого блока, типа, чтоб не мучился :twisted:

Код:

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

(defun C:Expl2Lyr ( / adoc util blk ents)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        util (vla-get-utility adoc))
  (vla-getEntity util 'blk nil "Вывбери, чего взрывать: ")
  (setq ents (vlax-safearray->list (vlax-variant-value (vla-explode blk))))
  (foreach ent ents (vla-put-layer ent (vla-get-layer blk)))
  (vla-delete blk)
);end

А это - для нескольких, потому как за компанию - веселее

Код:

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

(defun C:Expl2Lyr ( / adoc ass blk ents)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        ass (vla-get-ActiveSelectionSet adoc))
  (prompt "Выбери, чего взорвать: ")
  (vla-SelectOnScreen ass (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list "*Insert")))
  (if (> (vla-get-count ass) 0) (progn
    (vlax-for blk ass
      (setq ents (vlax-safearray->list (vlax-variant-value (vla-explode blk))))
      (foreach ent ents (vla-put-layer ent (vla-get-layer blk))));vlax-for
    (vla-erase ass) (vla-clear ass));progn
    (alert "Ни хрена не выбрано!"));if
);end

[Profan]

Почему это многие упорно называют расчленение блока взрыванием? Для взрывания существует специальная команда, она так и называется "Взорвать" ("Xplode"). У нее есть куча опций в отличие от команды "Расчленить" ("Explode").

[ытя]

Сообщение от Profan Почему это многие упорно называют расчленение блока взрыванием? Для взрывания существует специальная команда, она так и называется "Взорвать" ("Xplode"). У нее есть куча опций в отличие от команды "Расчленить" ("Explode").

Поймёшь, если в словарь заглянешь.

[Profan]

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

[zenon]

Сообщение от Profan Почему это многие упорно называют расчленение блока взрыванием? Для взрывания существует специальная команда, она так и называется "Взорвать" ("Xplode"). У нее есть куча опций в отличие от команды "Расчленить" ("Explode").

Спасибо [sm206] , а я и не знал этой команды.
Век живи, век учись.
Правда все равно дураком помрешь

[ытя]

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

ИМХО: взрыв как раз не подразумевает никаких подтекстов(опций) - взорвал и всё, без каких-либо условий

[mmax]

Всем огромное спасибо за информацию?

Как я понял стандартных автоматизированых средств нет.
Такчто обратимся к лиспу

[Profan]

Для ытя.
В ответ могу сказать, что существуют и так называемые НАПРАВЛЕННЫЕ взрывы...

[Krieger]

to mmax

Команда burst из экспресов!!!

Мало того что она слои с блока переносит на объекты блока, так и атрибуты корректно взрываются в текст (т.е. значение атрибута, а не его название).

[mmax]

-->>двум спорящим
Для команды EXPLODE на панели РЕДАКТИРОВАНИЕ используется кнопка со значком динамита

[Profan]

Для mmax.
Какая разница, что там нарисовано. Главное - что выполняется. Я могу туда нарисовать козлиную башку.
"Explode" в русских версиях называлась "Расчленить" уже тогда, когда и Windows не было, и пиктограмм не было.

[mmax]

Я конечно не знал команду XPLODE тк ее не видно снаружи, а искать в справке то о чем не знаешь тоже обычно без результата.
Хорошо что есть такие форумы.

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

А вот однажды был случай, знакомый попросил отредактировать чертеж. Этот чертеж оказался объектом какогото ARX - приложения, попросту говоря чемто вроде блока. И когда я его взорвал, то все составляющие этого блока разлетелись по экрану так что и собирать было нечего. Причем само приложение отсутствовало и при открытии рисунка автокад выдал сообщение о какихто заместителях.
Хорошую защиту от редактирования ктото придумал.

[_Andre_]

Сообщение от mmax Хорошую защиту от редактирования ктото придумал.

Это не защита от редактирования, просто в чертеже были Proxy-объекты, созданные неким ARX-приложением. При отсутсвии на компьютере последнего и выдается сообщение о заместителях.

Для многих ARX - приложений выпускаются так Enabler - бесплатные модули, позволяющие корректно отображать эти самые объекты при отсутсвии основного ARX-приложения.

[mmax]

Это не защита от редактирования

Много раз приходилось иметь дело с чертежами без этих самых приложений те при открытии выдается сообщение. Обычно никогда проблем не возникало -- либо среди графических объектов никаких ARX - элементов нет либо есть небольшие блоки.
В вышеуказанном случае и план и фасад были полностью в виде этого ARX-блока -- функция ENTGET возвратила чтото типа (0 . "ABCD"), но точно не INSERT.
Обычно ARX-блоки либо не нуждаются в редактировании либо взрываются без проблем, здесь же весь чертеж взорвался в буквальном смысле этого слова.

вобщем мы тогда ничего сделать не смогли, точнее добавить элементы смогли без проблем, а то что надо подтереть закрывали голыми JPG - рисунками, а тексты объектами Wordа.