0 BEGIN PGM 13_002_2_EN MM 1 ;Program for machining the front side of the 2 ;watchcase. The workpiece misalignment and 3 ;the preset in X and Y can be determined based 4 ;on the holes that were drilled from the 5 ;rear side. 6 ; 7 BLK FORM 0.1 Z X-49 Y+0 Z-38 8 BLK FORM 0.2 X+49 Y+85 Z+5 9 ; 10 ;Reset tilt and datum 11 CALL LBL "RESET" 12 ; 13 ;Tool call for plane surface, shoulder and 14 ;circular pocket 15 TOOL CALL 11 Z S9550 F2000 16 L Z+100 R0 FMAX M3 17 ; 18 ;Machine plane surface 19 CYCL DEF 233 FACE MILLING ~ Q215=+0 ;MACHINING OPERATION ~ Q389=+4 ;MILLING STRATEGY ~ Q350=+1 ;MILLING DIRECTION ~ Q218=+100 ;FIRST SIDE LENGTH ~ Q219=+100 ;2ND SIDE LENGTH ~ Q227=+5 ;STARTNG PNT 3RD AXIS ~ Q386=+0 ;END POINT 3RD AXIS ~ Q369=+0.2 ;ALLOWANCE FOR FLOOR ~ Q202=+5 ;MAX. PLUNGING DEPTH ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q385= AUTO ;FINISHING FEED RATE ~ Q253= MAX ;F PRE-POSITIONING ~ Q357=+2 ;CLEARANCE TO SIDE ~ Q200=+2 ;SET-UP CLEARANCE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q347=+0 ;1ST LIMIT ~ Q348=+0 ;2ND LIMIT ~ Q349=+0 ;3RD LIMIT ~ Q220=+0 ;CORNER RADIUS ~ Q368=+0 ;ALLOWANCE FOR SIDE ~ Q338=+0 ;INFEED FOR FINISHING 20 L X-50 Y-7.5 R0 FMAX M99 21 ; 22 ;Mill shoulder 23 CYCL DEF 233 FACE MILLING ~ Q215=+0 ;MACHINING OPERATION ~ Q389=+2 ;MILLING STRATEGY ~ Q350=+1 ;MILLING DIRECTION ~ Q218=+98 ;FIRST SIDE LENGTH ~ Q219=-67 ;2ND SIDE LENGTH ~ Q227=+0 ;STARTNG PNT 3RD AXIS ~ Q386=-14 ;END POINT 3RD AXIS ~ Q369=+0.2 ;ALLOWANCE FOR FLOOR ~ Q202=+5 ;MAX. PLUNGING DEPTH ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q385= AUTO ;FINISHING FEED RATE ~ Q253= MAX ;F PRE-POSITIONING ~ Q357=+2 ;CLEARANCE TO SIDE ~ Q200=+2 ;SET-UP CLEARANCE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q347=-2 ;1ST LIMIT ~ Q348=+0 ;2ND LIMIT ~ Q349=+0 ;3RD LIMIT ~ Q220=+0 ;CORNER RADIUS ~ Q368=+0.2 ;ALLOWANCE FOR SIDE ~ Q338=+0 ;INFEED FOR FINISHING 24 L X-49 Y+85 R0 FMAX M99 25 ; 26 ;Mill circular pocket 27 L X+0 Y+50 R0 FMAX 28 CYCL DEF 252 CIRCULAR POCKET ~ Q215=+0 ;MACHINING OPERATION ~ Q223=+60 ;CIRCLE DIAMETER ~ Q368=+0.2 ;ALLOWANCE FOR SIDE ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q351=+1 ;CLIMB OR UP-CUT ~ Q201=-5 ;DEPTH ~ Q202=+5 ;PLUNGING DEPTH ~ Q369=+0.2 ;ALLOWANCE FOR FLOOR ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q338=+0 ;INFEED FOR FINISHING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q203=-14 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q366=+1 ;PLUNGE ~ Q385= AUTO ;FINISHING FEED RATE 29 M99 30 L Z+100 R0 FMAX M5 ;Retract 31 ; 32 ;Tool call for pre-milling of contour 33 TOOL CALL 16 Z S2000 F300 34 L Z+100 R0 FMAX M3 35 CYCL DEF 14.0 CONTOUR 36 CYCL DEF 14.1 CONTOUR LABEL1 37 CYCL DEF 25 CONTOUR TRAIN ~ Q1=-7 ;MILLING DEPTH ~ Q3=+0.5 ;ALLOWANCE FOR SIDE ~ Q5=-14 ;SURFACE COORDINATE ~ Q7=+50 ;CLEARANCE HEIGHT ~ Q10=-5 ;PLUNGING DEPTH ~ Q11= AUTO ;FEED RATE FOR PLNGNG ~ Q12= AUTO ;FEED RATE F. ROUGHNG ~ Q15=+1 ;CLIMB OR UP-CUT 38 M99 39 L Z+100 R0 FMAX M5 40 ; 41 ;Tool call for the chamfer, the pockets and 42 ;for finishing the contour 43 TOOL CALL 5 Z S14000 F2500 44 ; 45 ;Retract to safe position 46 CALL LBL "S-POS" 47 ; 48 ;Shift datum 49 CYCL DEF 7.0 DATUM SHIFT 50 CYCL DEF 7.1 Y+18 51 CYCL DEF 7.2 Z-14 52 ; 53 ;Tilt working plane 54 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX 55 L Z+100 R0 FMAX M3 56 L X-55 Y+0 R0 FMAX 57 CYCL DEF 251 RECTANGULAR POCKET ~ Q215=+0 ;MACHINING OPERATION ~ Q218=+110 ;FIRST SIDE LENGTH ~ Q219=+22 ;2ND SIDE LENGTH ~ Q220=+5 ;CORNER RADIUS ~ Q368=+0.2 ;ALLOWANCE FOR SIDE ~ Q224=+0 ;ANGLE OF ROTATION ~ Q367=+4 ;POCKET POSITION ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q351=+1 ;CLIMB OR UP-CUT ~ Q201=-10 ;DEPTH ~ Q202=+5 ;PLUNGING DEPTH ~ Q369=+0.2 ;ALLOWANCE FOR FLOOR ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q338=+5 ;INFEED FOR FINISHING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q203=+10 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q366=+2 ;PLUNGE ~ Q385= AUTO ;FINISHING FEED RATE 58 M99 59 L Z+100 R0 FMAX 60 ; 61 ;Reset tilt and datum 62 CALL LBL "RESET" 63 ; 64 ;Mill rectangular pocket 65 L Z+100 R0 FMAX 66 CYCL DEF 251 RECTANGULAR POCKET ~ Q215=+0 ;MACHINING OPERATION ~ Q218=+12 ;FIRST SIDE LENGTH ~ Q219=+30 ;2ND SIDE LENGTH ~ Q220=+0 ;CORNER RADIUS ~ Q368=+0.2 ;ALLOWANCE FOR SIDE ~ Q224=+0 ;ANGLE OF ROTATION ~ Q367=+0 ;POCKET POSITION ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q351=+1 ;CLIMB OR UP-CUT ~ Q201=-5 ;DEPTH ~ Q202=+3 ;PLUNGING DEPTH ~ Q369=+0.2 ;ALLOWANCE FOR FLOOR ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q338=+5 ;INFEED FOR FINISHING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q203=-21 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q366=+2 ;PLUNGE ~ Q385= AUTO ;FINISHING FEED RATE 67 L X-41 Y+66 R0 FMAX M99 68 L X+41 Y+66 R0 FMAX M99 69 ; 70 ;Finish contour 71 CYCL DEF 14.0 CONTOUR 72 CYCL DEF 14.1 CONTOUR LABEL1 73 CYCL DEF 25 CONTOUR TRAIN ~ Q1=-7 ;MILLING DEPTH ~ Q3=+0 ;ALLOWANCE FOR SIDE ~ Q5=-14 ;SURFACE COORDINATE ~ Q7=+50 ;CLEARANCE HEIGHT ~ Q10=-5 ;PLUNGING DEPTH ~ Q11= AUTO ;FEED RATE FOR PLNGNG ~ Q12= AUTO ;FEED RATE F. ROUGHNG ~ Q15=+1 ;CLIMB OR UP-CUT 74 M99 75 L Z+100 R0 FMAX M5 ;Retract 76 ; 77 ;Tool call for deburring 78 TOOL CALL 172 Z S900 F500 79 L Z+100 R0 FMAX M3 80 ; 81 ;Deburr holes 82 L X+0 Y+50 R0 FMAX 83 CYCL DEF 240 CENTERING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q343=+1 ;SELECT DIA./DEPTH ~ Q201=-2 ;DEPTH ~ Q344=-9 ;DIAMETER ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q211=+0 ;DWELL TIME AT DEPTH ~ Q203=-19 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE 84 M99 85 CYCL DEF 240 CENTERING ~ Q200=+3 ;SET-UP CLEARANCE ~ Q343=+1 ;SELECT DIA./DEPTH ~ Q201=-2 ;DEPTH ~ Q344=-6 ;DIAMETER ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q211=+0 ;DWELL TIME AT DEPTH ~ Q203=-19 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE 86 PATTERN DEF ~ CIRC1( X+0 Y+50 D46 START+0 NUM4 Z+0 ) 87 CYCL CALL PAT FMAX 88 ; 89 ;Tool call with DR for the chamfer 90 TOOL CALL 172 Z S900 F500 DR-4.5 91 ; 92 ;Deburr circular pocket 93 L X+0 Y+50 R0 FMAX 94 CYCL DEF 252 CIRCULAR POCKET ~ Q215=+2 ;MACHINING OPERATION ~ Q223=+60 ;CIRCLE DIAMETER ~ Q368=+0.1 ;ALLOWANCE FOR SIDE ~ Q207= AUTO ;FEED RATE FOR MILLNG ~ Q351=+1 ;CLIMB OR UP-CUT ~ Q201=-0.8 ;DEPTH ~ Q202=+5 ;PLUNGING DEPTH ~ Q369=+0 ;ALLOWANCE FOR FLOOR ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q338=+1 ;INFEED FOR FINISHING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q203=-14 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q370=+1 ;TOOL PATH OVERLAP ~ Q366=+1 ;PLUNGE ~ Q385= AUTO ;FINISHING FEED RATE 95 M99 96 ; 97 ;Deburr contour 98 CYCL DEF 14.0 CONTOUR 99 CYCL DEF 14.1 CONTOUR LABEL1 100 CYCL DEF 25 CONTOUR TRAIN ~ Q1=-2.5 ;MILLING DEPTH ~ Q3=+0 ;ALLOWANCE FOR SIDE ~ Q5=-14 ;SURFACE COORDINATE ~ Q7=+50 ;CLEARANCE HEIGHT ~ Q10=-2.3 ;PLUNGING DEPTH ~ Q11= AUTO ;FEED RATE FOR PLNGNG ~ Q12= AUTO ;FEED RATE F. ROUGHNG ~ Q15=+1 ;CLIMB OR UP-CUT 101 M99 102 L Z+100 R0 FMAX M5 ;Retract 103 ; 104 ;Tool call for centering 105 TOOL CALL 204 Z S6000 F400 106 L Z+100 R0 FMAX M3 107 ; 108 ;Centering on the dial face 109 L X+0 Y+50 R0 FMAX 110 CYCL DEF 240 CENTERING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q343=+1 ;SELECT DIA./DEPTH ~ Q201=-2 ;DEPTH ~ Q344=-5 ;DIAMETER ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q211=+0 ;DWELL TIME AT DEPTH ~ Q203=-19 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE 111 CC X+0 Y+50 112 LP PR+23 PA+30 FMAX M99 113 LP IPA+30 R0 FMAX M99 114 LP IPA+60 R0 FMAX M99 115 LP IPA+30 R0 FMAX M99 116 LP IPA+60 R0 FMAX M99 117 LP IPA+30 R0 FMAX M99 118 LP IPA+60 R0 FMAX M99 119 LP IPA+30 R0 FMAX M99 120 L Z+100 R0 FMAX M5 ;Retract 121 ; 122 ;Centering for holes D10 123 ; 124 ;Retract to safe position 125 CALL LBL "S-POS" 126 ; 127 ;Shift datum 128 CYCL DEF 7.0 DATUM SHIFT 129 CYCL DEF 7.1 Y+4 130 ; 131 ;Tilt working plane 132 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX 133 L Z+100 R0 FMAX M3 134 L X+38 Y+9 R0 FMAX 135 CYCL DEF 240 CENTERING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q343=+1 ;SELECT DIA./DEPTH ~ Q201=-2 ;DEPTH ~ Q344=-10.5 ;DIAMETER ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q211=+0 ;DWELL TIME AT DEPTH ~ Q203=+0 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE 136 M99 137 L X-38 R0 FMAX M99 138 L Z+100 R0 FMAX M5 ;Retract 139 ; 140 ;Reset tilt and datum 141 CALL LBL "RESET" 142 ; 143 ;Tool call for drilling hole D10 144 TOOL CALL 232 Z S3000 F400 145 ; 146 ;Retract to safe position 147 CALL LBL "S-POS" 148 ; 149 ;Shift datum 150 CYCL DEF 7.0 DATUM SHIFT 151 CYCL DEF 7.1 Y+4 152 ; 153 ;Tilt working plane 154 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX 155 L Z+100 R0 FMAX M3 156 L X+38 Y+9 R0 FMAX 157 CYCL DEF 200 DRILLING ~ Q200=+2 ;SET-UP CLEARANCE ~ Q201=-9 ;DEPTH ~ Q206= AUTO ;FEED RATE FOR PLNGNG ~ Q202=+5 ;PLUNGING DEPTH ~ Q210=+0 ;DWELL TIME AT TOP ~ Q203=+0 ;SURFACE COORDINATE ~ Q204=+50 ;2ND SET-UP CLEARANCE ~ Q211=+0 ;DWELL TIME AT DEPTH ~ Q395=+1 ;DEPTH REFERENCE 158 M99 159 L X-38 R0 FMAX M99 160 L Z+100 R0 FMAX M5 ;Retract 161 ; 162 ;Reset tilt and datum 163 CALL LBL "RESET" 164 ; 165 L Z+100 R0 FMAX M30 ;Retract and program end 166 ; 167 ;Subprograms 168 ;Contour 169 LBL 1 170 L X-65 Y+22 RL 171 L X-49 172 FL X-34 AN+28 173 RND R10 174 L Y+50 175 CC X+0 Y+50 176 CP PA+0 DR- 177 FLT X+34 AN-90 178 FCT DR+ R10 179 FLT X+49 Y+22 AN-28 180 L X+65 181 LBL 0 182 ; 183 ;Safe position 184 LBL "S-POS" 185 L Z+135 R0 FMAX M91 186 L X+175 Y+140 R0 FMAX M91 187 LBL 0 188 ; 189 ;Reset tilt and datum 190 LBL "RESET" 191 ;Retract to safe position 192 CALL LBL "S-POS" 193 ;Reset the tilt 194 PLANE RESET TURN FMAX 195 ;Reset datum 196 CYCL DEF 7.0 DATUM SHIFT 197 CYCL DEF 7.1 X+0 198 CYCL DEF 7.2 Y+0 199 CYCL DEF 7.3 Z+0 200 LBL 0 201 END PGM 13_002_2_EN MM