Курсовая работа: Сборочный чертеж в AutoCAD

P0 (GETPOINT "\n Введите базовую точку Р0 >: ")

D1 (GETREAL "\n Введите диаметр посадочного отверстия D1 >: ")

D2 (GETREAL "\n Введите диаметр валика D2 >: ")

D3 (GETREAL "\n Введите диаметр выступа D3 >: ")

D4 (GETREAL "\n Введите диаметр внутреннего отверстия D4 >: ")

L1 (GETREAL "\n Введите длину крышки L1 >: ")

L2 (GETREAL "\n Введите высоту внутреннего отверстия L2 >: ")

L3 (GETREAL "\n Введите ширину буртика L3 >: ")

)

)

Для работы с данными и их параметрами используется стандартная подпрограмма setq . Строка (SETQ P0 (GETPOINT "\n Введите базовую точку Р0 >: ") будет выполнена следующим образом. В командной строке выведется строка с запросом "Введите первую точку Р0:", при указании точки ее координаты будут сохранены в памяти под названием Р0 . Следующая строка присваивает переменной D1 численное значение, введенное с клавиатуры и т.д., после чего идет закрытие функций круглыми скобками.

Построение крышки подшипника будет выполняться с помощью примитива полилиния. Для этого нам надо знать координаты всех точек, их нахождение будет выполнено в функции par :

(defun par ()

(SETQ

PI2 (/ PI 2)

P01 (POLAR P0 0.0 L1)

P1 (POlAR P0 PI2 (/ D1 2))

P2 (POlAR P0 PI2 (/ D2 2))

P3 (POlAR P2 0.0 L3)

P4 (POlAR P3 ( - PI2) (/ ( - D2 D3) 2))

P5 (POlAR P4 0.0 ( - L1 L3))

P6 (POLAR P5 ( - PI2) (/ ( - D3 D4) 2))

P7 (POLAR P6 PI L2)

P8 (POlAR P7 ( - PI2) (/ ( - D4 D1) 2))

)

)

Следующая точкаP1 будет рассчитана посредством команды P1 ( POlAR P0 PI2 (/ D1 2)), что означает: P1 - следующая точка; polar - полярная система координат; Р0 - точка относительно которой будет происходить расчет; PI - направление, которое задается углом.

Само построение крышки выполняется в функции grq ():

(defun grq ()