Siemens. Револьверная головка 1, страница 4

;#"метрич."#1#1#4#4#2#2#1#1#5#4#1#1#1#1#"Снаружи"#"ПостСечСтруж"#1#1#1##1##1#*NCG;*RO*;*HD*

N4130 CYCLE97(2,0,-360,-328,64,64,0,0,1.227,0.03,0,0,6,2,3,1,0)

;#END#*NCG;*RO*;*HD*

N4140 G0 X70 M9

N4150 G0 G153 X=($AA_SOFTENDP[X]*2)-1 D0

N4160 STOPRE

N4170 JUMP=24

N4180 WAITM(28,1,2);****************************************

;*****OP50a_MEASURING_CUT_DIA_65k6_75g6*****

N4190 STEP24:

;N4200 TEMP

N4210 $P_UBFR=CTRANS(X,0,Z,TURNPOS):CFINE(X,0,Z,0)

N4220 G54

N4230 STOPRE

;N4240 TRANS X=TEMPK/2

N4250 T="108"   ;WP. DCMT 11T308-PF4_Pos.8

N4260 L6

N4270 G0 G96 Z-329 D1 S220 M4

N4280 G0 G41 X66.009 M8

N4290 G1 Z-299 F0.2

N4300 G1 X70 D2 F1

N4310 G1 X74.981 Z-297.3

N4320 G1 X75.981 Z-296.8 F0.2

N4330 G1 Z-236

N4340 G3 X77.981 Z-235 CR=1

N4350 G1 X83

N4360 G0 G40 X300 Z-300 M5 M9

N4370 G0 G153 X=($AA_SOFTENDP[X]*2)-1 D0

N4380 G0 G153 Z=$AA_SOFTENDN[Z]+1 D0

N4390 BACK1:

N4400 MSG ("DIA_66.009/D1_UND_75.981/D2_MEASURING_AND_T=108_CORRECTION!!")

N4410 M58

N4420 M0

N4430 STOPRE

N4440 MSG ("")

N4450 MSG ("DIA_66.009_AND_75.981_MEASUR._AND_CORRECTED??")

N4460 H2010

N4470 IF $A_DBB[$P_CHANNO]<>1

N4480      STOPRE

N4490      GOTOB BACK1

N4500 ENDIF

N4510 M59

N4520 MSG ("")

;*****OP50b_FIN_DIA_65k6_75g6*****

N4530 T="108"   ;WP. DCMT 11T308-PF4_Pos.8

N4540 L6

N4550 G0 G96 Z-329 D1 S220 M4

N4560 G0 G41 X65.009 M8

N4570 G1 Z-299 F0.2

N4580 G1 X70 D2 F1

N4590 G1 X73.981 Z-297.3

N4600 G1 X74.981 Z-296.8 F0.2

N4610 G1 Z-236

N4620 G3 X76.981 Z-235 CR=1

N4630 G1 X83

N4640 G0 G40 X100 Z-300 M9

N4650 G0 G153 X=($AA_SOFTENDP[X]*2)-1 D0

N4660 G0 G153 Z=$AA_SOFTENDN[Z]+1 D0

N4670 STOPRE

N4680 JUMP=25

N4690 WAITM(29,1,2);****************************************

;*****OP51_DIA_95js6_105.110*****

N4700 STEP25:

N4710 WAITM(30,1,2);****************************************

;*****OP52_UNDERCUT_DIA_72x2.8*****

N4720 STEP26:

N4730 $P_UBFR=CTRANS(X,0,Z,TURNPOS):CFINE(X,0,Z,0)

N49300 G54

N4740 STOPRE

N4750 $P_UIFR[1]=CTRANS(X,0,Z,-235.0):CFINE(X,0,Z,0)

N4760 G54

N4770 T="107"   ;WP. GX16-1 E250 N020-UF4_Pos.7

N4780 L6

N4790 G0 G96 Z-57.6375 S200 M4

N4800 G0 X77 M8

N4810 G1 X71.85 F0.12;===vorstechen

N4820 G1 X75.5 F1

N4830 G1 X75.2 Z-58.15 F0.3

N4840 G1 X74.6 Z-57.85 F0.12;===Fase_0.15x45°===

N4850 G1 X71.80

N4860 G1 Z-57.6375

N4870 G1 X75.5 F1

N4880 STOPRE

N4890 D2

N4900 STOPRE

N4910 G1 X75.2 Z-54.625 F0.3

N4920 G1 X74.6 Z-54.925 F0.12;===Fase_0.15x45°===

N4930 G1 X71.80

N4940 G1 Z-55.13

N4950 G1 X75.5 F1 M9

N4960 G0 G153 X=($AA_SOFTENDP[X]*2)-1 M5 D0

N4970 STOPRE

N4980 JUMP=27

N4990 WAITM(31,1,2);****************************************

;*****OP53-56_MILLING_LOCK-NOTCH_BOTH_SIDES*****

N5000 STEP27:

N5010 $P_UBFR=CTRANS(X,0,Z,TURNPOS,C,22):CFINE(X,0,Z,0,C,0)

N5020 G54

N5030 STOPRE

N5040 $P_UIFR[1]=CTRANS(X,0,Z,-357.555):CFINE(X,0,Z,0)

N5050 G54

N5060 T="110"   ;VHM-END_MILLING_CUTTER H3121217-10 TAX

N5070 L6

N5080 M70

N5090 G94 S3=2000 M3=4 ;===S3_REAL=4000===

N5100 G0 Z-3.5 C0

N5110 G0 X66 M8

G1 X64 F150

METKA_27_AA:

G1 X=IC(-1) F100

G1 Z10 F380

G1 Z-3.5 F900

METKA_27_BB:

REPEAT METKA_27_AA METKA_27_BB P=9

N5120 G1 X53 F100;===Nuttiefe_5.5mm===

N5130 G1 Z10 F380;550===0.05/Zahn===

N5140 G1 Z-3.5 F900

G1 X66 F2000

N5150 G0 C120

G1 X64 F150

REPEAT METKA_27_AA METKA_27_BB P=9

N5180 G1 X53 F100;===Nuttiefe_5.5mm===

N5190 G1 Z10 F380;===0.05/Zahn===

N5200 G1 Z-3.5 F900

N5210 G1 X66 F2000

N5220 G0 C240

G1 X64 F150

REPEAT METKA_27_AA METKA_27_BB P=9

N5230 G1 X53 F100

N5240 G1 Z10 F380;===0.05/Zahn===

N5250 G1 Z-3.5 F900

N5260 G1 X66 F2000 M9

N5270 G0 G153 X=($AA_SOFTENDP[X]*2)-1 M3=5 D0

N5280 STOPRE

N5290 JUMP=28

N5300 WAITM(32,1,2);****************************************

;*****OP57_DEBURRING_THREAD_M64x2*****

N5310 STEP28:

N5320 $P_UBFR=CTRANS(X,0,Z,TURNPOS,C,0):CFINE(X,0,Z,0,C,0)

N5330 G54

N5340 STOPRE

N5350 $P_UIFR[1]=CTRANS(X,0,Z,0):CFINE(X,0,Z,0)

N5360 G54

N5370 STOPRE

N5380 T="109"   ;WP. TC 16-1 E1.5 ISO GM213_Pos.9