cnc.info.pl - FORUM CNC

Kod: Zaznacz cały

o<rowki> sub

#<dl_mater> = #1 (= długość materiału [mm])  
#<odl_rowki> = #2 (= odległość między rowkami [mm])  
#<sr_freza> = #3 (= średnica frezu [mm])  
#<glebokosc> = #4 (= głębokość rowka [mm])  
#<wyjazd> = #5 (= wyjazd poza materiał [mm])  
#<obroty> = #6 (= prędkość obrotowa wrzeciona [RPM])  
#<mgla> = #7 (= mgła olejowa [1=ON, 0=OFF])  
#<marg_pocz> = #8 (= margines początkowy [mm])  
#<marg_kon> = #9 (= margines końcowy [mm])  
#<start_x> = #10 (= pozycja startowa X [mm])  
#<start_y> = #11 (= pozycja startowa Y [mm])  
#<powrot> = #12 (= powrót do XY po zakończeniu [1=TAK, 0=NIE])  
#<kier_frezowania> = #13 (= kierunek frezowania [0=lewa ➝ prawa, 1=prawa ➝ lewa])  
#<start_z> = #14 (= wysokość startowa Z [mm])  
#<tryb_rampy> = #15 (= tryb rampy [0=brak, 1=rampa X, 2=rampa Y])  
#<posuw> = #16 (= posuw [mm/min])  
#<dl_y> = #17 (= długość frezowania w osi Y [mm])  
#<warstwy> = #18 (= liczba warstw frezowania w osi Z)

M3 S[#<obroty>]
O100 if [#<mgla> EQ 1]
    M7
O100 endif

G0 X#<start_x> Y#<start_y> Z#<start_z>

#<dl_robocza> = [#<dl_mater> - #<marg_pocz> - #<marg_kon>]
#<liczba_rowkow> = FIX[#<dl_robocza> / #<odl_rowki>]
#<skok_z> = [#<glebokosc> / #<warstwy>]

O110 if [#<kier_frezowania> EQ 0]
    #<pocz_rowek> = [#<start_x> + #<marg_pocz>]
    #<i> = 0
O110 else
    #<pocz_rowek> = [#<start_x> + #<dl_mater> - #<marg_kon> - [#<odl_rowki> * [#<liczba_rowkow> - 1]]]
    #<i> = 0
O110 endif

O200 while [#<i> LT #<liczba_rowkow>]
    O300 if [#<kier_frezowania> EQ 0]
        #<x_rowek> = [#<pocz_rowek> + [#<odl_rowki> * #<i>]]
    O300 else
        #<x_rowek> = [#<pocz_rowek> - [#<odl_rowki> * #<i>]]
    O300 endif

    O310 if [#<i> EQ [#<liczba_rowkow> - 1]]
        O320 if [#<kier_frezowania> EQ 0]
            #<x_rowek> = [#<x_rowek> + #<wyjazd>]
        O320 else
            #<x_rowek> = [#<x_rowek> - #<wyjazd>]
        O320 endif
    O310 endif

    G0 X#<x_rowek> Y#<start_y> Z#<start_z>

    O400 if [#<tryb_rampy> EQ 0]
        G1 Z[-#<skok_z>] F[#<posuw>]
    O400 elseif [#<tryb_rampy> EQ 1]
        G1 X[#<x_rowek> + 2] Y#<start_y> Z[-#<skok_z>] F[#<posuw>]
    O400 elseif [#<tryb_rampy> EQ 2]
        G1 X#<x_rowek> Y[#<start_y> + 2] Z[-#<skok_z>] F[#<posuw>]
    O400 endif

    #<j> = 0
    O410 while [#<j> LT #<warstwy>]
        #<z_poziom> = [#<start_z> - [#<skok_z> * [#<j> + 1]]]
        O420 if [#<z_poziom> LT -#<glebokosc>]
            #<z_poziom> = [-#<glebokosc>]
        O420 endif

        G1 Z[#<z_poziom>] F[#<posuw>]
        G1 Y[#<start_y> + #<dl_y>] F[#<posuw>]
        G1 Y#<start_y> F[#<posuw>]
    #<j> = [#<j> + 1]
    O410 endwhile

    G1 X[#<x_rowek> + #<sr_freza>] Z[#<start_z>] F[#<posuw>]

    #<i> = [#<i> + 1]
O200 endwhile

O600 if [#<powrot> EQ 1]
    G0 X#<start_x> Y#<start_y> Z#<start_z>
O600 endif

M9
M5
o<rowki> endsub
M2