23 Разработка пользовательского интерфейса на языке dcl. Разработка диалогового окна. Основные элементы интерфейса.

В автокаде существует возможность разработать для пользовательской функции интерфейс на языке DCL для этого нужно написать код в текстовом редакторе и сохранить документ с расширением .dcl

Пример:

third:dialog{

label = "This is last dialog box";

:boxed_row

{

:button

{

key = "accept";

label = "Paint";

is_default = true;

}

:button

{

key = "Cancel";

label = "Cancel";

is_default = false;

}

}

}

КЛАВИША button

Текстовое Поле edit_box

Поле списка list_box

Раскрывающийся список popup_box

Кнопка выбора rado_button

Скользящая шкала slider

24 Разработка пользовательского интерфейса на языке dcl. Взаимодействие с lisp приложениями. Обработка событий

Для того чтобы связать интерфейс dcl с функцией, разработанной в лиспе, нужно в dcl присвоить входным параметрам какие-то ключи, которые в дальнейшем будут использованы в Lisp

Связь с dcl в lisp происходит так:

(setq dcl_id (load_dialog "d:/my_dialog.dcl"))

(if (not (new_dialog "first" dcl_id) ) (exit))

(set_tile "eb1" gpar1)

(set_tile "eb2" gpar2)

(set_tile "eb3" gpar3)

(set_tile "eb4" gpar4)

(set_tile "eb5" gpar5)

Выгрузка диалогового окна:

(unload_dialog dcl_id)

Обработка события нажатия на кнопку:

(defun OK_click1 ()

(setq r1 (atof (get_tile "eb1")))

(done_dialog)

)

25 Понятие системной переменной AutoCad. Использование и редактирование

Переменные STARTUP, FILEDIA, OSMODE, CLAYER

Во время работы с рисунком AutoCAD оперирует так называемыми системными переменными, в которые заносится определенная информация: о текущих установках рисования (установках слоя, цвета, типа линий и т. п.), о последнем выполненном действии (имя последней команды, последняя точка, последний радиус и т. п.), о настройках некоторых команд (длина фаски, радиус сопряжения и т. п.) и многое другое. Пользователь может вывести на экран перечень и значения системных переменных и большую часть из них изменить. Остальные изменяются самой системой в процессе работы. 

Для работы с системными переменными предназначена команда SETVAR (УСТПЕРЕМ). Этой же команде соответствует пункт падающего меню Tools | Inquiry | Set Variable (Сервис Сведения | Переменная).  Первый запрос, который выдает команда после начата своего выполнения:   Enter variable name or [?]: (Имя переменной или /?/:)  В этот момент можно ввести или имя системной переменной, которую вы хотите изменить, или знак вопроса ? для получения справки. Введите знак вопроса. Далее:  Enter variable(s) to list < *>: (Список переменных для вывода < *>:)  Система AutoCAD готова в этот момент вывести в текстовое окно значения тех переменных, имена которых вы укажете. Возможен ввод имен с использованием групповых символов * и ?. Например, можно указать А* — чтобы вывести значения переменных, начинающихся с символа А, или DIM*T — для вывода переменных, имена которых начинаются с DIM и заканчиваются на Т. После указания только символа * система AutoCAD выводит в текстовое окно первую часть всех системных переменных. STARTUP -Управление типом окна при создании новых рисунков

CLAYER – текущий слой

DIMASSOC <2,1,0>

ACADVER – текущая версия автокада

FILEDIA - Режим использования диалоговых окон выбора файлов

OSMODE – Объектная привязка

0 – нет

1 – конточка

2 – Середина