[solo123]

Подскажите пожалуйста, как правильно написать лисп для рисования дуги эллипса?
Получаються очень маленькие обрезки дуги. Помоему угол секущей линии сразу переводиться системой в радианы, а как сделать чтобы были градусы?
Это моя попытка:
(DEFUN SDE( / Q W E R U )
(SETQ Q (GETPOINT "\nВведите точку:"))
(SETQ W (GETPOINT "\nВведите точку:"))
(SETQ E (GETPOINT "\nВведите точку:"))
(SETQ R (GETANGLE "\nВведите угол:"))
(SETQ U (GETANGLE "\nВведите угол:"))
(command "ellipse" "A" Q W E R U ))

[ытя]

Сообщение от solo123 как сделать чтобы были градусы?

(SETQ R (*(/(GETANGLE "\nВведите угол:")pi)180))