6. Литература

1. Норенков, И.П. Основы автоматизированного проектирования:

Учебник / И.П.Норенков. – М : МГТУ, 2000. - 360с

2. Митрофанов, С.П Технологическая подготовка гибких производственных систем / С.П.Митрофанов, Д.Д.Куликов, О.Н.Миляев, Б.С.Падун; Под ред. С.П.Митрофанова. - Л.: Машиностроение, 1987.-352с.

3. Корчак, С.Н Системы автоматизированного проектирования технологических процессов, приспособлений и режущих инструментов / С.Н.Корчак, А.А.Кошин, А.Г.Ракович, Б.И.Синицын; Под ред. С.Н.Корчака. - М.: Машиностроение, 1988.- 352с.

4. Челищев, Б.Е. Автоматизация проектирования технологии в машиностроении / Б.Е.Челищев, И.В.Боброва, А.Гонсалес-Сабатер; Под ред. Н.Г.Бруевича. - М.: Машиностроение, 1987.- 264с.

5. Сафраган, Р.Э. Автоматизированная подготовка программ для станков с ЧПУ / Р.Э.Сафраган, Г.В.Евинев, П.Л.Дербин; Под ред. Р.Э.Сафрагана.-Киев : Техника, 1986.- 191с.

6. Митрофанов, В.Г. САПР в технологии машиностроения: Учебное пособие / В.Г.Митрофанов. - Ярославль: Яросл. гос. техн. ун-т, 1995- 298с.

7. Соломенцев, Ю.М. Диалоговые САПР технологических процессов /Ю.М.Соломенцев, В.Г. Митрофанов, А.Г.Схиртладзе, А.М.Басин; Под ред. Ю.М.Соломенцева. – М.: Машиностроение, 2000 – 231 с.

8. Хокс, Б. Автоматизированное проектирование и производство / Б.Хокс. –М : Мир, 1991.-296с.

9.Системы автоматизированного проектирования конструкций и технологических процессов. Методические указания к лабораторным работам в 6 частях / Б.А. Шкарин. – Вологда : ВоГТУ, 1998-2003. – 180 с.

Приложение 1

Форматы некоторых команд сапр AutoCad

Установка типа линий

(command "ТИПЛИН" "У" "N")

"У" — установить;

"N"—название типа линии, например: "сontinuous" — сплошная; "center"—осевая.

Отрезок

(сommand "ОТРЕЗОК" L1 L2 "")

L1, L2 — коодинаты начала и конца отрезка.

Полилиния

(сommand "ПЛИНИЯ" L1 L2 L3 L4 L1 "")

L1 L2 LЗ L4 L1 — координаты точек полилинии.

Окружность

(сommand "КРУГ" L1 L2)

L1, L2 — координаты центра круга и радиус круга.

Зеркальное отображение.

(сommand "ЗЕРКАЛО" "Е" "Р" W1 W2 L1 L2 "Н")

"Е" — единственный объект;

W1, W2 — координаты первого и второго угла рамки;

L1, L2 — координаты оси отражения;

"Н" — не удалять старые объекты.

Простановка линейных размеров.

(command "РАЗМЕР" "N" L1 L2 L3 ""

"РАЗМЕР" "ВЫХ")

"N" — тип размера, например: "ГОР" — горизонтальный; "ВЕР" — вертикальный.

L1, L2 — координаты точек начала выносных линий;

L3 — координата точки размерной линии.

Написание текста.

(command "ТЕКСТ" "N" W1 "H" "A" Z1)

"N" — способ центрирования текста, например: "Ц" — по центральной точке.

"H" — высота текста;

"A" — угол поворота текста;

Z — текст.

Штриховка.

(command "ШТРИХ" "N" "S" "A" L "")

"N" — код образца штриховки, например: "ansi31";

"S" — масштаб штриховки, например: "30";

"A" — угол наклона штриховки, например: "0";

L — координата точки замкнутой полилинии, ограничивающей штрихуемую область.

Приложение 2

Пример графической программы

(defun vt()

;Ввод исходных данных:

(setq bp (getpoint "\nВведите нач.точку : ")

d (getdist "\nВведите диаметр отверстия d: ")

A (getdist "\nВведите высоту ступицы A : ")

B (getdist "\nВведите высоту обода B : ")

z1 (getstring "\n Введите наименование детали : ")

z2 (getstring "\n Введите Ф.И.О. : ")

z3 (getstring "\n Введите группу : ")

)

;Вычерчиваемое изображение:

;

;

;

;

;

;

;

;

;

;

;

8 7

5

6

; Расположение точек

9 10 L1,L2,...

D1 bp d D2

12 11 ; D1=2*d+10

; D2=d+10

4

3

1 B 2 A

;Расчет диаметров D1 и D2:

(setq D1 (+ (* 2 d) 10)

D2 (+ d 10)

)

;Определение опорных точек;

(setq pi2 (/ pi 2) ; pi2 - угол /2

L1 (polar bp (* 3 pi2) (/ D1 2))

L2 (polar L1 0 B)

L3 (polar L2 pi2 (/ (- D1 D2) 2))

L4 (polar L3 0 A)

L5 (polar L4 pi2 D2)

L6 (polar L5 pi A)

L7 (polar L6 pi2 (/ (- D1 D2) 2))

L8 (polar L7 pi B)

L9 (polar L8 (* 3 pi2) (/ (- D1 d) 2))

L10 (polar L9 0 (+ A B))

L11 (polar L10 (* 3 pi2) d)

L12 (polar L11 pi (+ A B))

)

;Вычерчивание основного контура:

(command "ПЛИНИЯ" L12 L1 L2 L3 L4 L11 L12 ""

"ПЛИНИЯ" L9 L10 L5 L6 L7 L8 L9 ""

)

(command "ОТРЕЗОК" L12 L9 ""

"ОТРЕЗОК" L10 L11 ""

)

; Вычерчивание осевой линии:

;Выбор типа линии:

(command "ТИПЛИН" "У" "center" "")

(command "ОТРЕЗОК" (list (-(car bp) 10) (cadr bp))

(list (+(car bp) 10 A B ) (cadr bp))""

)

; Простановка размеров:

(command "ТИПЛИН" "У" "continuous" "")

(command "РАЗМЕР" "ВЕР" L1 L8 (list(-(car bp) 10) (cadr L1)) ""

"РАЗМЕР" "ВЕР" L4 L5 (list(+(car L5) 30) (cadr L5)) ""

"РАЗМЕР" "ВЕР" L11 L10 (list(+(car L10) 15) (cadr L11)) ""

"РАЗМЕР" "ГОР" L1 L2 (list(car L1) (-(cadr L1) 15)) ""

"РАЗМЕР" "ГОР" L2 L4 (list(car L2) (-(cadr L2) 15)) ""

"РАЗМЕР" "ВЫХ"

)

; Написание текста:

(setq w1 (list (+(car bp)(/(+ A B) 2)) (+(cadr L8) 20)) ;начальные

w2 (list (+(car bp)(/(+ A B)2)) (-(cadr L1) 30)) ;точки

w3 (list (+(car bp)(/(+ A B)2)) (-(cadr L1) 40)) ;текста

)

(command "ТЕКСТ" "Ц" w1 "8" "" z1

"ТЕКСТ" "Ц" w2 "5" "" z2

"ТЕКСТ" "Ц" w3 "5" "" z3

)

; Рисование штриховки:

(command "ШТРИХ" "ansi31" 30 0 l6 "" ;штриховка замкнутых

"ШТРИХ" "ansi31" 30 0 l3 "" ;полилиниями областей

)

)

2