Системы автоматизированного конструирования. Толстоба Н.Д. - 44 стр.

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

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

Рубрика: 

43
)
; Исходная инициализация ключей в зависимости от введенных параметров
(on_type_os)
(setq what_next 8)
(while (< 2 what_next)
(action_tile "accept" "(done_dialog 1) (ok_tab)")
(action_tile "tog1" "(setq on_tog1 $value)")
(action_tile "tog2" "(setq on_tog2 $value)")
(setq what_next (start_dialog))
)
(unload_dialog dcl_id) ; Unload the DCL file
(setq relst ret_value1)
)
Кнопки с изображением
В примере с кнопками-иллюстрациями ситуация еще интереснее. Необходимо создать
слайды, которые будут использоваться на кнопке. Слайды создаются так: Рисуете на поле
чертежа что-нибудь. Вводите команду mslide - вводите имя файла-слайда. Все! Слайд готов.
Для отображения в окне ACAD необходимо ввести команду vslide. Тогда слайд временно
выведется на рабочее поле.
Размеры изображения задаются в DCL-файле, и еще изображение надо
инициализировать в лисп-файле - см. пример. А обработка производится также, кк и
обработка кнопок.
Диалог
dd_imgbutton : dialog {label = "Тестирование кнопок с изображением";
: boxed_row {label ="Sizes"; fixed_height = true;
:image_button{color = 0; height = 1.5; width = 6; aspect_ratio = 0.36; fixed_height = true;
fixed_width = true; alignment = center; key = "btn1";}
:image_button{color = 0; height = 1.5; width = 6; aspect_ratio = 0.36; fixed_height = true;
fixed_width = true; alignment = center; key = "btn2";}
}
: row {cancel_button;}
}
Рис 11. Пример диалога для панели с картинками-кнопками
Программа
(defun dd_imgbtn ( / dcl_id what_next)

Страницы