[nynokne]

Здравствуйте, подскажите лисп, аналогичный следующим действиям:
1. Быстрый выбор - Тип объеков - отрезок; Угол - 0,0.
2. Перенести выбранные линии в слой "Горизонтальные_отрезки"
Я написал команду, но не знаю, как задать угол:
(command "_.copytolayer" (ssget "X" '((0 . "LINE") (??. ???))) "" "Горизонтальные_отрезки" "_exit")

[Дима_]

Фильтром в чистом виде (ssget) такое не задать - надо "пробегаться" по выбранным примитивам и оставлять с одинаковой координатой Y - то есть писать функцию для фильтрации набора.

[nynokne]

Подскажите, а с текстом тоже самое тоже нельзя сделать? Ведь у текста есть dxf-код 50, означающий, как я понял, поворот в радианах
Я пробую так:
(command "_.copytolayer" (ssget "X" '((0 . "Отметки") (50 . "0.0") (8. "TEXT"))) "" "Отметки_горизонтальные" "_exit")
но ничего не выходит..

[Alan]

Сообщение от nynokne (command "_.copytolayer" (ssget "X" '((0 . "Отметки") (50 . "0.0") (8. "TEXT"))) "" "Отметки_горизонтальные" "_exit")

Не аккуратно написанный Лисп
Проверь
(command "_.copytolayer" (ssget "_X" '( (8 . "Отметки") (0 . "TEXT")(50 . 0.0))) "" "Отметки_горизонтальные" "_exit")
Но слой Отметки_горизонтальные должен быть.

[nynokne]

Сообщение от Alan Проверь

Спасибо, помогло! А можете сказать, почему пробел не нужен между второй и третьей скобками?

[Alan]

Пробелы между скобками вообще не учитываются.
Твои ошибки в неправильных DXF-кодах. Посмотри разницу между твоим и моим текстом.
В первом посте ты предлагал ПЕРЕНЕСТИ выбранные примитивы, а (command "_.copytolayer" ... КОПИРУЕТ на указанный слой.
На самом деле для изменения слоя правильнее применять не командные методы, а просто изменить DXF-код (8 . "Отметки")
и обновить Базу Графических Данных.

[nynokne]

Сообщение от Alan На самом деле для изменения слоя правильнее применять не командные методы, а просто изменить DXF-код (8 . "Отметки") и обновить Базу Графических Данных.

Где можно почитать, как это сделать? А то я только начал пытаться как-то ускорить работу, загнав однотипные операции в лиспы...

[Alan]

Есть знаменитая тема, куда я посылаю всех новичков в Лиспе http://forum.dwg.ru/showthread.php?t=22894