Dekuji , nepotrebuji vsak uzivatelsky manual ke stroji, tech mam dost, ja bych potreboval tu vnitrni logiku, tech ruznych cyklu.¨
At to nemusim vymyslet a ma to hlavu a patu
Je jedno v jakem to bude formatu ci jazyce.
Treba tento umi vrtat diry na kruznici. Lze jej pouzit beze zmen primo jak je , ale take ho lze treba prepsat v C+ , udelat tomu zadavaci okno parametru ,,,, a je to.
G21 G90 G17 G40
#1=0 (STRED X)
#2=0 (STRED Y)
#3=50 (polomer ROZTECNE KRUZNICE)
#4=8 (POCET DER)
#5=8 (POCET SKUTECNE VRTANYCH DER//OMEZENI//)
#6=10 (HLOUBKA VRTANI)
#7=25 (POCATECNI/KONCOVA VYSKA)
#8=0 (UHEL PRVNI DIRY)
#9=1 (DRUH CYKLU ZADEJ 1-3)
#10=2 (PRISUV PO KOLIK MA VRTAT)
#11=1 (CASOVA PRODLEVA V SEKUNDACH)
#12=200 (PRACOVNI POSUV)
#13=2 (BEZPECNA VZDALENOST)
#<stredX> = #1
#<stredY> = #2
#<polomer> = #3
#<pocet_der> = #4
#<pocet_der_vrtanych> = #5
#<hloubka_vrtani> = [0-#6]
#<Z_velikost> = #7
#<startovni_uhel> = #8
#<druh_cyklu> = #9
#<vel_trisky> = #10
#<casova_prodleva> = #11
#<pracovni_posuv> = #12
#<R_velikost>= #13
o100 if [#<pocet_der_vrtanych> eq 0]
#<pocet_der_vrtanych> = #<pocet_der>
o100 endif
#<index> = 0
#<startovni_uhel_incr> = [360/#<pocet_der>]
G0 Z#<Z_velikost>
G0 X#<stredX> Y#<stredY>
o2 while [#<index> LT #<pocet_der_vrtanych>]
#<Xpos> = [#<stredX> + #<polomer>*cos[#<startovni_uhel>]]
#<Ypos> = [#<stredY> + #<polomer>*sin[#<startovni_uhel>]]
o3 if [#<druh_cyklu> EQ 1]
G81 X#<Xpos> Y#<Ypos> Z#<hloubka_vrtani> R#<R_velikost> F#<pracovni_posuv>
o3 elseif [#<druh_cyklu> EQ 2]
G82 X[#<Xpos>] Y[#<Ypos>] Z[#<hloubka_vrtani>] R[#<R_velikost>] F[#<pracovni_posuv>] P[#<casova_prodleva>]
o3 elseif [#<druh_cyklu> EQ 3]
G83 X[#<Xpos>] Y[#<Ypos>] Z[#<hloubka_vrtani>] R[#<R_velikost>] F[#<pracovni_posuv>] Q[#<vel_trisky>]
o3 endif
#<startovni_uhel> = [#<startovni_uhel> + #<startovni_uhel_incr>]
#<index> = [#<index> + 1]
o2 endwhile
G0 Z#<Z_velikost>
G80
M2
RADEK
){ 
:& };: