[rtyu]

Здравствуйте!!!

Ребята, подскажите, по такому вопросу, работаю в AutoCad 2010 LT и попался чертёж в котором существуют объекты с осью Z вспомнил про команду flatten, но как оказалось её в этой версии Автокада не оказалось. Подскажите как можно ли создать в языке AutoLisp эту команду, если можно то как?

Заранее благодарен за ответ

[sertor]

rtyu,увы, к сожалению не получится использовать лисп на версиях LT. Здесь обсуждалось. Только вручную (#5).

[rtyu]

не особо понял вот этот код

Код:

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

 
Команда: _Ucs
 Текущая ПСК: *МИРОВАЯ*
 Начало ПСК или [Грань/именоваННая/ОБъект/преДыдущая/Вид/Мир/X/Y/Z/ZОсь] <Мир>: _w


 Команда: _move
 Выберите объекты: _all
 найдено: 1
 Выберите объекты: (нажать Enter)
 Базовая точка или [Перемещение] <Перемещение>: 0,0,1e99
 Вторая точка или <считать перемещением первую точку>:(нажать Enter)

 Команда: _move
 Выберите объекты: _p
 найдено: 1
 Выберите объекты:(нажать Enter)
 Базовая точка или [Перемещение] <Перемещение>: 0,0,-1e99 (Не забываем знак минус)
 Вторая точка или <считать перемещением первую точку>:(нажать Enter)

а если к примеру мне надо конкретные выделенные мной объекты перевести в 2d? Что тогда я должен сделать?

[sertor]

rtyu, смотрите внимательно, это не код, а лог выполнения команд. Команда ПСК - _w (МИР).В ком. строку вводим _move (ПЕРЕНЕСТИ) -> "выбрать" ->_all (ВСЕ) - далее по тексту. Если нужно обработать не все примитивы, то при запросе выбора - выбираем нужные. Но все объекты при этом могут корректно обрабатываться.

[Хмурый]

rtyu, в мировой системе координат выбираем нужные объекты, и переносим объекты вверх (по оси Z) на 10^99 единиц чертежа. Потом возвращаем назад. Объекты уплощаются
PS но, это не влияет на выноски спдс графикс

[rtyu]

Ребята, а можно это поставить на кнопку?

[Хмурый]

что-то такое советуют

Код:

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

^C^C_-view;_top;_ucs;_w;_.change;_all;;_p;_e;0.0;_t;0.0;;_move;_all;;0,0,0;0,0,1e99;_move;_p;;0,0,0;0,0,-1e99;

http://forum.dwg.ru/showpost.php?p=252940&postcount=17

[rtyu]

А как сделать макрос чтобы я сам выбирал мне нужные объекты?

[Хмурый]

rtyu, попробуй вместо _all поставить слэш( обратную косую черту)
а по макросам смотри публикацию Владимира Света (Vova) http://dwg.ru/pub/6

[rtyu]

Чёто не получается перевести сделал вот такой вот макрос (Проверил на AutoCAD 2010) не LT

Код:

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

^C^C_-view;_top;_ucs;_w;_.change;\;;_p;_e;0.0;_t;0.0;;_move;\;;0,0,0;0,0,1e99;_move;_p;;0,0,0;0,0,-1e99;

А в ответе вот что

Код:

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

Команда: _-view
Задайте параметр 
[?/Удалить/Ортогонально/Восстановить/Сохранить/Настройка/Рамка]: _top
Выполняется регенерация модели.
Команда: _ucs
Текущая ПСК:  *ВЕРХНЯЯ*
Начало ПСК или [Грань/именоваННая/ОБъект/преДыдущая/Вид/Мир/X/Y/Z/ZОсь] <Мир>: 
_w
Команда: _.change
Выберите объекты: найдено: 1
Выберите объекты:
Точка изменения или [Свойства]:
Не выбрано ни одного изменяемого объекта
Команда: _p
Неизвестная команда "P".  Для вызова справки нажмите F1.
Команда: _e
Неизвестная команда "E".  Для вызова справки нажмите F1.
Команда: 0.0
Неизвестная команда "0.0".  Для вызова справки нажмите F1.
Команда: _t
Неизвестная команда "T".  Для вызова справки нажмите F1.
Команда: 0.0
Неизвестная команда "0.0".  Для вызова справки нажмите F1.
Команда:
.ИЗМЕНИТЬ
Выберите объекты: _move
*Неверный выбор*
Требуется точка или 
Рамка/Последний/Секрамка/БОКС/Все/Линия/РМн-угол/СМн-угол/Группа/Добавить/Исключ
ить/Несколько/Текущий/Отменить/Авто/Единственный
Выберите объекты: найдено: 1
Выберите объекты:
Точка изменения или [Свойства]: *Прервано*