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

UptoLike

ВУЗ: 

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

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

Рубрика: 

43
(setvar “CMDECHO” 0);
; сохранение текущей объектной привязки в переменной
(setq old_osmode (getvar “OSMODE”))
(setvar “OSMODE” 0); отключение объектной привязки
; “обнуление” всех переменных, участвующих в диалоговом окне
(setq h nil L nil R nil x_pt nil y_pt nil b nil)
(if (< (setq dcl_id (load_dialog “COIL”)) 0) (exit)); загрузка DCL-
; файла диалога и досрочный выход из программы, если dcl_id об-
; ращается в 0,
; т. е. файл не найден
(setq what_next 6)
(while (< 2 what_next)
(if (not (new_dialog “COIL” dcl_id)) (exit)); досрочный выход из
; про граммы в случае неудачного завершения функции
(defaults); вызов функции задания исходных значений по умол-
; чанию
(setq x (dimx_tile “cir_image”) ; определяет ширину и высоту изоб-
; ражения
y (dimy_tile “cir_image”))
(start_image “cir_image”); запуск процесса создания изображе-
; ния в поле
(slide_image 0 0 x y “COIL”); отображает слайд COIL.sld в окне
; диалога
(end_image); завершение создания изображения
(action_tile “accept” “(check_dat)”); при нажатии клавиши “ОК” –
; вызов функции; проверки введенных данных
(action_tile “cancel” “(done_dialog 0)”); при нажатии клавиши
; “Cancel” завершение диалога (отмена диалогового окна)
(action_tile “edit1” “(setq h $value)”); присвоение значений полям
(action_tile “edit2” “(setq L $value)”)
(action_tile “edit3” “(setq R $value)”)
(action_tile “edit4” “(setq b $value)”)
(action_tile “pick_pt” “(done_dialog 4)”); завершение диалога без
; его отмены
(action_tile «x_pt» “(do_x_pt)”); присвоение полям X и Y введен-
; ных значений
(action_tile “y_pt” “(do_y_pt)”)

Страницы