cnc.info.pl - FORUM CNC

var
wym_x,wym_y,frez_fi,Szerokosc,Dlugosc,Zaglebienie,Srednica,Fxy,Fz: extended;
i: cardinal;
left:boolean;
begin

Szerokosc:=150;
Dlugosc:=300;
Zaglebienie:=-5;
Srednica:=12;
Fxy:=2500;
Fz:=800;

//==============================

if (RUN_CNT=0) then begin // wykonywane tylko przy pierwszym uruchomieniu
SetArgPic('planowanie.jpg'); // obrazek objaśniający
SetArg(0,'Szerokość (mm)',Szerokosc);
SetArg(1,'Długość (mm)',Dlugosc);
SetArg(2,'Zagłębienie (mm)',Zaglebienie);
SetArg(3,'Średnica freza (mm)',Srednica);
SetArg(4,'Prędkość Fxy (mm/min)',Fxy);
SetArg(5,'Prędkość Fz (mm/min)',Fz);

end;

// Organizujeny sposób wyświetlania parametrów
ArgPageTitle('Planowanie'); // nazwa pierwszej zakładki
ArgShow(0);
ArgShow(1);
ArgShow(2);
ArgShow(3);
ArgShow(4);
ArgShow(5);
ArgSeparator('');
ArgSeparator('Autor: Marek Mitoński PPH MITEX');

ArgEdit; // i otwarcie okna edycji parametrów

Szerokosc:=Arg(0);
Dlugosc:=Arg(1);
Zaglebienie:=Arg(2);
Srednica:=Arg(3);
Fxy:=Arg(4);
Fz:=Arg(5);

// ...START

SetM(3); write;
SetX(0); SetY(0); SetZ(10); Write;
SetG(1); SetZ(zaglebienie); SetF(Fz); write;
SetF(Fxy); write;

i:=0;
left:=FALSE;

while ((i*Srednica)<szerokosc) do begin
SetY(i*Srednica);
write;
if (not left) then SetX(dlugosc) else SetX(0);
write;
left:=not left;
i:=i+1;
end;
// ostatnia linia
SetY(szerokosc); write;
if (not left) then SetX(dlugosc) else
SetX(0); write;

SetG(0); SetZ(10); write;
SetM(5); SetM(30); write;

end.