zroche zmieniłem 0,0 , dodałem kompensację narzędzia i wyjście po cięciu
Kod: Zaznacz cały
o<kolo> sub
#<wys_przepalania> = #1 (=3 Wysokość przepalania)
#<czas_przepalania> = #2 (=3 Czas przepalania)
#<wys_palenia> = #3 (=3 Wysokość palenia)
#<sr_otworu> = #4 (=20 śr. otworu)
#<pr_wpalenia> =#5 (=4 promień wpalenia)
#<rodzaj> = #6 (=0 0 - otwór, 1 - koło)
#<predkosc> = #7 (=200 Prędkość)
#<srednica_dyszy> = #8 (=1.1 Srednica dyszy)
( ------------------------------ )
#<promien> = [#<sr_otworu> / 2] ( promien otworu )
#<promien_dyszy> = [#<srednica_dyszy> / 2]
g17 G21 G61 G40
G10 L1 P1 R#<promien_dyszy>
T1M6 (Tool change to T1)
g0 x0 y0
o100 if[#<rodzaj> eq 0]
(otwór)
g0 X[#<pr_wpalenia>] Y[#<pr_wpalenia>+#<promien>]
o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
G41
G3 X0 Y#<promien> I0 J[-1 * #<pr_wpalenia>]
G3 X0 Y#<promien> I#<promien> J0 F#<predkosc>
G3 X#<pr_wpalenia> Y[#<promien>-#<pr_wpalenia>] I #<pr_wpalenia> J0
G40
o100 else
(koło)
g0 X[-1 * [#<pr_wpalenia>]] Y[#<promien>-#<pr_wpalenia>]
o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
G41
G3 X0 Y#<promien> I0 J#<pr_wpalenia>
G2 X0 Y#<promien> I#<promien> J0 F#<predkosc>
G3 X[-1 * #<pr_wpalenia>] Y[#<promien>+#<pr_wpalenia>] I-[#<pr_wpalenia>] J0
G40
o100 endif
m5
o<kolo> endsub 
