Page 70 - AutoLISP и Visual LISP в среде AutoCAD

(setq R (pic)) ; ТОГДА вызвать функцию pic
);if
);while
;Конец главного цикла
(unload_dialog dcl_id) ;Выгружем диалог
(prin1) ; "тихое" завершение функции
);DIST
; Выводим сообщение о переопределении команды DIST
(prompt "Команда DIST переопределена.")
(prin1)

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

Рис. 5. Диалог

В программе предусмотрен механизм скрытия диалогового окна, в
моменты использования функций ввода (getpoint) в режиме графического
экрана AutoCad. Временное закрытие окна происходит при выборе кнопки
"Указать точки". После указания точек окно восстанавливается, и в
элементах управления отображаются соответствующие сведения о
координатах выбранных точек и расстояниии между ними. Кроме этого, в
программе реализована возможность восстановления диалогового окна на
экране AutoCad в той позиции, в которой оно было скрыто (использован
дополнительный параметр точка функции new_dialog и значение,
возвращаемое функций done_dialog).

69