[BulKonst]

Доброго времени суток. Подскажите пожалуйста как определить координаты точки в пользовательской системе координат.
Задача такая:
1. Через lisp устанавливаем ПСК с определенными условиями (command "_ucs"……(пока не разбирался как)……), перемещено и повернуто относительно МСК.
2. Анализируем объект, т.е. вытаскиваем из него точки.
3. Возвращаем ПСК в обратное состояние к примеру (command "_u")
К примеру: на чертеже стоит ПСК, а выражение (cdr (assoc 10 (entget obj_line))) выводит координаты в МСК.

[Кулик Алексей aka kpblc]

Необязательно в МСК. Может быть и в ОСК.

----- добавлено через ~1 мин. -----
Читай DXF Reference - там написано, что и для каких объектов в каких системах координат хранится и показывается.
Дополнительно: часть информации есть в http://autolisp.ru/2009/10/09/vla-function-features2/

[Do$]

Сообщение от BulKonst как определить координаты точки в пользовательской системе координат

См. функцию trans

[BulKonst]

Do$, спасибо, разобрался!

Код:

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

 ;;; для отрезков перевод точек МСК в ТСК
(setq obj_line (car (entsel)))
(setq point_1 (trans (cdr (assoc 10 (entget obj_line))) 0 1))
(setq point_2 (trans (cdr (assoc 11 (entget obj_line))) 0 1))