Программирование в AutoCad. Салова И.А. - 39 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

39
7.5. Пример программы на языке AutoLisp
(prompt “\nЖдите.. Программа загружается …”); необязательная
; строка
(defun rs_error ()
(set_tile “error” “”) ;удаление содержимого поля ошибки в диало-
;говом окне
)
; Проверка ввода координаты X.
(defun do_x_pt()
(check_real (setq x_pt (get_tile “x_pt”)) “x_pt”) ;
)
; Проверка ввода координаты Y.
(defun do_y_pt()
(check_real (setq y_pt (get_tile “y_pt”)) “y_pt”) ;
)
; Проверка ввода координаты. Она возвращает либо real_number, либо
; nil
(defun check_real (real_number coord);
(if (distof real_number 2); функция distof c аргументом 2 – преоб-
; разование строки в вещественное число в десятичном виде
(progn ; координата введена правильно
(rs_error) ; удаление содержимого поля ошибки в диалоговом
; окне
real_number
)
(progn ; координата введена неправильно
(set_tile «error» ; установка сообщения в поле ошибки диа-
; логового окна
(strcat “Incorrect coordinate”
(strcase (substr coord 1 1))
“.”
)
)
nil
);end progn
);end if
);end defun check_real

Страницы