Siemens. Револьверная головка 1

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

R2=$A_DBW[38]/10

IF R2<10

MSG("TOO LOW TEMPERATURE "<<R2<<" < 15GRAD. INSIDE MACHINE")

M0

ENDIF;  ID=1 WHEN JUMP==9 DO H7=15

N10 TURNPOS=646.85;--646

N20 MILL_CENTER_POS_LHS=964;--------967

N30 DRILL_CENTER_POS_RHS=641;--641

N40 SHAFT_LENGTH=-357.553; (-356.553)

N50 DISC_LENGTH=39; (DRILL_CENTER_CH.SPF)

;N150 AXW2TURNPOS=615

N60 AXW2CHUCKPOS=428

N70 AXW3CHUCKPOS=630

N80 AXW2HOME=760

N90 AXW3HOME=947

N100 AXW1PART=760

SOFT

N110 ACC[S]=20

N120 M59 H50=1; M46

N130 H7012  ;ANTRIEBSPARAMETERSATZ 2

N140 H4003

N150 INIT(2,"MK23_M03_653_VORBEAR_CH2")

N160 START(2)

N170 STOPRE

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

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

N200 LIMS=1500

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

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

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

N240 MSG("JUMP_TRANS_KIBER_PEREHOD NADO?    DA/NET")

N250 H2010

N260 IF $A_DBB[$P_CHANNO]==2

N270   JUMP=0

N280 ENDIF

N290 MSG("")

N300 STOPRE

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

;---------------------------------------------------------N320 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

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

N340 CASE JUMP OF 13 GOTOF STEP13 14 GOTOF STEP14

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

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

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

;---------------------------------------------------------N370 NO_JUMP:

;*****POSITION_CHECK_FOR_CLAMPING

N380 BACK1:

N390 IF (($AA_IM[W2])<>(AXW2HOME)) AND (($AA_IM[W3])<>(AXW3HOME))

N400               MSG ("CLAMPING UNIT NOT IN POSITION-UNLOADING PART")

N410               M58

N420               M0

N430               MSG ("")

N440               MSG ("IF PART UNLOADING ??")

N450               H2010

N460                           IF $A_DBB[$P_CHANNO]<>1

N470                                       STOPRE

N480                                       GOTOB BACK1

N490                           ENDIF

N500               M59

N510               G0 G153 W2=AXW2HOME W3=AXW3HOME

N520               STOPRE

N530               G4 F1

N540               MSG ("TEIL LADEN")

N550               M58

N560               M0

N570               BACK2:

N580               MSG ("")

N590               MSG ("PART LOADING ??")

N600               H2010

N610                           IF $A_DBB[$P_CHANNO]<>1

N620                                       STOPRE

N630                                       GOTOB BACK2

N640                           ENDIF

N650   MSG ("")

N660   M59

N670 ENDIF

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

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

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

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

N700 STEP1:

N710 $P_UBFR=CTRANS(X,0,Z,MILL_CENTER_POS_LHS):CFINE(X,0,Z,0)

N720 G54

N730 STOPRE

N740 MILL_CENTER_CH1

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

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

N770 STOPRE

N780 JUMP=2

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

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

N800 STEP2:

N810 TRAILON(W2,W3)

N820 G1 G94 G153 W3=635 F2000

N830 FXS[W3]=1 G1 G153 F200 FXST[W3]=10 W3=615

N840 FXS[W3]=0

N850 TRAILOF(W2,W3)

N860 STOPRE

N870 JUMP=3

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

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

N890 STEP3:

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

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

N910 STEP4:

N920 IF $A_DBB[445]==5 GOTOF LOESEN

N930 G0 G153 W1=760

N940 STOPRE

N950 M266

N960 LOESEN:

N970 M26 M24

N980 M166

N990 M135

N1000 G0 G153 W2=330 W3=600

N1010 STOPRE

N1020 JUMP=5

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

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

N1040 STEP5:

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

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

N1070 G54

N1080 STOPRE

N1090 T="103"   ;DNMG 150612-NM9_Pos.3

N1100 L6

N1110 M111

N1120 R86=2100010

N1130 H2600

N1140 STOPRE

N1150 G0 G95 S520 Z-365 M4 M41

N1160 G0 X110

N1220 G1 X91.5 F1 M8

N1230 G1 Z-335 F0.4