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

UptoLike

ВУЗ: 

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

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

Рубрика: 

42
(progn
(set_tile “error” “ ОШИБКА: Надо r >= 0 !!! “)
nil
)
(if (<= (atof b) 0)
(progn
(set_tile “error” “ ОШИБКА: Надо b > 0 !!! “)
nil
)
(if (>= (* (atof r) 2.0) (atof L))
(progn
(set_tile “error” “ ОШИБКА: Надо L > 2*r !!! “)
nil
)
(if (<= (atof h) (* 2.0 (atof r)))
(progn
(set_tile “error” “ “ ОШИБКА: Надо h > 2*r !!! “)
nil
)
);end if
);end if
);end if
);end if
);end if
);end if
);end progn
(progn ; ошибок нет
(rs_error) ; очистка поля ошибки диалогового окна
(done_dialog 1) ; завершение диалога
(setq what_next 1)
)
); end if
);end defun check_dat
(defun C:COIL (); основная функция
; Отключение эхо-вывода (запросы команд и ответы на них не
; отображаются на экране

Страницы