% O6001(RASTO4KA) #24 = 100 (*X*) #25 = 12 (*Y*) #7 = 71 (*D* - KONECHNIY DIAMETR) #11 = 10 (*H* - GLUBINA) #17 = 1 (*Q* - SHAG PO Z) #22 = 1 (*V*: 1 - POPUTNO, 0 - VSTRECHNO) #23 = 100 ( *W* - BEZOPASTOST) #18 = 15 (*R* - VREZANIE) #3=360 (PODVOD) #4=2 (*I* - RADIUS PODVODA CENTR) #5=1 (*J* - SHAG PODVODA) #6=400 (*K* - PODACHA PODVODA) (INSTRUMENT) (FREZA) #20=13 (*T* - NOMER INSTR) #9=400 (*F* - PODACHA) #19=1350 (*S* - OBOROTI) #21=8 (*U* - SOJ: 8/58) #1=59 (*A* - SITEMA KOORDINAT) #101=#[13000+#4111] #102=#[12000+#4111] #131=#101+#102 #131=49.932 (DIAMETR FREZI) IF[#22EQ1]THEN#114=2 IF[#22NE1]THEN#114=3 #198=0 G0 G90 G#1 X#24 Y#25 Z#23 G91 X0 Y0 #160=[#7-#131]/2(R OBRABOTKI) G0 Z[#23-#18] G[#114] X#4 Y0 R[#4/2] F#6 G05 P10000 R8 (PODVOD START) #180=#18 WHILE[#180GT0] DO1 IF[#180GT0] THEN #180=#180-#5 IF[#180LT0] THEN #180=0 G[#114] X-#4*2 Y0 Z[-#5/2] R#4 F#6 G[#114] X#4*2 Y0 Z[-#5/2] R#4 F#6 END1 (END PODVOD) G[#114] X-[#160+#4*2] Y0 Z0 R[#160/2] F#9 #181 = #17/#3 (FREZEROVKA START) #180=0 WHILE[#180LT#11]DO1 #180=#180+#17 IF[#180GT#11]THEN#180=#11 #183=0 WHILE[#183LE#3]DO2 G[#114] X[#160*SIN[#183]] Y[#160*COS[#183]] Z-[#17/#3] R#160 F#9 #183 = #183 + 1 END2 END1 (FREZEROVKA END) (PODREZKA DNA) G[#114] X0 Y-#160 Z-#11 R#160 F#9 G[#114] X0 Y#160 Z-#11 R#160 F#9 (VIHOD) G[#114] X0 Y0 R[#160/2] F#9 G0Z#18 G05 P0 M5 IF[#21EQ8]THEN#198=9 IF[#21NE8]THEN#198=59 M#198 G28 G91 Z0 G28 G91 Y0 G40 G49 G90 G54 M99 % ************************ % O6001(RASTO4KA) #24 = 0 (*X*) #25 = 0 (*Y*) #7 = 71 (*D* - KONECHNIY DIAMETR) #11 = 10 (*H* - GLUBINA) #17 = 1 (*Q* - SHAG PO Z) #22 = 1 (*V*: 1 - POPUTNO, 0 - VSTRECHNO) #23 = 100 ( *W* - BEZOPASTOST) #18 = 15 (*R* - VREZANIE) #3=360 (PODVOD) #4=2 (*I* - RADIUS PODVODA CENTR) #5=1 (*J* - SHAG PODVODA) #6=400 (*K* - PODACHA PODVODA) (INSTRUMENT) (FREZA) #20=13 (*T* - NOMER INSTR) #9=400 (*F* - PODACHA) #19=1350 (*S* - OBOROTI) #21=8 (*U* - SOJ: 8/58) #1=59 (*A* - SITEMA KOORDINAT) #101=#[13000+#4111] #102=#[12000+#4111] #131=#101+#102 #131=49.932 (DIAMETR FREZI) IF[#22EQ1]THEN#114=2 IF[#22NE1]THEN#114=3 #198=0 G0 G90 G#1 X#24 Y#25 G52 X0 Y0 #160=[#7-#131]/2(R OBRABOTKI) G0 Z#18 G[#114] X#4 Y0 R[#4/2] F#6 G05 P10000 R8 (PODVOD START) #180=#18 WHILE[#180GT0] DO1 IF[#180GT0] THEN #180=#180-#5 IF[#180LT0] THEN #180=0 G[#114] X-#4 Y0 Z[#180+#5/2] R#4 F#6 G[#114] X#4 Y0 Z#180 R#4 F#6 END1 (END PODVOD) G[#114] X-#160 Y0 Z0 R[#160/2] F#9 #181 = #17/#3 (FREZEROVKA START) #180=0 WHILE[#180LT#11]DO1 #180=#180+#17 IF[#180GT#11]THEN#180=#11 #183=0 WHILE[#183LE#3]DO2 G[#114] X[#160*SIN[#183]] Y[#160*COS[#183]] Z-[#180-#181*[#3-#183]] R#160 F#9 #183 = #183 + 1 END2 END1 (FREZEROVKA END) (PODREZKA DNA) G[#114] X0 Y-#160 Z-#11 R#160 F#9 G[#114] X0 Y#160 Z-#11 R#160 F#9 (VIHOD) G[#114] X0 Y0 R[#160/2] F#9 G0Z#18 G05 P0 M5 IF[#21EQ8]THEN#198=9 IF[#21NE8]THEN#198=59 M#198 G28 G91 Z0 G28 G91 Y0 G40 G49 G90 G54 M99 %