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

UptoLike

ВУЗ: 

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

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

Рубрика: 

41
(setq r “5”)
)
)
(if b ; поле Толщина S
(set_tile “edit4” b)
(progn ; по умолчанию
(set_tile “edit4” “3”)
(setq b “3”)
)
)
);end defun
; Проверка введенных данных на возможность геометрического по-
; строения
(defun check_dat ()
(setq h (get_tile “edit1”)) ;
(setq L (get_tile “edit2”))
(setq r (get_tile “edit3”))
(setq b (get_tile “edit4”))
(if (or (<= (atof h) (* 2.0 (atof r)))
(<= (atof h) 0) (< (atof r) 0) (<= (atof b) 0) (<= (atof L) 0)
(>= (* (atof r) 2.0) (atof L))
)
(progn
(if (<= (atof h) 0)
(progn
(set_tile “error” “ ОШИБКА: Надо h > 0 !!! “)
nil
)
(if (<= (atof L) 0)
(progn
(set_tile “error” “ОШИБКА: Надо L > 0 !!! “)
nil
)
(if (< (atof r) 0)

Страницы