САПР — Отчет.Сибирев

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

ПЕРМСКИЙ НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра ИТАС

КУРСОВАЯ РАБОТА

по предмету «Системы Автоматизированного Проектирования»Вариант №24

Выполнил:студент группы АСУ-09сзСибирев В.В.

Проверил:Костарев С.Н.

Пермь 2014

Оглавление

1.Постановка задачи3

2.Прорисовка чертежа в AutoCAD4

3.Скрипт прорисовки5

4.Заключение9

5.Список литературы10

Постановка задачи

Разработать скрипт AutoLISP автоматизированного проектирования детали Опора.

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

Исходный чертёж с заданием приведён на рисунке 1.

Рисунок 1 – Исходный чертеж

Прорисовка чертежа в AutoCAD

Прорисовка чертежа средствами AutoCad производилась из командной строки. Использовались команды построения линии, написания текста, проставления размеров. Так же использовались команды задания типов линий и шрифтов.

Полученный чертёж приведён на рисунке 2.

Рисунок 2 – Полученный чертеж.

Скрипт прорисовки

Для прорисовки чертежа используется скрипт AutoLISP, текст которого приведен ниже:

(progn

(command «_-osnap» «_off»)

(setq ; Установка размеров Опоры

A1 108.0

A2 50.0

A3 88.0

B1 60.0

B2 34.0

B3 25.0

B4 22.0

B5 40.0

C1 50.0

C2 20.0

D1 18.0

E1 14.0

E2 15.0

F1 32.0

F2 7.0

F3 40.0

F4 40.0

o_ofset 3 ; выход за границы для осевой линии

v_offset 30 ; расстояние между видами

dim_offset 7 ; отступ сносок

)

(command «_limits» «_off»)

(command «_zoom» «_w» limits_1 limits_2)

(command «_erase» «_all» «»)

; Расчет точек

(setq ; Вычисляемые константы

delta1_x (/ (- A1 B1) 2)

delta1_y (- A3 B5)

delta2 (/ (- A1 C1) 2)

delta3_1 (* delta1_x (/ B4 delta1_y))

delta3 (+ delta3_1 (/ (- B1 B2) 2))

delta4 (/ (- A1 C1) 2)

delta5_1 (* delta1_x (/ F3 delta1_y))

delta5 (+ delta5_1 (/ (- B1 F4) 2))

delta6_1 (* delta1_x (/ (- F3 F2) delta1_y))

delta6 (+ delta6_1 (/ (- B1 F4) 2))

delta7 (/ A1 2)

delta8 (- A3 C2)

delta9 (/ (- A2 B3) 2)

delta10 (- A3 C2 F3)

delta11 (- F3 F2)

)

(setq ; Главный вид. Расчет точек

; Контур

lp0 ‘(0 0)

lp1 (polar lp0 (/ Pi 2) B5)

lp2 (list (+ (car lp1) delta1_x) (+ (car (cdr lp1)) delta1_y) 0)

lp3 (polar lp2 0 b1)

lp4 (list (+ (car lp3) delta1_x) (- (car (cdr lp3)) delta1_y) 0)

lp5 (polar lp4 (* Pi 1.5) B5)

lp6 (polar lp5 Pi delta2)

lp7 (polar lp6 (/ Pi 2) C2)

lp8 (polar lp7 Pi C1)

lp9 (polar lp8 (* Pi 1.5) C2)

lp10 (list (- (car lp2) delta3_1) (- (car (cdr lp2)) B4) 0)

lp11 (polar lp10 0 delta3)

lp12 (polar lp11 (/ Pi 2) B4)

lp20 (list (+ (car lp3) delta3_1) (- (car (cdr lp2)) B4) 0)

lp21 (polar lp20 Pi delta3)

lp22 (polar lp21 (/ Pi 2) B4)

; Невидимые линии

li0 (list (car lp0) (+ (car (cdr lp0)) E2) 0)

li1 (polar li0 0 delta4)

li2 (list (car lp5) (+ (car (cdr lp5)) E2) 0)

li3 (polar li2 Pi delta4)

li10 (list (- (car lp2) delta5_1) (- (car (cdr lp2)) F3) 0)

li11 (polar li10 0 delta5)

li12 (polar li11 (/ Pi 2) F2)

li13 (polar li12 Pi delta6)

li20 (list (+ (car lp3) delta5_1) (- (car (cdr lp3)) F3) 0)

li21 (polar li20 Pi delta5)

li22 (polar li21 (/ Pi 2) F2)

li23 (polar li22 0 delta6)

li30 (list (- delta7 (/ D1 2)) (car (cdr lp8)) 0)

li31 (polar li30 (/ Pi 2) delta8)

li32 (list (+ delta7 (/ D1 2)) (car (cdr lp8)) 0)

li33 (polar li32 (/ Pi 2) delta8)

; Осевые линии

lo0 (list delta7 (- (car (cdr lp8)) o_ofset) 0)

lo1 (polar lo0 (/ Pi 2) (+ delta8 (* o_ofset 2)))

)

(setq ; Вид слева. Расчет точек

; Контур

rp0 (list (+ (car lp0) A1 v_offset) (car (cdr lp0)) 0)

rp1 (polar rp0 (/ Pi 2) A3)

rp2 (polar rp1 0 A2)

rp3 (polar rp2 (* Pi 1.5) A3)

rp4 (polar rp3 Pi (/ (- A2 E1) 2))

rp5 (polar rp4 (/ Pi 2) E2)

rp6 (polar rp5 Pi E1)

rp7 (polar rp6 (* Pi 1.5) E2)

rp8 (polar rp0 (/ Pi 2) B5)

rp9 (polar rp8 0 A2)

rp10 (list (car rp1) (- (car (cdr rp1)) B4) 0)

rp11 (polar rp10 0 delta9)

rp12 (polar rp11 (/ Pi 2) B4)

rp13 (list (car rp2) (- (car (cdr rp2)) B4) 0)

rp14 (polar rp13 Pi delta9)

rp15 (polar rp14 (/ Pi 2) B4)



rp20 (list (+ (car rp1) (/ (- A2 F1) 2)) (- (car (cdr rp1)) F3) 0)

rp21 (polar rp20 0 F1)

rp22 (polar rp21 (/ Pi 2) F2)

rp23 (polar rp22 Pi F1)

; Невидимые линии

ri0 (polar rp0 (/ Pi 2) C2)

ri1 (polar ri0 0 A2)

ri10 (polar ri0 0 (/ (- A2 D1) 2))

ri11 (polar ri10 (/ Pi 2) delta10)

ri12 (polar ri10 0 D1)

ri13 (polar ri12 (/ Pi 2) delta10)

ri14 (polar ri11 (/ Pi 2) F2)

ri15 (polar ri14 (/ Pi 2) delta11)

ri16 (polar ri13 (/ Pi 2) F2)

ri17 (polar ri16 (/ Pi 2) delta11)

; Осевые линии

ro0 (list (+ (car rp1) (/ A2 2)) (+ (car (cdr rp1)) o_ofset) 0)

ro1 (polar ro0 (* Pi 1.5) (+ (- A3 C2) (* o_ofset 2)))

)

; Прорисовка

(command «_-linetype» «_s» «_ByLayer» «»)

(command «_-lweight» «0.3″)

; Основные линии

(command «_line» lp0 lp1 lp2 lp3 lp4 lp5 lp6 lp7 lp8 lp9 «З»)

(command «_line» lp10 lp11 lp12 «»)

(command «_line» lp20 lp21 lp22 «»)

(command «_line» rp0 rp1 rp2 rp3 rp4 rp5 rp6 rp7 «З»)

(command «_line» rp8 rp9 «»)

(command «_line» rp10 rp11 rp12 «»)

(command «_line» rp13 rp14 rp15 «»)

(command «_line» rp20 rp21 rp22 rp23 «З»)

; Невидимые линии

(command «_-linetype» «_s» «ACAD_ISO03W100″ «»)

(command «Ltscale» «0.30″)

(command «_line» li0 li1 «»)

(command «_line» li2 li3 «»)

(command «_line» li10 li11 li12 li13 «»)

(command «_line» li20 li21 li22 li23 «»)

(command «_line» li30 li31 «»)

(command «_line» li32 li33 «»)

(command «_line» ri0 ri1 «»)

(command «_line» ri10 ri11 «»)

(command «_line» ri12 ri13 «»)

(command «_line» ri14 ri15 «»)

(command «_line» ri16 ri17 «»)

; Осевые линии

(command «_-linetype» «_s» «ACAD_ISO10W100″ «»)

(command «Ltscale» «1″)

(command «_line» lo0 lo1 «»)

(command «_line» ro0 ro1 «»)

; Сноски

(command «_-linetype» «_s» «_ByLayer» «»)

(command «_-lweight» «0.15″)

(command «_dim» «_hor» lp0 lp5 (polar lp0 (* Pi 1.5) (* dim_offset 2)) «» «_exit»); A1

(command «_dim» «_hor» rp0 rp3 (polar rp0 (* Pi 1.5) dim_offset) «» «_exit») ; A2

(command «_dim» «_ver» lp5 lp3 (polar lp5 0 (* dim_offset 2)) «» «_exit») ; A3

(command «_dim» «_hor» lp2 lp3 (polar lp2 (/ Pi 2) (* dim_offset 2)) «» «_exit») ; B1

(command «_dim» «_hor» lp12 lp22 (polar lp12 (/ Pi 2) dim_offset) «» «_exit») ; B2

(command «_dim» «_hor» rp12 rp15 (polar rp12 (/ Pi 2) dim_offset) «» «_exit») ; B3

(command «_dim» «_ver» lp20 lp3 (polar lp20 0 dim_offset) «» «_exit») ; B4

(command «_dim» «_ver» rp0 rp8 (polar rp0 Pi dim_offset) «» «_exit») ; B5

(command «_dim» «_hor» lp6 lp9 (polar lp6 (* Pi 1.5) dim_offset) «» «_exit») ; C1

(command «_dim» «_ver» lp5 lp7 (polar lp5 0 dim_offset) «» «_exit») ; C2

(command «_dim» «_hor» li30 li32 (polar li30 (* Pi 1.5) dim_offset) «» «_exit») ; D1

(command «_dim» «_hor» rp5 rp6 (polar rp5 (/ Pi 2) dim_offset) «» «_exit») ; E1

(command «_dim» «_ver» rp4 rp5 (polar rp4 0 dim_offset) «» «_exit») ; E2

(command «_dim» «_hor» rp22 rp23 (polar rp22 (/ Pi 2) dim_offset) «» «_exit») ; F1

(command «_dim» «_ver» rp21 rp22 (polar rp21 0 (+ dim_offset (/ (- A2 F1) 2))) «» «_exit»);F2

(command «_dim» «_ver» rp2 rp21 (polar rp2 0 (* dim_offset 2)) «» «_exit») ; F3

(command «_dim» «_hor» li11 li21 (polar li11 (* Pi 1.5) dim_offset) «» «_exit») ; F4

)



Страницы: 1 | 2 | Весь текст


Предыдущий:

Следующий: