Здравствуйте уважаемые форумчане! Вот исходник программы

 

(DEFUN c:text (/ p1)

  (setq p1 (getpoint "\npoint1 : "))

  (setq per1 (GETREAL "\nfirst per : "))

  (setq per2 (GETREAL "\nsecond per : "))

  (setq p2 (polar p1 2.76046543 16.03))

  (setq p3 (polar p1 pi 14.88))

  (setq p6 (polar p1 (/ pi 2) 8))

  (setq p7 (polar p1 0.60467073 4.94))

  (command "_line" p1 p6 "")

  (setq rez (+ per1 per2))

  (command "_text" p2 2.5 0 (rtos per1 2 2))

  (command "_text" p3 2.5 0 (rtos per2 2 2))

  (command "_text" p7 2.5 0 (rtos rez 2 2))

)

 

Суть работы такая: указываем исходную точку, указываем переменную №1, указываем переменную №2, и программа рисует три текстовых области и линию. Слева от линии, сверху переменная №1, снизу переменная №2. Справа от линии результат их сложения.

Так вот в чем вопрос, вернее их 3, как сделать:

1. Чтобы при вводе переменной №1 = 10.10 и переменной №2 =12.40, результат и сами переменные выглядели не 10.1 12.4 22.5 как это сейчас, а выглядели бы так 10.10 12.40 22.50, тоесть с двумя знаками после запятой, не зависимо от того сколько знаков после запятой ввести, или даже ввести целое число.

2. Чтобы в текстовой области результата выводилось rez"+"per1, то есть в одной текстовой области (результата) было написано 22.50+10.10

3. Как выровнять текстовую область результата поцентру, относительно точки p7.
Заранее благодарен, помогите кто чем может =)

(DEFUN c:text (/ p1) не желательно использовать зарезервированные слова для названия своих функций.