Mne se uz dnes nechce premyslet sem ti to i psal
o2 while je jmeno a zacatek toho zacykleni
o2 endwhile je jmeno a jeho konec
G90 G17 G0 G54 - hlavicka programu , jsem tak nauceny ze stroju ktere se pri preruseni procesu dostavaji do hazardnich stavu.
Nekdy se to pise ke kazde vymene nastroje (u EMC asi zbytecne)
Svuj program vlozi misto tucneho textu v puvodnim programu.
dela to tam ctverecky.
Jak sem rikal uz se mi nechce premyslet, mam tu jen simulator.
Tak prihodim nejaky dalsi parametricky program co tu mam.
Zitra sem na cestach , tak pozitri to vyedituju s vysvetlenim.
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