[sasha_lif]

скачал морские животные в dwg

В файле имеется куча слоев, каждый слой имеет свой цвет, как закинуть все объекты на нулевой слой, при этом переопределив цвет объектов из ByLayer (для каждого слоя свой) в прямое задание номера этого цвета.

Т.е все объекты должны стать на нулевом слое, но цвет всех объектов должен остаться тот-же

В принципе наверно поможет
LISP. Нормализация блоков текущего файла.
Но там чуть не то.

[off]

Нет. Тире вроде только со стандартными командами работает и то не со всеми.

[Хмурый]

Сообщение от sasha_lif скачал морские животные в dwg В файле имеется куча слоев, каждый слой имеет свой цвет, как закинуть все объекты на нулевой слой, при этом переопределив цвет объектов из ByLayer (для каждого слоя свой) в прямое задание номера этого цвета. Т.е все объекты должны стать на нулевом слое, но цвет всех объектов должен остаться тот-же В принципе наверно поможет LISP. Нормализация блоков текущего файла. Но там чуть не то.

в имеющемся файле объекты раскрашены "по слою"?

[off]

Да.
Нашел http://forum.dwg.ru/showpost.php?p=887012&postcount=6. Но там есть выбор объектов. Сейчас заставлю его работать в скрипте и проблема будет решена.

[Хмурый]

off, ага. Ну, давай. Отпишись, как получится.

[off]

Сделал. Переносит примитивы в 0 сохраняя свойства. Выполняется несколько раз Purge чтобы очистить от всякого мусора. Далее хочу прописать туда вставку атрибута значение которого будет браться из имени файла. Не знаю получится ли.

[off]

Добавил очистку proxy объектов, предварительно в настройках отключив оповещение об их наличии в чертеже. Т.к. это тормозило работу. Текущий слой выставил в 0, чтобы ненужные слои не использовали эту лазейку. Промежуточный вариант

Код:

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

(load "olay.lsp")
(load "ExplodeProxy2007.arx")
EXPLODEALLPROXY REMOVEALLPROXY _AUDIT _Y _CLAYER 0 olay _all  _-Purge _A  _N _-Purge _A  _N _-Purge _A  _N _-Purge _A  _N _-Purge _A  _N
_SAVEAS 2000 (strcat "GOTOVO\\" (getvar "DWGNAME"))
_QUIT

Пытаюсь добавить еще имя файла в значение атрибута с и использованием команды -attdef. Но не знаю как. Может кто подскажет?

[pentaone]

off, а как заставить ваш код работать? Что-то ни как не пойму

[Bull]

Сообщение от pentaone off, а как заставить ваш код работать? Что-то ни как не пойму

В поиск "как использовать lisp"

[off]

Сообщение от pentaone off, а как заставить ваш код работать? Что-то ни как не пойму

Это не lisp, это сценарий. Он используется для обработки группы файлов. Для этого нужно взять лисп на который идет ссылка в #23, взять содержимое архива из еще одного архива. В нем содержится файл сценария и bat файл для его запуска. Я складывал преобразуемые файлы в одну папку со всем этим набором и запускал bat. Создавалась новая папка в которую попадали преобразованные файлы. Если у вас файл один, то заморачиваться не стоит - просто используйте лисп из #23 обычным способом.

----- добавлено через ~4 мин. -----

Сообщение от off Текущий слой выставил в 0, чтобы ненужные слои не использовали эту лазейку.

После просмотра результата (спустя некоторое время) обнаружил там лишние текстовые и размерные стили ( тоже были текущими и сохранились. Так что если кто будет пользоваться в дальнейшем надо и это прописать (чтобы текущий стиль текста и размерный стиль выставлялись в Стандарт).

[no_ideas]

Сообщение от Кулик Алексей aka kpblc Если еще интересно, то вот один вариант (особо не гонял). Внутри блоков объекты, свойства которым установлены в ByBlock, не меняются.

Добрый день. Отличный лисп. А не подскажите как его можно оптимизировать? Чтобы по умолчанию все три галки стояли, и был выбран другой слой, отличный от 0.