[radist]

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

[Дима_]

Да написать такое "чудо" проблема не большая - только для чего оно Вам - просто мне кажется, что Вы хотите через ж..у гланды удалять.

[radist]

Дима, возможно. Тогда подскажите,как лучше сделать.
Мне нужно быстро сделать копии объектов, чтобы они не мешали(то есть чтобы была возможность убрать их),и при необходимости быстро открыть.
других вариантов не могу придумать кроме как то,что написал .

[Дима_]

Ладно, выяснять зачем и это нужо - в час ночи дело неблагородное - имя нового слоя откуда брать (делать "от фонаря" - даю 100% через 15 вызывов будет полная каша где кто).

[radist]

Ну как вариант-нужно чтобы площадь помещений всегда была в быстром доступе(скорее даже не площадь, а контур). Да и много куда я это пристроить смогу,если поможете=)
вот кстати,насчет количества слоев. Было бы здорово,если он при повторном запросе спрашивал-нужно ли создавать новый слой или делать в предыдущем созданном.

[Дима_]

Код:

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

 (vl-load-com)
(defun c:radist()
  ((lambda (lst-ent str)
     (if (= str "") *radistlay* (SETQ *radistlay* str))
     (if (and lst-ent *radistlay*)
       (progn
         (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) *radistlay*)
         (mapcar '(lambda (ent)
                   (vla-put-layer (vla-copy (vlax-ename->vla-object ent)) *radistlay*))
                 lst-ent))))
   (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))
   (getstring T (strcat "\nИмя слоя " (if *radistlay* (strcat "или '" *radistlay* "'") "")))))

брр - все спать - команда запуска radist

[radist]

; ошибка: слишком много аргументов
Раньше уже сталкивался с этим,но не знаю в чем тут дело....

[gomer]

_copytolayer

[radist]

То,что надо. gomer, спасибо огромное. Уверен был,что уж такого в автокаде точно нет,а вот оказывается...
А подскажите есть у этой команды быстрый вызов по русски? хочу на кнопку сделать,а в перечне команд в адаптации такой команды почему-то нет...
Дима_, спасибо,что откликнулись. Если скажите в чем ошибка лиспа и подправите,также с радостью буду использовать

[Дима_]

Да нет там ошибки - по крайней мере у меня работает - попробуйте заново скопировать (хотя gomer ИХМО более рациональный подход написал).

[gomer]

Сообщение от radist А подскажите есть у этой команды быстрый вызов по русски? хочу на кнопку сделать,а в перечне команд в адаптации такой команды почему-то нет...

Такую кнопку?

[radist]

Век живи-век учись.
спасибо вам огромное!!!