Составители:
Рубрика:
50
Приложение Г. Задание «Параметрический чертеж оправы»
Написать программу, отображающую заданную оправу
на поле чертежа в указанной точке. Размеры оправы должны
вводиться в программу пользователем.
Программа должна состоять как минимум из двух
подпрограмм: программы ввода данных и программы
параметрического рисования оправы. Оправу отображать без
масштабирования
Приложение Д. Пример выполнения задания:
«Параметрический чертеж оправы»
;---------------------------------------------------------------
; Параметрический чертеж. Блок ввода данных
;---------------------------------------------------------------
;основная функция:
(defun Try_param ( / p1 d1 d2 d3 s h )
; инициализация всех данных для рисования
(setq p1 (Getpoint "Где нарисовать?")
d1 10.0 D2 5.0 d3 15.0
s 6.0 h 12.0
)
; запуск параметрического чертежа
(DrawDetail p1 d1 d2 d3 s h)
)
(prompt "Try_param, ")
Пример задания:
;-------------------------------------------------------------------------------
; Параметрический чертеж. Блок запуска
;-------------------------------------------------------------------------------
;основная функция:
(defun DrawDetail (p1 d1 d2 d3 s h / p2 p3 p4 p5 p6 p7 x y det)
; обходим деталь по часовой стрелке
(setq
x (nth 0 p1) y (nth 1 p1)
p2 (list x (+ y (/ d2 2.0))) p3 (list x (+ y (/ d1 2.0)))
p4 (list (+ x s) (+ y (/ d1 2.0))) p5 (list (+ x s) (+ y (/ d3 2.0)))
p6 (list (+ x h) (+ y (/ d3 2.0))) p7 (list (+ x h) (+ y (/ d2 2.0)))
)
; отключение привязок
(command "_.osnap" "_none")
; рисование
(command "color" 4) ; смена цвета (для выделения толстых линий)
(command "_.pline" p2 "w" "0" "" p3 p4 p5 p6 p7 "c")
Страницы
- « первая
- ‹ предыдущая
- …
- 49
- 50
- 51
- 52
- 53
- …
- следующая ›
- последняя »
