Как перенести линию на другой слой в автокаде

Перемещение объектов на другой слой

Выберите вкладку «Главная» панель «Слои» «Соответствие» . В командной строке введите команду «СЛОЙИЗМНЕСК».
Выберите объекты, которые необходимо перенести на другой слой, и нажмите клавишу ВВОД.
Выбирается объект на слое назначения.

Ссылки по теме

Основные понятия

Слои
Блокирование объектов на слое

Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

можно ли как-то осуществить сабж автоматически?
есть скажем слой «N» у которого толщина линиии 0.5, объекты имеют толщину линии по слою. ну жно все объекты перенести в 0 слой, но чтобы толщины их изменились с «by layer» на «0.5».
можно конечно все слои выключить кроме нужного, выделить все видимые объекты и перенести в нужный слой. но это не автоматически 🙂

#2 Ответ от Владимир Громов 29 апреля 2005г. 10:18:43

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

Не надо забывать, что слой — это свойство объекта, отсюда и плясать.

#3 Ответ от Генпланист 29 апреля 2005г. 12:24:43

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

> Profan
Тут не попляшешь, тута лиспу как минимум писать нуно.
Вот ежели бы кто-нить написал — было бы чудесно. Я бы очень этому человеку благодарен был.

#4 Ответ от Владимир Громов 29 апреля 2005г. 12:35:01

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

Ленивый я стал. У меня написано порядка 300 программ для собственных нужд, только это было лет 5 назад, теперь пишу только для коллег по работе по заказу и при четко поставленной задаче. Но ведь на этой Конференции есть очень толковые ребята и продвинутые, как я вижу, больше чем я.

#5 Ответ от Владимир Громов 29 апреля 2005г. 13:23:39

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

А если говорить по существу, то задача, поставленная L’inconnu имеет мало смысла. Ведь слой — глобальное свойство объекта, которое управляет видимостью, редактируемосьтю объектов, цветом, типом линии, весом линии, стилем печати и, собственно печатью. Задавая все эти параметры для объекта «ByLayer» («ПоСлою»), мы получаем возможность создавать объектно ориентированные слои. В данном же случае можно просто определенным объектам присвоить по отдельности вышеперечисленные свойства явно, а не по слою. Свойства, заданные явно, имеют приоритет перед параметрами, заданными для слоя. А дальше можно делать с этими объектами что угодно в смысле копирования или переноса на другой слой.

#6 Ответ от Генпланист 29 апреля 2005г. 13:50:19

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

> Profan
Вот зачем это нужно :
Я получаю топографию от заказчика.
В ней 54 слоя. Для меня подобная группировка излишне подробна. Хочу все слить на один слой. Значит мне нужно выписать (Print Screen) свойства слоев касательно типов линий, и . вручную , послойно (почти 40 раз) заменить тип линии с ByLayer на тот, который был у слоя-источника.
Ну, конечно, некоторые просто растр печатают и кладут как подложку в таком случае, но векторно — гораздо изящнее и информативнее :)))

#7 Ответ от Владимир Громов 29 апреля 2005г. 14:23:31

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

Понял. Приходилось работать с такими вещами и, как правило, именно с подложкой. Но попадались топографические планы и в векторном виде. Только слоев было не более 10, да плюс моих 10 — терпимо.
В данном случае просматривается такой алгоритм.
Предпосылка — в каждом слое свой тип линии, каждый объект имеет тип линии по слою.
1.Создается структурированный список слоев, каждому слою ставится в соответствие тип линии, заданный в этом слое, т.е. создается список типов линий.
2. Для каждого слоя по списку выбираются объекты и у них заменяется тип линии «ByLayer» на соответсвующий тип линии из списка.
3. Выбираются все объекты на всех слоях и для них меняется «старый» слой на слой, определенный как общий (существующий или новый).
4. Удаляются освободившиеся слои.
Вот что-то в таком духе. Только программировать лень.

#8 Ответ от Генпланист 29 апреля 2005г. 14:34:49

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

> Profan
Аналогично :)))

#9 Ответ от Владимир Громов 29 апреля 2005г. 14:39:03

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

Я тебя понимаю. С наступающими праздниками.

#10 Ответ от Генпланист 29 апреля 2005г. 15:05:29

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

> Profan
И Вас с праздниками !
И всех тоже, с наступающими праздниками и всего самого доброго, светлого.

#11 Ответ от Эдуард 29 апреля 2005г. 15:34:12

Re: Перенос объектов из одного слоя в другой с сохранением формата первоначального слоя

(defun cange_layer (old_layer new_layer / ad_layers obj_list layerlock vla-new-layer old_property ) (setq ad_layers (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)) ) ;_ end of_vla-get-layers ) ;_ end of_setq (if (and (setq old_color (cdr (assoc 62 (tblsearch "layer" old_layer)))) (tblsearch "layer" new_layer) (setq obj_list (ssget "x" (list (cons 8 old_layer)))) ) ;_ end of_and (progn (if (setq layerlock (ACET-LAYER-UNLOCK-ALL)) (setq layerlock (mapcar 'vl-princ-to-string (read (strcat "(" (vl-string-translate "," " " layerlock) ")" ) ;_ end of_strcat ) ;_ end of_read ) ;_ end of_mapcar ) ;_ end of_setq ) ;_ end of_if (setq vla-new-layer (vla-item ad_layers old_layer) old_property (cons (list "Color" old_color) (mapcar '(lambda (x) (list x (vlax-get-property vla-new-layer x)) ) ;_ end of_lambda '("Linetype" "Lineweight") ) ;_ end of_mapcar ) ;_ end of_cons ) ;_ end of_setq (foreach i (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex obj_list) ) ;_ end of_mapcar ) ;_ end of_vl-remove-if ) ;_ end of_mapcar (mapcar '(lambda (x) (if (member (vlax-get-property i (car x)) (list 256 "ByLayer" -1) ) ;_ end of_member (vlax-put-property i (car x) (cadr x)) ) ;_ end of_if ) ;_ end of_lambda old_property ) ;_ end of_mapcar (vla-put-layer i new_layer) ) ;_ end of_foreach (mapcar '(lambda (x) (vla-put-lock (vla-item ad_layers x) :vlax-true) ) ;_ end of_lambda layerlock ) ;_ end of_mapcar ) ;_ end of_progn ) ;_ end of_if (princ) ) ;_ end of_defun