Группы пользователей Autodesk


Назначение действий элементам окна - часть 2


(setq plineStyle "Light")

Рассмотрим еще один фрагмент кода. Следующее выражение action_tile присвоено кнопке «OK»:

(action_tile

"accept"

(strcat "(progn (setq tileRad (atof (get_tile \"gp_trad\")))"

"(setq tileSpace (atof (get_tile \"gp_spac\")))"

"(done_dialog) (setq UserClick T))"

)

При нажатии кнопки "OK" длинная строка, назначенная кнопке, передается в AutoCAD и преобразуется в следующий код на AutoLISP:

(progn

(setq tileRad (atof (get_tile "gp_trad")))

(setq tileSpace (atof (get_tile "gp_spac")))

(done_dialog)

(setq UserClick T)

)

Код выполняет несколько действий. Он извлекает текущие значения элементов диалогового окна с ключевыми значениями gp_trad (радиус плитки) и gp_spac(расстояние между плитками). Затем с помощью функции atof строка чисел преобразуется в вещественное число. Функция done_dialog прерывает работу диалогового окна, и переменной UserClick присваивается значение T (истина).

Кнопкам диалогового окна назначены действия. Следующий этап заставить их работать.

 




Начало  Назад  Вперед



Книжный магазин