O SUB g4p0.1 ;;;;;;;;;# = ROUND[[#5]] ;;;;;;;;;# = [[#5] - #] ;;;;;;;;;M64 P[17 + [#5]] ;USE TOOL ONE;;;; ;;;;;;;;;O 9999 IF [# GT 0.001] ;;;;;;;;;;M64 P[17 + [#5]] m65P18 m65p19 m65p20 m65p21 m65p22 m65p23 m65p24 m65p25 :::: ITS nesesary to avoid active pins;;;;;;;;;;;; m65p26 m65p27 m65p28 m65p29 m65P30 m65p31 m65p32 m65p33 m65p34 m65p35 m65p36 m65p37 m65p38 m65p39 m65p40 m65p41 m65p42 m65p43 m65p44 m65p45 m65P46 m65p47 m65p48 m65p49 m65p50 m65p51 m65p52 m65p53 m65p54 m65p55 ;;;;;;;;;;;;g4p0.1 ;;;;;;;;;;;;m66p5 o11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M64 P[17 + [#5]] M8 O21111 ENDIF O11111 ENDIF M61 Q[#9] ; G43 H[#9] ; M61 Q [5 + [#5]] g43 h [5 + [#5]] m6t[5 + [#5]] ; [#1] - position x driling ; [#2] -position y driling ; [#3] - position z before driling ; [#4] - position z how deep driling ; [#5] - number drill ; [#6] - repetition ; [#7] - x increment ; [#8] - y increment ; [#9] - if continue drilling G40 #4=-[[#3]-[#4]] (zmiana żeby nie trzeba było odejmować Z pisac wart.właściwą) g90 g0 x[#1] y[#2]z[#3] g91 g81 z[#4] r0 ;;f1500 o104 if [[#6] eq 0] g90 ;;f30000 O11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M65 P[17 + [#5]] ;M9 O21111 ENDIF O11111 ENDIF O ENDSUB o104 endif o103 if[[#7] eq 0] g91 g81 y[#8] z[#4] r0 l[#6] g90 ;;f30000 O11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M65 P[17 + [#5]] ;M9 O21111 ENDIF O11111 ENDIF O ENDSUB o103 endif g91 g81 x[#7] y0 z[#4] r0 l[#6] o105 if [[#8] eq 0] g90 ;;f30000 O11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M65 P[17 + [#5]] ;M9 O21111 ENDIF O11111 ENDIF O ENDSUB o105 endif g0 y[#8] g91 g81 z[#4] r0 g91 g81 x[#7*-1] z[#4] r0 l[#6] o106 if [[#9] gt 0] g0 y[#8] g91 g81 z[#4] r0 g91 g81 x[#7] y0 z[#4] r0 l[#6] g90 ;;f10000 O11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M65 P[17 + [#5]] ;M9 O21111 ENDIF O11111 ENDIF O ENDSUB o106 endif O11111 IF [[#5] GE 0] O21111 IF [[#5] LE 54] M65 P[17 + [#5]] ;M9 O21111 ENDIF O11111 ENDIF g90 O ENDSUB