I. Текст функции trap

(defun c:trap()

(setq a nil b nil h nil)

(setq v (getint "Введите тип параметров(0-стандартный, иначе-нестандартный):"))

(if (/= v 0)

(setq a (getreal "Введите a:")

222

b (getreal "Введите b:") h (getreal "Введите h:"))

)

(if (= v 0)

(progn

(setq fl (open "С:\\AutoCAD\\support\\trap.dat" "r") sp nil dl nil)

(while (setq dl (read-line fl)) (setq sp (cons (read dl) sp)) )

(close fl)

(setq sp (reverse sp) fl nil)

(mas "Введите типоразмер трапеции" 0 sp)

(setq a (nth 1 mas1) b (nth 2 mas1) h (nth 3 mas1))

)

)

(setq pp (getpoint "введите точку привязки"))

(setq u (getreal "введите угол"))

(setq u (* u (/ pi 180)) d (* 0.5 (- b a)) fi (atan (/ h d)) )

(setq ps (polar pp (+ u (* 1.5 pi)) (* 0.5 h))

p1 (polar ps (+ u pi) (* 0.5 b))

p2 (polar p1 (+ u fi) (/ h (sin fi)))

p3 (polar p2 u a)

p4 (polar p3 (+ u (- (* 2 pi) fi)) (/ h (sin fi)))

pa1 (polar pp (+ u pi) (* 0.6 (+ a b)))

pa2 (polar pp u (* 0.6 (+ a b)))

pb1 (polar pp (+ u (* 1.5 pi)) (* 0.8 h))

pb2 (polar pp (+ u (* 0.5 pi)) (* 0.8 h))

)

(setq currsl (getvar "clayer"))

(command "layer" "m" "trp" "c" "white" "" "l" "continuous" "" "s" "trp" ""

"line" p1 p2 p3 p4 "c"

"layer" "m" "osi" "c" "magenta" "" "l" "center" "" "s" "osi" ""

"line" pa1 pa2 ""

"layer" "m" "osi" "c" "magenta" "" "l" "center" "" "s" "osi" ""

"line" pb1 pb2 ""

"layer" "s" currsl "" "redraw"

)

)

223

II. Текст функции orth

(defun c:orth()

(setq a nil b nil)

(setq v (getint "Введите тип параметров(0-стандартный,

иначе-нестандартный):"))

(if (/= v 0)

(setq a (getreal "Введите a:") b (getreal "Введите b:"))

)

(if (= v 0)

(progn

(setq fl (open "С:\\AutoCAD\\support\\orth.dat" "r") sp nil dl nil)

(while (setq dl (read-line fl)) (setq sp (cons (read dl) sp)) )

(close fl)

(setq sp (reverse sp) fl nil)

(mas "Введите типопараметры прямоугольника" 0 sp)

(setq a (nth 1 mas1) b (nth 2 mas1))

))

(setq pp (getpoint "Введите точку привязки"))

(setq u (getreal "Введите угол привязки"))

(setq u (* u (/ pi 180)))

(setq ps (polar pp (+ u (* 1.5 pi)) (* 0.5 b))

p1 (polar ps (+ u pi) (* 0.5 a))

p2 (polar p1 (+ u (* 0.5 pi)) b)

p3 (polar p2 u a)

p4 (polar p3 (+ u (* 1.5 pi)) b)

pa1 (polar pp (+ u (* 1.5 pi)) (* 0.6 b)) ;

pa2 (polar pp (+ u (* 0.5 pi)) (* 0.6 b))

pb1 (polar pp (+ u pi) (* 0.6 a)) ;

pb2 (polar pp u (* 0.6 a))

)

(setq currsl (getvar "clayer"))230

(command

"layer" "m" "orth" "c" "white" "" "l" "continuous" "" "s" "orth" ""

"line" p1 p2 p3 p4 "c"

"layer" "m" "osi" "c" "magenta" "" "l" "center" "" "s" "osi" ""

"line" pa1 pa2 "" "line" pb1 pb2 ""

"layer" "s" currsl ""

"redraw" ))

224

III.Текст вспомогательной функции mas

(defun mas (textinf a x)

(setq c 0 mas1 nil)

(while (= mas1 nil)

(princ "\n") (princ textinf) (princ "<") (princ a) (princ ">:")

;ввод параметра

(setq param (getint))

(if (= param nil) (setq param a))

(foreach n x (if (= (nth c n) param) (setq mas1 n)))

(if (= mas1 nil) (princ "\неверное значение"))

)

)

IV. Текст пакетного файла trap.dat

(N a b h)

(0 40 20 20)

(1 50 20 10)

(2 50 30 10)

(3 70 40 20)

(4 30 60 15)

V. Текст пакетного файла orth.dat

(N a b)

(0 40 30)

(1 50 40)

(2 60 40)

(3 60 50)

(4 70 50)

225

Порядок выполнения и примерные темы курсовых работ

I. Построить для указанных ниже типов подшипников гра-фическую базу данных (ГБД) на языке AutoLisp для системы AutoCAD. ГБД должна обеспечивать следующие возможности.

1. Вычерчивание схематического двухмерного изобра-жения подшипника в осевой плоскости. В верхней части изображения дается сечение с показом дорожек, тела качения и других элементов (защитных шайб и т. д. - при их наличии), все элементы, за исключением тела качения, по-казать штриховкой. В нижней части изображения поместить габаритный прямоугольник.

2. Вычерчивание всех типоразмеров данного типа под-шипника:

а) в заданном месте чертежа;

б) в заданном угловом положении;

в) в заданном масштабе.

Ось привязки совпадает с осью подшипника, точка при-вязки – на пересечении оси с крайней левой вертикальной линией изображения.

3. Запросы и ответы о типоразмере подшипника, пара-метрах вставки и масштабе изображения производятся в диалоговом режиме.

4. Запрос о вычерчивании оси подшипника (да / нет).

5. Включение в падающее меню AutoCAD 2000.

6. Включение в графическое меню AutoCAD 2000.

Варианты заданий

1. Шарикоподшипники радиальные однорядные типов 60000 (с одной защитной шайбой) и 80000 (с двумя защитными шайбами).

226

2. Шарикоподшипники радиальные однорядные типов 1000080 (сверхлегкая серия диаметров 8, серия ширин 1), 1000090 (сверхлегкая серия диаметров 9, серия ширин 1).

3. Шарикоподшипники радиальные однорядные типов 7000000 (особо легкая серия диаметров 1, серия ширин 7), 100 (особо легкая серия диаметров 1, серия ширин 0).

4. Шарикоподшипники радиальные однорядные типов 200 (легкая серия диаметров 2, серия ширин 0), 300 (средняя серия диаметров 3, серия ширин 0).

5. Шарикоподшипники радиальные однорядные типов 400 (тяжелая серия диаметров 4, серия ширин 0), 500.

6. Шарикоподшипники радиальные двухрядные сфери-ческие типов 1000, 1200, 11200, 111200 (легкая серия), 1500, 11500, 111500 (легкая широкая серия).

7. Шарикоподшипники радиальные двухрядные сфери-ческие типов 1300, 11300, 111300 (средняя серия), 1600, 11600, 111600 (средняя широкая серия).

8. Роликоподшипники радиальные с короткими цилинд-рическими роликами однорядные типов 1002900, 1032900 (сверхлегкая серия), 2100, 32100 (особо легкая серия).

9. Роликоподшипники радиальные с короткими цилиндри-ческими роликами однорядные типов 2200, 12200, 32200, 42200, 92200 (легкая серия), 2500, 32500 (легкая широкая серия).

10.Роликоподшипники радиальные с короткими цилинд-рическими роликами однорядные типов 2300, 12300, 32300, 42300, 62300, 92300 (средняя серия), 2600, 12600, 32600, 42600, 52600, 62600, 92600 (средняя широкая серия), 2400, 32400, 42400, 62400, 92400 (тяжелая серия).

11.Роликоподшипники радиальные с короткими цилинд-рическими роликами однорядные без внутреннего или наружного кольца типов 292000, 502000 (легкая и средняя серии).

12.Роликоподшипники радиальные с короткими цилинд-рическими роликами двухрядные типов 318200, 3282000.

227

13. Роликоподшипники радиальные сферические двух-рядные типов 3003100, 3113100 (особо легкая серия), 3500, 113500, 13500 (легкая широкая серия).

14. Роликоподшипники радиальные сферические двух-рядные типов 3600, 113600, 13600 (средняя широкая серия).

15. Роликоподшипники радиальные игольчатые бессепара-торные с массивными кольцами типов 74000, 24000 (всех серий).

16.Роликоподшипники радиальные игольчатые со штам-пованным наружным кольцом тип 940 (все серии).

17. Шарикоподшипники радиально-упорные однорядные со скосом на одном из колец типов 36000, 46000, 66000 (все серии).

18. Шарикоподшипники радиально-упорные сдвоенные ти-пов 236000, 246000, 266000 (все серии).

19. Шарикоподшипники радиально-упорные сдвоенные ти-пов 336000, 346000, 366000 (все серии).

20. Шарикоподшипники радиально-упорные сдвоенные ти-пов 436000, 446000, 466000 (все серии).

21. Роликоподшипники радиально-упорные конические од-норядные типов 2007000, 7000 (все серии).

22. Роликоподшипники радиально-упорные конические од-норядные с большим углом конусности типов 27000, 1027000.

23. Роликоподшипники радиально-упорные конические двухрядные типов 2097900, 1097900 (сверхлегкая серия диа-метров 9), 2097100, 97100 (особо легкая серия диаметров 1).

24. Роликоподшипники радиально-упорные коничес-кие двухрядные типов 2097700, 1097700 (особо легкая серия диаметров 7), 97500 (легкая серия диа-метров 5).

25. Шарикоподшипники упорные одинарные тип 8000 (все серии).

26. Шарикоподшипники упорные двойные тип 38000 (все серии).

228

27. Роликоподшипники упорные сферические тип 9039000 (все серии).

28. Подшипники шарнирные тип Ш, 2Ш, ШМ, 2ШМ, ШС, 2ШС (все серии).

II. Для типов подшипников, указанных в I, построить ГБД трехмерных объектов на языке AUTOLISP для системы AutoCAD 2000. ГБД должна обеспечивать следующие возможности.

1. Создание трёхмерного объекта (подшипника). По запро-сам – поперечные или продольные сечения.

2. Встраивание всех типоразмеров подшипников заданного типа:

а) в определённой точке пространственной конструкции;

б) в заданном положении;

в) в заданном масштабе.

Параметры привязки – те же, что и у двухмерных изо-бражений.

Пункты 3)-6) выполнить аналогично I.