Kod: Zaznacz cały

o<touchoff> sub
(#1 pierce height, #2 pierce delay, #3 cut height)
F2000
G38.2 Z-5 (Probe to find the surface)
/G91
G1 Z5  (Raise up to Z0)
/G90
/G92 Z0 (Set Z0)
G1 Z5
M3 S1
/M66 P0 L1 Q1 (Wait for Arc OK from Torch)
G4 P3 (Pause for pierce delay)
/F1000
Z5 (goto cut height)
o<touchoff> endsub 
M2 

Kod: Zaznacz cały

( --------------------------------- )
(  W Y P A L A N I E   O T W O R U  )
(                                   )
( --------------------------------- )
( Kamar                             )
( Time-stamp: <2013-01-07 15:01>    )
( --------------------------------- )

(info: Wypalanie otworu)

o<pl_otwor> 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ść)

( ------------------------------ )

#<promien> = [#<sr_otworu> / 2] ( promien otworu )

g17 G21 G61

(g0 x0 y0)

o100 if[#<rodzaj> eq 0]
(otwór)
  g0 X[[-1 * #<promien>] + #<pr_wpalenia>] Y[#<pr_wpalenia>]

  o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
 ( G3 X0 Y0 I0 J[-1 * [#<pr_wpalenia>]])

  G3 X[-1 * #<promien>] Y0 I0 J[-1 * #<pr_wpalenia>]
	G3 X[-1 * #<promien>] Y0 I#<promien> J0 F#<predkosc>
  G3 X[[-1 * #<promien>] + #<pr_wpalenia>] Y[-1 * #<pr_wpalenia>] I#<pr_wpalenia> J0
	
  (G2 X0 Y0 I#<promien> J0 F#<predkosc>)
o100 else
(koło)
  g0 X[-1 * [#<promien> + #<pr_wpalenia>]] Y[#<pr_wpalenia>]
  o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
	G2 X[-1 * #<promien>] Y0 I0 J[-1 * #<pr_wpalenia>]
  G2 X[-1 * #<promien>] Y0 I#<promien> J0 F#<predkosc>
  G2 X[-1 * [#<promien> + #<pr_wpalenia>]] Y[-1 * #<pr_wpalenia>] I[-1 * #<pr_wpalenia>] J0

  (G2 X0 Y0 I0 J[-1 * [#<promien> / 4]])
  (G3 X0 Y0 I#<promien> J0 F#<predkosc>)
o100 endif

m5

o<pl_otwor> endsub