Программирование в AutoCad. Салова И.А. - 40 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

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

Рубрика: 

40
; Функция отображает введенные значения в соответствующих полях
; диалогового окна, либо устанавливает исходные значения по умолча
; нию.
(defun defaults()
(if x_pt
(set_tile “x_pt” x_pt)
(progn
(set_tile “x_pt” (rtos 0.0000 2))
(setq x_pt (rtos 0.0000 2))
);end progn
);end if
(if y_pt
(set_tile “y_pt” y_pt)
(progn
(set_tile “y_pt” (rtos 0.0000 2))
(setq y_pt (rtos 0.0000 2))
)
)
(if h ; поле Высота
(set_tile “edit1” h)
(progn ; по умолчанию
(set_tile “edit1” “40”)
(setq h “40”)
)
)
(if L ; поле Ширина
(set_tile “edit2” L)
(progn ; по умолчанию
(set_tile “edit2” “30”)
(setq L “30”)
)
)
(if r ; поле Радиус сопряжения
(set_tile “edit3” r)
(progn ; по умолчанию
(set_tile “edit3” “3”)

Страницы