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

UptoLike

ВУЗ: 

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

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

Рубрика: 

44
(setq what_next (start_dialog)); Начинает диалог в диалоговом
; окне.
(if (= what_next 4)
(progn
(setq pt1 (getpoint “ ”)); запрос точки вставки чертежа в графи-
; ческом поле
(setq x_pt (rtos (car pt1) 2 4))
(setq y_pt (rtos (cadr pt1) 2 4))
)
);end if
); end while
(unload_dialog dcl_id); выгрузка DCL-файла.
(if (/= what_next 0)
(progn
(setq h (atof h)) (setq L (atof L)) (setq r (atof r)) (setq b
; (atof b))
(setq x_pt (atof x_pt)) (setq y_pt (atof y_pt))
(setq pt1 (list x_pt y_pt)) ; точка вставки чертежа
; определение вспомогательных точек
(setq p2 (polar pt1 0 (/L 2.0)));
(setq p21 (polar p2 (/ PI 2.0) b))
(setq pt11 (polar pt1 0 r))
(setq pt12 (polar pt1 (/ pi 2.0) r))
(setq p3 (polar (polar pt1 0 b) (/ pi 2) b))
(setq p31 (polar p3 0 r))
(setq p32 (polar p3 (/ pi 2.0) r))
(setq p4 (polar pt1 (/ PI 2.0) (/ (+ h b b) 2.0)))
(setq p41 (polar p4 0 b))
(setq pc (polar (polar pt1 0 r) (/ PI 2.0) r))
(setq pc1 (polar (polar p3 0 r) (/ PI 2.0) r))
(_$mark “$COIL”); задание начала набора $COIL (см. в фай-
; ле acad.lsp)
(_$mark “$COIL1”); задание начала набора $COIL1 (см. в
; файле acad.lsp)
(if (= r 0)
(progn

Страницы