[[N.S]]

Добрый! Понадобилось мне в лиспе задать новую систему координат. У меня имеются 3 точки в WCS(МСК), ну, например:

Код:

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

(setq pt0 '(100 100 100)) 
(setq pt1 '(100 50 20)) 
(setq pt2 '(500 0 0))

Перевожу их в текущую UCS(ПСК):

Код:

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

(setq tpt0 (trans pt0 0 1))
(setq tpt1 (trans pt1 0 1))
(setq tpt2 (trans pt2 0 1))

Для наглядности рисуем линии, по первой из которых должна быть направлена ось X

Код:

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

(command "_line" tpt0 tpt1 "")
(command "_line" tpt0 tpt2 "")

Меняю UCS(ПСК):

Код:

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

(command "_UCS" tpt0 tpt1 tpt2)

Система координат меняется: центр (origin) находится там где нужно, а вот направления осей получаюся неверными. Похоже я где-то напутал в преобразовании координат. Подскажите пожалуйста, где я ошибся?

[Александр Ривилис]

А может сначала нужно отрисовать линии, а потом уже менять ПСК?

[[N.S]]

Виноват. Сообщение не в той последовательности. На самом деле у меня все как надо:

Код:

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

(setq pt0 '(100 100 100)) 
(setq pt1 '(100 50 20)) 
(setq pt2 '(500 0 0))
(setq tpt0 (trans pt0 0 1))
(setq tpt1 (trans pt1 0 1))
(setq tpt2 (trans pt2 0 1))
(command "_line" tpt0 tpt1 "")
(command "_line" tpt0 tpt2 "")
(command "_UCS" tpt0 tpt1 tpt2)

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

С привязками все нормально?

Код:

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

(defun test (/ pt0 pt1 pt2)
  (setq pt0 '(100 100 100)
        pt1 '(100 50 20)
        pt2 '(500 0 0)
        ) ;_ end of setq
  (command "_.ucs" "_none" pt0 "" "" "")
  (command "_.ucs" '(0. 0. 0.) "_none" (trans pt1 0 1) "_none" (trans pt2 0 1))
  ) ;_ end of defun

Вроде сработало нормально...

[[N.S]]

На домашнем 2006-м Каде "Invalid option keyword." _none мой Автокад не знает. Попробую на работе на 2008 Каде.
А как привязки могут повлиять на программный ввод? Думаю, именно в отсутствии обработки привязок моя ошибка.

[Do$]

Да на любом каде так будет! Второй запрос команды UCS - опция.
Как-то так надо:
(command "_.ucs" "_3p" pt0 pt1 pt2)
Ну да, еще привязки отключить...

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

Я проверял код на 2010-м с установками по умолчанию.
P.S. У команды _.ucs не увидел опции _3p:

Код:

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

Command: _ucs
Current ucs name:  *WORLD*
Specify origin of UCS or [Face/NAmed/OBject/Previous/View/World/X/Y/Z/ZAxis] <World>:

[Do$]

А они ее прячут почему-то!

Код:

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

Command: _ucs
Current ucs name:  *WORLD*
Enter an option [New/Move/orthoGraphic/Prev/Restore/Save/Del/Apply/?/World] 
<World>: _3
Specify new origin point <0,0,0>: 00,0,0

Specify point on positive portion of X-axis <1.0000,0.0000,0.0000>:
Specify point on positive-Y portion of the UCS XY plane <-0.4156,0.9096,0.0000>:

С кнопки запускается на панели UCS.

[[N.S]]

Сообщение от Do$ (command "_.ucs" "_3p" pt0 pt1 pt2) Ну да, еще привязки отключить...

- Вот так работает! Спасибо!