> 1 <

Автор Сообщение

Monster3ek

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7410   2014-07-31 20:00 GMT+3 часа(ов)      
Здравствуйте уважаемые форумчане! Вот исходник программы
 
(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.
Заранее благодарен, помогите кто чем может =)

gomer

Members


Статус

23 сообщений

Где: Ukraine
Род занятий:
Возраст:

#7519   2015-02-28 20:38 GMT+3 часа(ов)      
в первом случае поможет переменная dimzin,
во втором функция strcat,
в третьем - нужно задать выравнивание с помощью опции "_j"

geosvo

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#7593   2015-04-15 11:19 GMT+3 часа(ов)      
(DEFUN c:text (/ p1) не желательно использовать зарезервированные слова для названия своих функций.
> 1 <


Онлайн :

0 пользователь(ей), 8 гость(ей) :




Реклама на сайте: