03 марта 2016г.
Одной из задач, решаемых при разработке технологического процесса механической обработки изделий машиностроения, является назначение числа технологических переходов (стадий) обработки и расчет глубины резания для каждого перехода.
Автоматизация решения данных задач позволяет существенно снизить трудоемкость проектирования технологии, а методика формализованного описания и разработки программного кода может быть полезна при разработке собственных систем автоматизированного проектирования технологических процессов (САПР ТП).
В качестве формализованного аппарата удобно использовать информационные карты для назначения стадий обработки [1]. Например, для фрезерования по карте 54 лист 2 ([1], стр.174) определяем, что для обработки размера 41h14 в размер 38h11 необходимо выполнение получистовой (II) и чистовой (III) стадий обработки (Рисунок 1).
Использование всех данных информационных карт позволяет разработать приложение для автоматизированного выбора числа стадий для всех видов обработки резанием.
В качестве примера составлен следующий программный код процедуры в среде Delphi: procedure TForm1.Button1Click(Sender: TObject);
Const
Stadii: array[11..17,7..16] of string =
// D - квалитет поверхности на детали, Z - квалитет поверхности на заготовке
{D: , 7, 8, 9, 10 , 11 , 12 , 13 , 14 , 15 , 16 ,}
{Z11}((' 3+4','3+4','3+4',' 3', ' 3',' -',' -', '-', '-', '-'),
{Z12} (' 3+4','3+4','3+4',' 3', ' 3',' -',' -', '-', '-', '-'),
{Z13} ('2+3+4','2+3+4','2+3+4','2+3','2+3',' 2','2','-','-','-'),
{Z14} ('2+3+4','2+3+4','2+3+4','2+3','2+3',' 2','2','-','-','-'),
{Z15} ('1+2+3+4','1+2+3+4','1+2+3+4','1+2+3','1+2+3','1+2','1+2', '-', '-', '-'),
{Z16} ('1+2+3+4','1+2+3+4','1+2+3+4','1+2+3','1+2+3','1+2','1+2', '1', '1', '1'),
{Z17} ('1+2+3+4','1+2+3+4','1+2+3+4','1+2+3','1+2+3','1+2','1+2', '1', '1', '1'));
Perehod: array [1..4] of string =('Черновая', 'Получистовая', 'Чистовая', 'Отделочная');
Var
i,j,k,x: integer; A,SS: string;
begin StringGrid1.Cells[0,0]:='№№';
StringGrid1.Cells[1,0]:='Стадия обработки (переход):'; i:=StrToInt(Edit1.Text); j:=StrToInt(Edit2.Text); Edit3.Text:=Stadii[i,j]; x:=0;
For k:=1 to Length(Stadii[i,j]) do begin
A:=Copy(Stadii[i,j],k,1); SS:='';
If A='1' then begin x:=x+1; SS:=Perehod[1] end; If A='2' then begin x:=x+1; SS:=Perehod[2] end; If A='3' then begin x:=x+1; SS:=Perehod[3] end; If A='4' then begin x:=x+1; SS:=Perehod[4] end;
If SS<>'' then begin
StringGrid1.Cells[0,x]:=IntToStr(x); StringGrid1.Cells[1,x]:=SS; end;
end; StringGrid1.RowCount:=X+1; end; {Button1.Click}
Внешний вид экранной формы процедуры представлен на Рисунке 2.
После ввода и отладки приложения возможны его запуск
и использование в практических целях.
Следующий шаг – определение глубины резания, т.е. срезаемого
слоя припуска для получения
требуемой точности обработки.
Назначение глубины резания ведется с последнего перехода (в рассматриваемом случае – с чистового фрезерования). По карте 55 ([1], стр. 175) определяем глубину
резания: tIII =1,00 мм и tII =2,00 м:
Внешний вид экранной формы процедуры
автоматизированного расчета глубины
резания может
быть оформлен в соответствии с Рисунок
4.
Таким образом, справочник [1] содержит
формализованный аппарат, необходимый для построения САПР
В условиях, когда по
техническим специальностям вузов практически повсеместно преподаются дисциплины программирования на языках
высокого уровня,
разработка собственных компьютерных приложений для автоматизации проектирования технологических процессов
перестает быть проблемой.
Список литературы
1. Общемашиностроительные нормативы
времени и режимов
резания для нормирования работ,
выполняемых на универсальных и многоцелевых станках с числовым программным управлением. Часть 2. Нормативы режимов резания.- М.: Экономика, 1990.- 473 с.
