2. Процедура выгрузки данных в текстовый файл:

procedure TForm1.Button2Click(Sender: TObject);

var F:TEXTFILE;

begin

assignfile(f,'FReductor.txt');

rewrite(f);

writeln(f,round(d1));

writeln(f,round(d2));

writeln(f,round(da1));

writeln(f,round(da2));

writeln(f,round(b1));

writeln(f,round(b2));

writeln(f,round(a));

writeln(f,round(DM1));

writeln(f,round(DM2));

writeln(f,diam1);

writeln(f,diam2);

writeln(f,Bdiam1);

writeln(f,Bdiam2);

writeln(f,Ddiam1);

writeln(f,Ddiam2);

writeln(f,Dvyh1);

writeln(f,Dvyh2);

writeln(f,Lvyh1);

writeln(f,Lvyh2);

closefile(f);

end;

3. Считывание данных из текстового файла:

(setq f (open "F:\\Diana\\Delphi\\FReductor.txt" "R"))

(setq d1 (atoi(read-line f)) d2 (atoi(read-line f))

da1 (atoi(read-line f)) da2 (atoi(read-line f))

b1 (atoi(read-line f)) b2 (atoi(read-line f))

a (atoi(read-line f))

DM1 (atoi(read-line f)) DM2 (atoi(read-line f))

diam1 (atoi(read-line f)) diam2 (atoi(read-line f))

Bdiam1 (atoi(read-line f)) Bdiam2 (atoi(read-line f))

Ddiam1 (atoi(read-line f)) Ddiam2 (atoi(read-line f))

Dvyh1 (atoi(read-line f)) Dvyh2 (atoi(read-line f))

Lvyh1 (atoi(read-line f)) Lvyh2 (atoi(read-line f)))

(close f)

4. Процедура построения чертежа:

procedure TForm1.Button3Click(Sender: TObject);

var res:HResult;

ID:TGUID;

inter:IUnknown;

V:OleVariant;

begin

ID:=ProgIDToClassID('AutoCAD.Application.17');

res:=GetActiveObject(ID, nil, inter);

if succeeded(res)=true

then V:=GetActiveOleObject('AutoCAD.Application.17')

else V:=CreateOleObject('AutoCAD.Application.17');

V.visible:=true;

V.ActiveDocument.SendCommand('(load "F:\\Diana\\Kurs.lsp")');

end;

Тестирование программы осуществлялось путем сравнения результатов предварительного расчета, произведенного вручную, с результатами, полученными в ходе автоматизированного расчета. Результаты расчетов приведены в Приложении 2 и Приложении 5 соответственно. В итоге сравнения сделан вывод: программа производит расчет корректно, т.е. с допустимой погрешностью (погрешность≤1 ед.измер.).

Заключение

В ходе курсовой работы была разработана прикладная программа под систему AutoCAD на языке VisualLISP. Разработанная программа позволяет автоматизировать процесс расчета и вычерчивания цилиндрического редуктора. Программа соответствует всем предъявляемым требованиям и корректно выполняет все свои функции, т.е. расчет и построение чертежа. Таким образом, можно утверждать, что в результате выполнения работы была создана функционально завершенная программа.

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

1. Полещук Н. AutoCAD: Разработка приложений, настройка и адаптация – СПб.: БХВ-Петербург, 2006. – 992с.: ил.

2. Полещук Н. Н., Лоскутов П.В.: AutoLisp и VisualLisp в среде AutoCAD. – СПб.: БХВ-Петербург, 2006. – 960с.: ил.

3. Фаронов В.В. Программирование на языке высокого уровня: Учебник для вузов – СПб.: Питер, 2007. – 640с.: ил.

4. Чернавский С.А., Ицкович Г.М. Проектирование механических передач – Машиностроение , 1976. – 608с.: ил.