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

N5390 L6

N5400 G0 G95 Z-360 S620 M4

N5410 G0 X64 M8

;NCG#CYC97#\CST.DIR\DREHEN.COM#NC1#1#*NCG;*RO*;*HD*

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

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

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

N5430 G0 X70 M9

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

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

N5460 STOPRE

N5470 JUMP=29

N5480 WAITM(33,1,2);****************************************

;*****OP58-64_UNCLAMPING_AND_END*****

N5490 STEP29:

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

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

N5520 SPOS=0

N5530 H2405

N5540 T="112";===Ш63_Pos.1===

N5550 L6

N5560 G0 G153 W2=AXW2CHUCKPOS W3=AXW3CHUCKPOS

N5570 H8027 H8134

N5580 H2406

N5590 M134 M27

N5600 M167 M267

N5610 R86=2220120

N5620 H2600

N5630 STOPRE

N5640 G0 G153 W1=AXW1HOME

N5650 G0 G153 W2=AXW2HOME W3=AXW3HOME

N5660 M58 M47 H4004

N5670 SETPIECE(1)

N5680 L97

;CANCEL(1)

N5690 JUMP=0

N5700 STOPRE

N5710 WAITM(34,1,2);****************************************

N5720 GOTOF END

;-----------------------------------------------------------N5730 ERROR_1:STOPRE

N5740 SETAL(65226) ; PLEASE START THE STARTUP PROGRAM

N5750 M0

N5760 GOTOB ERROR_1

;-----------------------------------------------------------N5770 END:

N5780 M30

Револьверная головка 2

N10 G0 G153 X2=($AA_SOFTENDP[X2]*2)-1 Y2=0 D0

N20 G0 G153 Z2=1250 D0 H2363

N30 LIMS=1500

N40 WAITM(1,1,2);*****************************************

;---------------------------------------------------------N50 IF JUMP==0 GOTOF NO_JUMP

;---------------------------------------------------------N60 WAITM(2,1,2);*****************************************

N70 WAITM(3,1,2);*****************************************

N80 STOPRE

;---------------------------------------------------------N90 CASE JUMP OF 0 GOTOF NO_JUMP 1 GOTOF STEP1 2 GOTOF STEP2 3 GOTOF STEP3 4 GOTOF STEP4 5 GOTOF STEP5 6 GOTOF STEP6

N100 CASE JUMP OF 7 GOTOF STEP7 8 GOTOF STEP8 9 GOTOF STEP9 10 GOTOF STEP10 11 GOTOF STEP11 12 GOTOF STEP12

N110 CASE JUMP OF 13 GOTOF STEP13 14 GOTOF STEP14

CASE JUMP OF 15 GOTOF STEP15 16 GOTOF STEP16 17 GOTOF STEP17 18 GOTOF STEP18

N120 CASE JUMP OF 19 GOTOF STEP19 20 GOTOF STEP20 21 GOTOF STEP21 22 GOTOF STEP22 23 GOTOF STEP23 24 GOTOF STEP24

N130 CASE JUMP OF 25 GOTOF STEP25 26 GOTOF STEP26 27 GOTOF STEP27 28 GOTOF STEP28 29 GOTOF STEP29

;---------------------------------------------------------N140 NO_JUMP:

;*****POSITION_CHECK_FOR_CLAMPING

N150 WAITM(4,1,2);**************************

;*****OP3-5_PART_CLAMPING_FOR_CENTERING*****

N160 M24 ;M26

N170 T="203"   ;ANDRUECKER_Pos.3

N180 L6

N190 G0 G153 Z2=1090 D0

N200 G0 G153 X2=515 D0

N210 G94 G1 G153 Z2=1055 F500 D0

N220 G0 G153 W2=AXW2HOME W3=AXW3HOME

H8027

N230 M134

N240 M25 M27

N250 R86=2210100

N260 STOPRE

N270 H2600

N280 STOPRE

M27

N290 G0 G153 Z2=1100 D0

N300 G0 G153 X2=($AA_SOFTENDP[X2]*2)-1 D0

N310 G0 G95 G153 Z2=1250 D0 H2363

N320 JUMP=1

N330 WAITM(5,1,2);*****************************************

;*****OP6-7_MILLING_CENTERING_LHS*****

N340 STEP1:

N350 WAITM(6,1,2);*****************************************

;*****OP8_MOVING_TO_DRILL_CENTER_POS_RHS*****

N360 STEP2:

N370 WAITM(7,1,2);*****************************************

;*****OP9+10_DRILL_CENTER_RHS*****

N380 STEP3:

N390 $P_UBFR=CTRANS(X2,0,Z2,DRILL_CENTER_POS_RHS):CFINE(X2,0,Z2,0)

;WORKPIECE_ZERO_POINT_DRILL_CENTER_RHS

N400 G54

N410 STOPRE

N420 DRILL_CENTER_CH2

N430 STOPRE

N440 JUMP=4

N450 WAITM(8,1,2);*****************************************

;*****OP11-14_TAILSTOCK_MOVING_TO_PART*****

N460 STEP4:

N470 WAITM(9,1,2);*****************************************

;*****Op15_CLAMPING_DIAMETER_LHS*****

N480 STEP5:

N490 $P_UBFR=CTRANS(X2,0,Z2,TURNPOS):CFINE(X2,0,Z2,0)

;WORKPIECE_ZERO_POINT_TURNPOS

N500 G54

N510 STOPRE

N520 WAITM(10,1,2);*****************************************

;*****OP16-17_CHUCKS_CLAMPING_CENTER_BACK_LHS*****

N530 STEP6:

N540 WAITM(11,1,2);*****************************************