Материал: Разработка элементов систем автоматизированного проектирования деталей машин

(command "_line" p28 p29 "")

(command "_line" p30 p28 "")

(command "_line" p31 p28 "")

(command "_line" p28 p32 "")

(command "_line" p28 p24 "")

)

.4 Разработка команды САПР AutoСAD для двигателя

Рисунок 13 -двигатель

Текст программы:

(defun c:motor()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр окружности:"))

(setq r (getdist p1 "\nВведите радиус окружности:"))

; секция промежуточных вычислений

; секция определения точки отрисовки

(setq p2 (polar p1 ( + (/ pi 4)) (/ r 5)))

(setq p3 (polar p2 ( - (/ pi 2)) (/ r 3)))

(setq p4 (polar p1 ( + (/ pi 1.33)) (/ r 5)))

(setq p5 (polar p4 ( - (/ pi 2)) (/ r 3)))

; секцияотрисовки

(command "_circle" p1 r "")

(command "_line" p3 p2 p1 p4 p5 "")

)

.5 Разработка команды САПР AutoСAD для фильтра

Рисунок 14 - Фильтр

Текст программы:

(defun c:filtr()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр фильтра:"))

(setq p2 (getpoint p1 "\nВведите край фильтра:"))

; секция промежуточных вычислений

(setq l (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p2 (polar p1 a l))

(setq p3 (polar p1 (+ a (/ pi 2)) l))

(setq p4 (polar p1 (+ a (/ pi 1)) l))

(setq p5 (polar p1 (- a (/ pi 2)) l))

; секцияотрисовки

(command "_pline" p2 p3 p4 p5 p2 "")

(command "_color" 10)

(command "_line" p2 p4 "")

(command "_color" "bylayer")

)

.6 РазработкакомандыСАПРAutoСADдлягидроцилиндра

Рисунок 15 - Гидроцилиндр

Текст программы:

(defun c:cilindr()

; секция ввода данных

(setq p1 (getpoint "\nВведите первый край гидроцилиндра:"))

(setq p2 (getpoint p1 "\nВведите второй край гидроцилиндра:"))

(setq h (getdist p1 "\nВведите высоту гидроцилиндра:"))

; секция промежуточных вычислений

(setq b (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p3 (polar p1 (- a (/ pi 2)) (/ h 1)))

(setq p4 (polar p3 a b))

(setq p5 (polar p3 (+ a (/ pi 2)) (/ h 5)))

(setq p6 (polar p5 a b))

(setq p7 (polar p5 (+ a (/ pi 2)) (/ h 10)))

(setq p8 (polar p7 a b))

(setq p9 (polar p1 a (/ b 3)))

(setq p10 (polar p2 (+ a (/ pi 1)) (/ b 3)))

(setq p11 (polar p7 a (/ b 3)))

(setq p12 (polar p8 (+ a (/ pi 1)) (/ b 3)))

(setq p13 (polar p9 (+ a (/ pi 2)) (/ h 3)))

(setq p14 (polar p10 (+ a (/ pi 2)) (/ h 3)))

; секцияотрисовки

(command "_line" p1 p3 p4 p2 "")

(command "_line" p5 p6 "")

(command "_line" p7 p8 "")

(command "_line" p1 p9 "")

(command "_line" p2 p10 "")

(command "_line" p13 p11 "")

(command "_line" p14 p12 "")

)

.7 Разработка команды САПР AutoСAD для напорного гидроклапана

Рисунок 16 - Гидроцилиндр

Текст программы:

(defun c:gn()

; секция ввода данных

(setq p1 (getpoint "\nВведите первый край гидроклапана:"))

(setq p2 (getpoint p1 "\nВведите второй край гидроклапана:"))

; секция промежуточных вычислений

(setq l (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точек отрисовки

(setq p3 (polar p1 (- a (/ pi 2)) (/ l 1)))

(setq p4 (polar p3 a l))

(setq p5 (polar p1 (- a (/ pi 2)) (/ l 2)))

(setq p6 (polar p3 (- a (/ pi 1)) (/ l 2)))

(setq p7 (polar p6 (- a (/ pi 2)) (/ l 2)))

(setq p8 (polar p3 a (/ l 2)))

(setq p9 (polar p8 (- a (/ pi 2)) (/ l 2)))

(setq p10 (polar p5 (- a (/ pi 2)) (/ l 4)))

(setq p11 (polar p10 a l))

(setq p12 (polar p11 (- a (/ pi 1)) (/ l 3)))

(setq p13 (polar p12 (+ a (/ pi 2)) (/ l 10)))

(setq p15 (polar p2 (- a (/ pi 1)) (/ l 3)))

(setq p16 (polar p1 a (/ l 3)))

(setq p17 (polar p16 (+ a (/ pi 2)) (/ l 10)))

(setq p18 (polar p15 (+ a (/ pi 2)) (/ l 5)))

(setq p19 (polar p17 (+ a (/ pi 2)) (/ l 5)))

(setq p20 (polar p18 (+ a (/ pi 2)) (/ l 5)))

; секцияотрисовки

(command "_line" p1 p3 p4 p2 p1 "")

(command "_color" 10)

(command "_line" p5 p6 p7 p9 p8 "")

(command "_color" "bylayer")

(command "_line" p10 p11 "")

(command "_line" p11 p13 p14 p11 "")

(command "_hatch" "ANGLE" "0.01" "0" "" "" p11 p13 p14 p11 p13 "" "")

(command "_line" p15 p17 p18 p19 p20 "")

)

.8 Разработка команды САПР AutoСAD для понижающего редуктора

Рисунок 17 - понижающий редуктор

Текст программы:

(defun c:klino()

; секция ввода данных

(setq p1 (getpoint "\nВведите 1 точку:"))

(setq p2 (getpoint p1 "\nВведите 2 точку:"))

; секция промежуточных вычислений

(setq b (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p3 (polar p1 (- a (/ pi 2 )) (/ b 2.3)))

(setq p4 (polar p3 a (/ b 7)))

(setq p5 (polar p3 (- a pi) (/ b 7)))

(setq p8 (polar p2 (- a (/ pi 2 )) (/ b 2.3)))

(setq p6 (polar p8 a (/ b 7)))

(setq p7 (polar p8 (- a pi) (/ b 7)))

(setq p9 (polar p3 (- a (/ pi 2 )) (/ b 7)))

(setq p10 (polar p3 (- a (/ pi 2 )) (/ b 14)))

(setq p11 (polar p9 (- a (/ pi 2 )) (/ b 14)))

(setq p12 (polar p9 a (/ b 14)))

(setq p13 (polar p9 (- a pi) (/ b 14)))

(setq p14 (polar p8 (- a (/ pi 2 )) (/ b 7)))

(setq p15 (polar p8 (- a (/ pi 2 )) (/ b 14)))

(setq p16 (polar p14 (- a (/ pi 2 )) (/ b 14)))

(setq p17 (polar p14 a (/ b 14)))

(setq p18 (polar p14 (- a pi) (/ b 14)))

(setq p19 (polar p11 (- a (/ pi 2 )) (/ b 14)))

(setq p20 (polar p19 (- a pi) (/ b 3.5)))

(setq p21 (polar p16 (- a (/ pi 2 )) (/ b 14)))

(setq p22 (polar p21 a (/ b 3.5)))

(setq p24 (polar p19 (- a (/ pi 2 )) (/ b 7)))

(setq p23 (polar p19 (- a (/ pi 2 )) (/ b 14)))

(setq p25 (polar p24 (- a (/ pi 2 )) (/ b 14)))

(setq p27 (polar p24 a (/ b 14)))

(setq p26 (polar p24 (- a pi) (/ b 14)))

(setq p29 (polar p24 (- a (/ pi 2 )) (/ b 7)))

(setq p30 (polar p29 a (/ b 7)))

(setq p28 (polar p29 (- a pi) (/ b 7)))

(setq p31 (polar p29 (- a (/ pi 2 )) (/ b 7)))

(setq p32 (polar p29 (- a (/ pi 2 )) (/ b 14)))

(setq p33 (polar p31 (- a (/ pi 2 )) (/ b 14)))

(setq p35 (polar p31 a (/ b 14)))

(setq p34 (polar p31 (- a pi) (/ b 14)))

(setq p36 (polar p31 (- a (/ pi 2 )) (/ b 7)))

(setq p37 (polar p36 (- a pi) (/ b 3.5)))

(setq p38 (polar p36 (- a (/ pi 2 )) (/ b 7)))

(setq p39 (polar p36 (- a (/ pi 2 )) (/ b 14)))

(setq p40 (polar p38 (- a (/ pi 2 )) (/ b 14)))

(setq p42 (polar p38 a (/ b 14)))

(setq p41 (polar p38 (- a pi) (/ b 14)))

(setq p45 (polar p38 (- a (/ pi 2 )) (/ b 7)))

(setq p43 (polar p45 a (/ b 7)))

(setq p44 (polar p45 (- a pi) (/ b 7)))

(setq p46 (polar p45 (- a (/ pi 2 )) (/ b 2.3)))

(setq p47 (polar p21 (- a (/ pi 2 )) (/ b 7)))

(setq p48 (polar p21 (- a (/ pi 2 )) (/ b 14)))

(setq p49 (polar p47 (- a (/ pi 2 )) (/ b 14)))

(setq p51 (polar p47 a (/ b 14)))

(setq p50 (polar p47 (- a pi) (/ b 14)))

(setq p52 (polar p47 (- a (/ pi 2 )) (/ b 7)))

(setq p53 (polar p52 a (/ b 7)))

(setq p54 (polar p52 (- a pi) (/ b 7)))

(setq p55 (polar p52 (- a (/ pi 2 )) (/ b 7)))

(setq p57 (polar p52 (- a (/ pi 2 )) (/ b 14)))

(setq p56 (polar p55 (- a (/ pi 2 )) (/ b 14)))

(setq p58 (polar p55 a (/ b 14)))

(setq p59 (polar p55 (- a pi) (/ b 14)))

(setq p60 (polar p55 (- a (/ pi 2 )) (/ b 7)))

(setq p61 (polar p60 a (/ b 3.5)))

(setq p62 (polar p60 (- a (/ pi 2 )) (/ b 7)))

(setq p64 (polar p60 (- a (/ pi 2 )) (/ b 14)))

(setq p63 (polar p62 (- a (/ pi 2 )) (/ b 14)))

(setq p65 (polar p62 a (/ b 14)))

(setq p66 (polar p62 (- a pi) (/ b 14)))

(setq p67 (polar p62 (- a (/ pi 2 )) (/ b 7)))

(setq p69 (polar p67 a (/ b 7)))

(setq p68 (polar p67 (- a pi) (/ b 7)))

(setq p70 (polar p67 (- a (/ pi 2 )) (/ b 2.3)))

(setq p71 (polar p29 a (/ b 2)))

(setq p72 (polar p71 (+ a (/ pi 2 )) (/ b 1.4)))

(setq p75 (polar p71 (- a (/ pi 2 )) (/ b 1.4)))

(setq p73 (polar p72 a (/ b 14)))

(setq p74 (polar p72 (- a pi) (/ b 14)))

(setq p76 (polar p75 a (/ b 14)))

(setq p77 (polar p75 (- a pi) (/ b 14)))

; секцияотрисовки

(command "_line" p8 p2 p1 p3 "")

(command "_line" p4 p5 "")

(command "_line" p7 p6 "")

(command "_line" p22 p20 "")

(command "_line" p28 p30 "")

(command "_line" p37 p61 "")

(command "_line" p43 p44 "")

(command "_line" p68 p69 "")

(command "_line" p45 p46 p70 p67 "")

(command "_arc" p10 p12 p11 "")

(command "_arc" p10 p13 p11 "")

(command "_arc" p23 p26 p25 "")

(command "_arc" p23 p27 p25 "")

(command "_arc" p32 p34 p33 "")

(command "_arc" p32 p35 p33 "")

(command "_arc" p39 p41 p40 "")

(command "_arc" p39 p42 p40 "")

(command "_arc" p15 p18 p16 "")

(command "_arc" p15 p17 p16 "")

(command "_arc" p48 p50 p49 "")

(command "_arc" p48 p51 p49 "")

(command "_arc" p57 p59 p56 "")

(command "_arc" p57 p58 p56 "")

(command "_arc" p64 p66 p63 "")

(command "_arc" p64 p65 p63 "")

(command "_line" p53 p54 "")

(command "_line" p72 p75 "")

(command "_line" p77 p76"")

(command "_line" p74 p73 "")

)

2.9 Разработка команды САПР AutoСAD для гидрораспределителя

Рисунок 18 - Гидрораспределитель

Текст программы:

(defun c:gr()

; секция ввода данных

(setq p1 (getpoint "\nВведите первый край гидрораспределителя:"))

(setq p2 (getpoint p1 "\nВведите второй край гидрораспределителя:"))

(setq h (getdist p1 "\nВведите высоту гидрораспределителя:"))

; секция промежуточных вычислений

(setq b (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p3 (polar p1 (- a (/ pi 2)) (/ h 1)))

(setq p4 (polar p3 a b))

(setq p5 (polar p1 (- a (/ pi 2)) (/ h 2)))

(setq p6 (polar p2 (- a (/ pi 2)) (/ h 2)))

(setq p7 (polar p5 (- a (/ pi 2)) (/ h 12)))

(setq p8 (polar p6 (- a (/ pi 2)) (/ h 12)))

(setq p9 (polar p1 (- a (/ pi 2)) (/ h 4)))

(setq p10 (polar p2 (- a (/ pi 2)) (/ h 4)))

(setq p11 (polar p7 (- a (/ pi 2)) (/ h 12)))

(setq p12 (polar p8 (- a (/ pi 2)) (/ h 12)))

(setq p13 (polar p11 (+ a (/ pi 7)) (/ b 10)))

(setq p14 (polar p11 (- a (/ pi 7)) (/ b 10)))

(setq c (distance p11 p3))

(setq p15 (polar p11 (- a (/ pi 2)) (/ c 2)))

(setq p16 (polar p15 (- a (/ pi 2)) (/ c 4)))

(setq p17 (polar p15 a (/ c 4)))

(setq p18 (polar p16 a (/ c 4)))

(setq p19 (polar p17 (+ a (/ pi 2)) (/ c 10)))

(setq p20 (polar p17 (- a (/ pi 2)) (/ c 10)))

(setq p21 (polar p18 (+ a (/ pi 2)) (/ c 10)))

(setq p22 (polar p18 (- a (/ pi 2)) (/ c 10)))

(setq p23 (polar p16 a b))

(setq p24 (polar p23 (- a pi) (/ c 4)))

(setq p25 (polar p24 (+ a (/ pi 2)) (/ c 10)))

(setq p26 (polar p24 (- a (/ pi 2)) (/ c 10)))

(setq p27 (polar p14 (- a (/ pi 2)) (/ c 20)))

(setq p28 (polar p25 (+ a (/ pi 2)) (/ c 15)))

(setq t (angle p28 p27))

(setq p29 (polar p28 (- t (/ pi 6)) (/ b 10)))

(setq p30 (polar p28 (+ t (/ pi 6)) (/ b 10)))

(setq d (distance p1 p9))

(setq p31 (polar p1 (- a (/ pi 2)) (/ d 4)))

(setq p32 (polar p9 (+ a (/ pi 2)) (/ d 4)))

(setq p33 (polar p31 a (/ d 4)))

(setq p34 (polar p32 a (/ d 4)))

(setq p35 (polar p33 (+ a (/ pi 2)) (/ d 10)))

(setq p36 (polar p33 (- a (/ pi 2)) (/ d 10)))

(setq p37 (polar p34 (+ a (/ pi 2)) (/ d 10)))

(setq p38 (polar p34 (- a (/ pi 2)) (/ d 10)))

(setq p39 (polar p1 (- a (/ pi 2)) (/ d 2)))

(setq p40 (polar p2 (- a (/ pi 2)) (/ d 2)))

(setq p41 (polar p39 (+ a (/ pi 7)) (/ b 10)))

(setq p42 (polar p39 (- a (/ pi 7)) (/ b 10)))

(setq p43 (polar p41 a (/ b 10)))

(setq p44 (polar p2 (- a pi) (/ b 10)))

(setq p45 (polar p44 (- a (/ pi 2)) (/ b 10)))

(setq f (angle p45 p43))

(setq p46 (polar p45 (- f (/ pi 6)) (/ b 10)))

(setq p47 (polar p45 (+ f (/ pi 6)) (/ b 10)))

(setq p48 (polar p32 a b))

(setq p49 (polar p48 (- a pi) (/ d 4)))

(setq p50 (polar p49 (+ a (/ pi 2)) (/ d 10)))

(setq p51 (polar p49 (- a (/ pi 2)) (/ d 10)))

(setq p52 (polar p3 a (/ b 10)))

(setq p53 (polar p3 (- a (/ pi 2)) (/ h 3)))

(setq p54 (polar p53 a (/ b 10)))

(setq p55 (polar p4 (- a (/ pi 2)) (/ h 3)))

(setq p57 (polar p55 (- a pi) (/ b 8)))

(setq p58 (polar p57 (- a pi) (/ b 8)))

; секцияотрисовки

(command "_line" p1 p3 p4 p2 p1 "")

(command "_line" p5 p6 "")

(command "_line" p7 p8 "")

(command "_line" p9 p10 "")

(command "_line" p11 p12 "")

(command "_line" p13 p11 p14 "")

(command "_line" p15 p17 "")

(command "_line" p16 p18 "")

(command "_line" p19 p20 "")

(command "_line" p21 p22 "")

(command "_line" p23 p24 "")

(command "_line" p25 p26 "")

(command "_line" p27 p28 "")

(command "_line" p29 p28 p30 "")

(command "_line" p31 p33 "")

(command "_line" p32 p34 "")

(command "_line" p35 p36 "")

(command "_line" p37 p38 "")

(command "_line" p39 p40 "")

(command "_line" p41 p39 p42 "")

(command "_line" p43 p45 "")

(command "_line" p47 p45 p46 "")

(command "_line" p50 p51 "")

(command "_line" p48 p49 "")

(command "_line" p3 p53 p54 p52 "")

(command "_line" p54 p58 "")

(command "_circle" p57 p55 "")

)

.10 Разработка команды САПР AutoСAD для обратного клапана

Рисунок 19 - Клапан обратный

Текст программы:

(defun c:ko()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр:"))

(setq p2 (getpoint p1 "\nВведите край окружности:"))

; секция промежуточных вычислений

(setq r (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p3 (polar p1 a (+ r (/ r 2))))

(setq p4 (polar p1 (+ a (/ pi 2)) (+ r (/ r 2))))

(setq p5 (polar p1 (- a (/ pi 2)) (+ r (/ r 2))))

; секцияотрисовки

(command "_circle" p1 p2 "")

(command "_line" p3 p4 "")

(command "_line" p3 p5 "")

)

.11 Разработка команды САПР AutoСAD для гидранасос привода хода

Рисунок 20 - гидранасос привода хода

Текст программы:

(defun c:klino()

; секция ввода данных

(setq p1 (getpoint "\nВведите 1 точку:"))

(setq p2 (getpoint p1 "\nВведите 2 точку:"))

; секция промежуточных вычислений

(setq b (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p6 (polar p1 a (/ b 2)))

(setq p10 (polar p6 (+ a (/ pi 2 )) (/ b 2)))

(setq p11 (polar p6 (- a (/ pi 2 )) (/ b 2)))

(setq p4 (polar p10 (- a (/ pi 2 )) (/ b 5)))

(setq p3 (polar p4 a (/ b 5)))

(setq p5 (polar p4 (- a pi ) (/ b 5)))

(setq p8 (polar p11 (+ a (/ pi 2 )) (/ b 5)))

(setq p7 (polar p8 a (/ b 5)))

(setq p9 (polar p8 (- a pi ) (/ b 5)))

; секцияотрисовки

(command "_line" p5 p3 p10 p5 "")

(command "_arc" p10 p1 p11 "")

(command "_arc" p10 p2 p11 "")

(command "_line" p9 p11 p7 p9 "")

)

2.12 Разработка команды САПР AutoСAD для охладителя

Рисунок 21 -охладитель

Текст программы:

(defun c:mo()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр маслоохладителя:"))

(setq p2 (getpoint p1 "\nВведите край маслоохладителя:"))

; секция промежуточных вычислений

(setq l (distance p1 p2))

(setq a (angle p1 p2))

; секция определения точки отрисовки

(setq p2 (polar p1 a l))

(setq p3 (polar p1 (+ a (/ pi 2)) l))

(setq p4 (polar p1 (+ a (/ pi 1)) l))

(setq p5 (polar p1 (- a (/ pi 2)) l))

(setq p6 (polar p2 (- a pi) (/ l 3)))

(setq p7 (polar p6 (+ a (/ pi 2)) (/ l 6)))

(setq p8 (polar p6 (- a (/ pi 2)) (/ l 6)))

(setq p9 (polar p4 a (/ l 3)))

(setq p10 (polar p9 (+ a (/ pi 2)) (/ l 6)))

(setq p11 (polar p9 (- a (/ pi 2)) (/ l 6)))

; секцияотрисовки

(command "_pline" p2 p3 p4 p5 p2 "")

(command "_line" p2 p4 "")

(command "_line" p2 p7 p8 p2 "")

(command "_line" p4 p11 p10 p4 "")

(command "_hatch" "ANSI31" "0.01" "0" "" "" p2 p7 p8 p2 "" "")

(command "_hatch" "ANSI31" "0.01" "0" "" "" p4 p11 p10 p4 "" "")

)

.13 Разработка команды САПР AutoСAD для регулируемого насоса

Рисунок 22 -регулируемый насос

Текст программы:

(defun c:nasos()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр окружности:"))

(setq r (getdist p1 "\nВведите радиус окружности:"))

; секция промежуточных вычислений

; секция определения точки отрисовки

(setq p2 (polar p1 (/ pi 2) r))

(setq p3 (polar p2 (* 3 (/ pi 2)) (/ r 2)))

(setq p4 (polar p3 0 (/ r 4)))

(setq p5 (polar p3 pi (/ r 4)))

(setq p6 (polar p1 (* 5 (/ pi 4)) (* r 1.5)))

(setq p7 (polar p1 (/ pi 4) (* r 1.5)))

(setq l (distance p6 p7))

(setq a (angle p7 p6))

(setq p8 (polar p7 a (/ l 8)))

(setq p9 (polar p8 (+ a (/ pi 2)) (/ l 20)))

(setq p10 (polar p8 (- a (/ pi 2)) (/ l 20)))

; секцияотрисовки

(command "_circle" p1 r "")

(command "_line" p2 p5 p4 p2 "")

(command "_hatch" "ANSI31" "0.01" "0" "" "" p2 p5 p4 p2 "" "")

(command "_line" p6 p7 "")

(command "_line" p7 p9 "")

(command "_line" p7 p10 "")

)

.14 Разработка команды САПР AutoСAD для нерегулируемого насоса

Рисунок 23- нерегулируемый насос

Текст программы:

(defun c:nasos()

; секция ввода данных

(setq p1 (getpoint "\nВведите центр окружности:"))

(setq r (getdist p1 "\nВведите радиус окружности:"))

; секция промежуточных вычислений

(setq p2 (polar p1 (/ pi 2) r))

(setq p3 (polar p2 (* 3 (/ pi 2)) (/ r 2)))

(setq p4 (polar p3 0 (/ r 4)))

(setq p5 (polar p3 pi (/ r 4)))

; секцияотрисовки

(command "_circle" p1 r "")

(command "_line" p2 p5 p4 p2 "")

(command "_hatch" "ANSI31" "0.01" "0" "" "" p2 p5 p4 p2 "" "")

)

. Создание пользовательского менюAutoСAD

.1 Сохранение блоков и слайдов

Для создания пользовательского меню сначала сохраним отдельно все элементы гидросхемы, которые ранее были сделаны блоками. Для этого вызываем окно записи блока на диск командой «пблок» в командной строке. В появившемся окне записи блока на диск указываем путь к папке сохранения блока, единицей измерения задаем миллиметры, источником данных указываем блок и выбираем блок который будем сохранять. Аналогично сохраняем остальные блоки.

Рисунок 24 - Окно записи блока на диск

После сохранения блоков поочередно открываем их и пересохраняем в формате .sldс такими же именами через команду «Сохранить как…» из меню «Файл».

3.2 Подготовка файлов меню AutoCAD

Файлами необходимыми для создания нашего меню являются файлы гидросхема.mnr, гидросхема.mns, гидросхема.mnu. Открываем файл гидросхема.mns и изменяем его, указывая название меню, название команды, также указываем названия блоков.

Содержание файла гидросхема.mns:

//

//

//

***MENUGROUP=Гидросхема

***POP1

[Гидросхема]

[--]_Thermal_symbols [Гидросхема]$I=Гидросхема.Thermal_symbols $I=Гидросхема.*

***TOOLBARS

***IMAGE

**THERMAL_SYMBOLS

[Грабок]

[бак]^C^C_-insert бак;\ ;

[гидродвигатель_привода_моста]^C^C_-insertгидродвигатель_привода_моста;\ ;