[PikoCNC] Skrypt do witryn meblowych. Ale nie tylko...

Dyskusje dotyczące działania obsługi programu PikoCNC
Awatar użytkownika

Autor tematu
mitek
Specjalista poziom 3 (min. 600)
Specjalista poziom 3 (min. 600)
Posty w temacie: 1
Posty: 742
Rejestracja: 09 cze 2009, 22:06
Lokalizacja: k/Krakowa
Kontakt:

[PikoCNC] Skrypt do witryn meblowych. Ale nie tylko...

#1

Post napisał: mitek » 14 sty 2012, 09:42

Powoli przesiadam się na sterownik PikoCNC większość prac wykonywanych na maszynie to właśnie skrypty a ten sterownik ma zaimplementowany język skryptowy więc ilość zbędnych kliknięć spada :)

Przesyłam mój mały skrypt do robienia witryn meblowych może komuś się przyda a może ktoś coś dopisze co i mi się przyda.

Skrypt zaokrągla rogi oraz pozwala wejść frezowi od środka elementu.

program meblowy;

//==============================================================================
// program do frezowania ramek na frontach meblowych
//==============================================================================

var szer,x,y,diam,width,height,ZRapid,wys,odstep,depth,r,r_rogu,frez_fi,depth2,zejscie:extended;
Fxy,Fz:cardinal;


begin
// {$I panel_funkcje.pas} // dołączenie pliku z funkcjami
szer:=470;
wys:=370;
odstep:=70;
fxy:=2000;
Fz:=600;
depth:=7;
depth2:=14;
zejscie:=50;
r_rogu:=12;
frez_fi:=16;
ZRapid:=10;


if (RUN_CNT=0) then begin // wykonywane tylko przy pierwszym uruchomieniu
SetArgPic('kwadrat.jpg'); // obrazek objaśniający
SetArg(0,'Szerokość (mm)',szer);
SetArg(1,'Wysokość (mm)',wys);
SetArg(2,'Margines (mm)',odstep);


SetArg(4,'Szybkość Fxy (mm/min)',Fxy);
SetArg(5,'Szybkość Fz (mm/min)',Fz);
SetArg(6,'Głębokość 1 wejście (mm)',depth);
SetArg(7,'Głębokość 2 wejscie (mm)',depth2);
SetArg(8,'Długość zejścia (mm)',zejscie);
SetArg(9,'Promień w rogu',r_rogu);
SetArg(10,'Średnica freza palcowego',frez_fi);
end;

// Organizujeny sposób wyświetlania parametrów
ArgPageTitle('Wymiary frontu'); // nazwa pierwszej zakładki
ArgShow(0);
ArgShow(1);
ArgShow(2);
ArgSeparator('');
ArgSeparator('Autor: Marek Mitoński PPH MITEX');
ArgNewPage('Ustaienia'); // dodanie nowej zakładki
ArgShow(6);
ArgShow(7);
ArgShow(4);
ArgShow(5);
ArgShow(8);
ArgShow(9);
ArgShow(10);

ArgEdit; // i otwarcie okna edycji parametrów

szer:=Arg(0);
wys:=Arg(1);
odstep:=Arg(2);

depth:=Arg(6);
depth2:=Arg(7);
Fxy:=Arg(4);
Fz:=Arg(5);
zejscie:=Arg(8);
r_rogu:=Arg(9);
frez_fi:=Arg(10);

// Rysowanie =================================================================
r:=r_rogu;
X:=odstep;
Y:=odstep;
width:=wys-odstep-odstep;
height:=szer-odstep-odstep;
diam:=frez_fi/2;


SetG(0); SetZ(ZRapid);
write;

SetG(0); SetX (x+40); SetY(Y+40); SetZ(ZRapid);
Write

SetG(1); SetX (x+40); SetY(Y+40); SetZ(1);
Write

SetG(1); SetX (X+20); SetY(Y+20); SetZ (-1*DEPTH); SetF(Fz);
Write;

SetX(x+r); SetY(y+diam);
Write;

SetG(1); SetZ(-1*DEPTH);
write;

SetX(x+width-r); SetF(Fxy);
write;

SetG(3); SetX(x+width-diam); SetY(y+r); SetR(r-diam); SetF(Fxy);
write;

SetG(1); SetY(y+height-r);
write;

SetG(3); SetX(x+width-r); SetY(y+height-diam); SetR(r-diam); SetF(Fxy);
write;

SetG(1); SetX(x+r);
write;

SetG(3); SetX(x+diam); SetY(y+height-r); SetR(r-diam); SetF(Fxy);
write;

SetG(1); SetY(y+r);
write;

SetG(3); SetX(x+r); SetY(y+diam); SetR(r-diam); SetF(Fxy);
write;

SetG(0); SetZ(ZRapid);
write;

end.
Załączniki
piko skrypt witryna.JPG
piko skrypt witryna.JPG (56.99 KiB) Przejrzano 1049 razy



Tagi:

Wróć do „PikoCNC”