Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )
(     G W I N T Y                )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2018-08-03 12:56> )
( ------------------------------ )

(info: Gwint uniwersalny)

o<gwint> sub 

#<odboczka> = #1 (=0 <> odboczka)
#<obr> = #2 (=200 obroty)
#<x_pocz> = #3 (=60 średnica gwintu)
#<zwykly> = #4 (=1 <> gwint normalny)
#<x_konc> = #5 (=30 średnica końcowa X)
#<z_pocz> = #6 (=0  początek gwintu Z)
#<skok> = #7 (=5 skok gwintu [P])
#<dobieranie> = #8 (=0.1 dobieranie)
#<dlugosc> = #9 (=100 długość gwintu [Z])
#<rodzaj> = #10 (=1 <> zewnętrzny )
#<glebokosc> = #11 (=5 głębokość gwintu)
#<wyjazd> = #12 (=2 wyjazd z gwintu)
#<woda> = #13 (=1 <> chłodzenie)
#<korekta> = #14 (=0 <> korekta)
#<x_biez> = #15 (=60 średnica aktualna X)

g18 g61 g7

o2 if [#<odboczka> eq 1]
  #<obr> = [#<obr> * 8]
o2 endif

m3 s#<obr>
o100 if [#<woda> eq 1]
m8
o100 endif

o200 if[#<zwykly> EQ 1]
  #<x_konc> = #<x_pocz>
o200 endif


o500 if[#<rodzaj> EQ 0]
  (wewnetrzny)
  o502 if[#<korekta> EQ 1]
    #<akt_glebokosc> = [#<x_biez> - #<x_pocz>]
  o502 else
    #<akt_glebokosc> = 0
  o502 endif

  G0 X#<x_pocz> Z[#<z_pocz> + 5]

  o1000 while [#<akt_glebokosc> LT #<glebokosc>]
    #<akt_glebokosc> = [#<akt_glebokosc> + #<dobieranie>]
    o1010 if [#<akt_glebokosc> GT #<glebokosc>]
      #<akt_glebokosc> = #<glebokosc>
    o1010 endif
    #<x_akt> = [#<x_pocz> + #<akt_glebokosc>]
    (debug, #<x_akt>)

    G0 X[#<x_pocz> + #<akt_glebokosc>] Z#<z_pocz>
    G33 K#<skok> X[#<x_konc> + #<akt_glebokosc>] Z[#<z_pocz> - #<dlugosc>]
    /G0 X[#<x_konc> - #<wyjazd>]
    /G0 X[#<x_pocz> - #<wyjazd>] Z#<z_pocz>
    G0 X[#<x_konc> + #<akt_glebokosc> - #<wyjazd>]
    G0 Z#<z_pocz>

  o1000 endwhile
o500 else
  (zewnetrzny)
  o504 if[#<korekta> EQ 1]
    #<akt_glebokosc> = [#<x_pocz>-#<x_biez>  ]
  o504 else
    #<akt_glebokosc> = 0
  o504 endif

  G0 X#<x_pocz> Z[#<z_pocz> + 5]

  o2000 while [#<akt_glebokosc> LT #<glebokosc>]
    #<akt_glebokosc> = [#<akt_glebokosc> + #<dobieranie>]
    o2010 if [#<akt_glebokosc> GT #<glebokosc>]
      #<akt_glebokosc> = #<glebokosc>
    o2010 endif
    #<x_akt> = [#<x_pocz> - #<akt_glebokosc>]
    (debug, #<x_akt>)

    G0 X[#<x_pocz> - #<akt_glebokosc>] Z#<z_pocz>
    G33 K#<skok> X[#<x_konc> - #<akt_glebokosc>] Z[#<z_pocz> - #<dlugosc>]
    G0 X[#<x_konc> + #<wyjazd>]
    G0 X[#<x_pocz> + #<wyjazd>] Z#<z_pocz>

  o2000 endwhile  
o500 endif

m30

o<gwint> endsub