Загрузка файла диалогового окна
| Создание проекта и добавление элементов интерфейса
|
| ||||
| Загрузка файла диалогового окна |
| ||||
| В программе сначала необходимо загрузить файл DCL с помощью функции load_dialog. Эта функция производит поиск файла диалогового окна в папках доступа к вспомогательным файлам AutoCAD, если путь для него не задан явно при вызове функции.
Каждому вызову функции load_dialog должен соответствовать вызов функции unload_dialog, который должен выполняться ниже в тексте программы. Скоро мы это увидим. Сейчас же рассмотрим, как осуществляется загрузка диалогового окна: ;; Load the dialog box. Set up error checking to make sure ;; the dialog file is loaded before continuing (if (= -1 (setq dcl_id (load_dialog "gpdialog.dcl"))) (progn ;; There's a problem - display a message and set the ;; dialogLoaded flag to nil (princ "\nCannot load gpdialog.dcl") (setq dialogLoaded nil) ) ;_ end of progn ) ;_ end of if Переменная dialogLoaded указывает, что диалоговое окно было успешно загружено. В коде программы, где задавались исходные значения для диалогового окна, переменной dialogLoaded было присвоено начальное значение T. Во фрагменте, описанном выше, переменной dialogLoaded присваивается значение nil в случае возникновения проблем с загрузкой окна.
|
