[Positron]

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

http://forum.dwg.ru/showthread.php?t...F+%F1%EB%EE%E9

Сообщение от Botan Ну это лишь пример. Чертеж то крохотный, а "побочных" объектов очень много. Расскажу что я нашел: 1. Транслятор слоев. Из множества слоев по маске в имени слоя или вручную можно несколько слоев соединить в один ( стена1+стена2+стена3+...=Стена). Вроде всё просто, но непонятна логика назначения слоев объектам Архакадом. Мне то нужны например только несущие стены, окна, перегородки, размеры, подписи, а тут 5 слоев Exterior Walls (в переводе "наружные стены"), а на этих слоях ни одной наружной стены не изображено. Т.е. Инструмент есть, но для арчика не походит. 2. Настрока стандартов, он же нормоконтроль. Вроде как раз таки то что нужно. Создается эталонный файл, согласно которого производится проверка и корректировка, затрагиваются и текстовые и размерные стили, и слои, но использование затрудняется из-за см п.1 (тут 5 слоев Exterior Walls (в переводе "наружные стены"), а на этих слоях ни одной наружной стены не изображено). Т.е. сначала нужно изолировать каждый слой, на листочке писать конечный слой, а дальше используя либо п.1, либо п.2 производить слияние. 3. Вроде простой способ переноса текста и размеров на нужный слой. Выделяем - в панели свойств выбираем нужные объекты - изменяем слой. Но размеры могут быть взорваны, соответсвенно номер не прокатит. 4. Воспользоваться быстрым выбором. Но тут перенос объектов возможен только по графическим признакам, а не по функционалу (стена к стене, окна к окну...) А нужен именно функционал. ++ 5. Воспользоваться изоляцией слоя. Выбираем нужный объект - изолируем слой объекта - выделяем все объекты на этом слое - переносим на другой слой - отключаем изоляцию - повторяем...

Но не могу разобратся что и как, вообщем прошу помощи, зашел в тупик ...

[Дима_]

Сообщение от Positron Каким образом можно решить сею задачу?

Берешь коллекцию блоков (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) и поочередно залезая в каждое описание блока меняешь у его примитивов соответствующие слои не забывая что ModelSpace это тоже блок (надо там менять или нет вопрос к тебе, главное это учесть).

[Positron]

м... а есть аналог сего в лиспе? в смысле при большом объеме блоков это реально оч долго...
мне надо перелопатить много чертежей, а там очень много блоков... помогите плиз листиком

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

Была тема "нормализация блоков" - посмотри там решения.

[VVA]

LISP. Нормализация блоков текущего файла.
BGBLFIX - Нормализация блоков

[Дима_]

Сообщение от Positron помогите плиз листиком

не реви - ошибок никаких не проверяет - есть ли слои, заблокированны или еще что возиться лень и времени нет

Код:

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

 (vl-load-com)
(defun ch-lay(l1 l2)
  (vlax-for block
            (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
            (vlax-for obj block
                      (if (= (vla-get-layer obj) l1)
                          (vla-put-layer obj l2)))))

запускать (ch-lay имя_заменяемого_слоя имя_нужного_слоя)
p.s. Опс - тогда лучше по вышеприведенным ссылкам.

[Positron]

Сообщение от Дима_ не реви - ошибок никаких не проверяет - есть ли слои, заблокированны или еще что возиться лень и времени нет Код: [Выделить все] (vl-load-com) (defun ch-lay(l1 l2) (vlax-for block (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vlax-for obj block (if (= (vla-get-layer obj) l1) (vla-put-layer obj l2))))) запускать (ch-lay имя_заменяемого_слоя имя_нужного_слоя) p.s. Опс - тогда лучше по вышеприведенным ссылкам.

Спасибо, лисп работает