;************************************************
|
;TYHI
|
;Wheel:YD918 / TSW_449_3
|
;************************************************
|
;PROGRAM-TYPE: machining program
|
;CHANNEL: 1 (RIGHT)
|
;MACHINING SIDE: 1
|
;VERSION: 2023/10/23
|
;************************************************
|
|
;********
|
;* INIT *
|
;********
|
|
N1000 DEF BOOL CM_SWORD=0
|
N1010 CLEARM ;for testing purposes
|
N1020 N_CHKCH(1) ;in channel 1?
|
;N1030 H11=18811 ;artis program no
|
;************************************************
|
;* ×ø±êϵ¸³Öµ *
|
;************************************************
|
N1040 BLANK_STOCK=WHEEL_UNMACHINED-WHEEL_MACHINED
|
N1050 IF BLANK_STOCK<0.5 GOTOF AA1
|
N1060 BLANK_STOCK_S2=BLANK_STOCK*SYM_FACTOR
|
N1070 STOPRE
|
N1080 $P_UIFR[1,AX2,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
|
;ͨµÀ(1),,G54µÚ2Öḳֵ
|
N1090 $P_UIFR[1,AX5,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
|
;ͨµÀ(1),,G54µÚ5Öḳֵ
|
N1100 $P_UIFR[2,AX2,TR]=CLAMPING_JAW_HIGH_S2 ;ͨµÀ(1),,G55µÚ2Öḳֵ
|
N1110 $P_UIFR[2,AX5,TR]=CLAMPING_JAW_HIGH_S2 ;ͨµÀ(1),,G55µÚ5Öḳֵ
|
N1120 STOPRE;Í£Ö¹Ô¤¶Á
|
N1130 IDS=101 DO R60=($AA_TOTAL_OVR[SP]/100) ;˫ͨµÀתËٵȴý³ÌÐòÉúЧ
|
;************************************************
|
;* ˫ͨµÀ¼ì²é *
|
;************************************************
|
N1140 STOPRE;
|
N1150 IF NOT N_TWOCHANNELS
|
N1160 MSG("WARNING, CHANNEL-SYNC VIA N_TWOCHANNELS DESELECTED! PRESS NC-START TO MACHINE...")
|
N1170 M0
|
N1180 MSG("")
|
N1190 STOPRE
|
N1200 ENDIF
|
|
N1210 DIAMON M41 ;(Ö±¾¶±à³Ì£¬¹¤×÷̨M41£©
|
|
N1220 CUT_MEM=R119 ;άÐÞ±ê¼ÇÉ趨
|
N1230 STOPRE
|
|
N1240 N_WAITM(51) ;__sync for selection CUT_MEM
|
|
N1250 IF (CUT_MEM==0) GOTOF CUT_MEM_0
|
N1260 IF (CUT_MEM==1) GOTOF CUT_MEM_1
|
N1270 IF (CUT_MEM==2)
|
N1280 CM_SWORD=1
|
N1290 GOTOF CUT_MEM_2
|
N1300 ENDIF
|
N1310 IF (CUT_MEM==3) GOTOF CUT_MEM_3
|
|
N1320 CUT_MEM_0: ;Õý³£¼Ó¹¤
|
|
;************************************************
|
;»»µ¶ T1 R12.5
|
;************************************************
|
|
N1330 T1
|
N1340 M06
|
N1350 D1
|
;H12=101 ; Artis tool number
|
N1360 G54
|
|
;************************************************
|
;³µÂÖÄÚ²à
|
;************************************************
|
|
N1370 IF NOT N_TWOCHANNELS
|
N1380 G96 S=V_CUT M3
|
N1390 ELSE
|
N1400 LIMS=((V_CUT)/($PI*(TREAD_DIAM)/1000))
|
N1410 ENDIF
|
N1420 G0 X=TREAD_DIAM+(2*40) Z=WHEEL_HEIGHT+5 ;M56 ;ABSAUGUNG EIN
|
|
N1430 N_WAITM(1) ;__WAIT FOR START MACHINING__
|
|
;Artis
|
|
;************************************************
|
;ÂÖÔµ+̤ÃæµÚÒ»´Î´Ö¼Ó¹¤
|
;************************************************
|
|
;************************************************
|
;ÂÖÔµ+̤ÃæµÚ¶þ´Î´Ö¼Ó¹¤
|
;************************************************
|
N1440 OFFN=GLOBAL_ALLOWANCE
|
|
N1450 G0 X=TREAD_DIAM+20*2
|
N1460 G1 G42 X=TREAD_DIAM+(14)*2 Z=TREAD_HEIGHT_S1+66.5 F=BASE_F*1.5 M50 M8;M812
|
N1470 G3 X=TREAD_DIAM+(31.5)*2 Z=TREAD_HEIGHT_S1+49 CR=17.5 F=BASE_F*0.8
|
N1480 G3 X=TREAD_DIAM+(20.499)*2 Z=TREAD_HEIGHT_S1+32.752 CR=17.5 F=BASE_F*0.6 LIMS=(((V_CUT+10)*0.85)/($PI*(TREAD_DIAM)/1000)) ;M792
|
N1490 G1 X=TREAD_DIAM+(13.432)*2 Z=TREAD_HEIGHT_S1+29.925 F=0.6
|
N1500 G2 X=TREAD_DIAM+(3.693)*2 Z=TREAD_HEIGHT_S1+18.243 CR=16 F=0.8
|
|
N1510 G0 G40 X=TREAD_DIAM+(25)*2 Z=TREAD_HEIGHT_S1+5 F5
|
N1520 G1 G42 X=TREAD_DIAM+(24.858)*2 Z=TREAD_HEIGHT_S1+35.464 F=BASE_F*1.2
|
N1530 G1 X=TREAD_DIAM+(12.311)*2 Z=TREAD_HEIGHT_S1+30.446 FLIN F=BASE_F*1.3 LIMS=(((V_CUT+10)*0.85)/($PI*(TREAD_DIAM)/1000)) ;M814
|
N1540 G2 X=TREAD_DIAM+(2.552)*2 Z=TREAD_HEIGHT_S1+18.666 CR=16.1 F=1.4 FNORM
|
N1550 G0 G40 X=TREAD_DIAM+(38)*2 Z=TREAD_HEIGHT_S1+5 LIMS=140 ;M800
|
N1560 Z=WHEEL_HEIGHT+80 LIMS=140 ;M790
|
|
|
;************************************************
|
;ì±Ãæ´Ö¼Ó¹¤£¨1ST£©
|
;************************************************
|
|
|
|
;************************************************
|
;ì±Ã澫¼Ó¹¤£¨FINISH£©
|
;************************************************
|
N1565 N_WAITM(15)
|
N1570 G0 G64 X=HUB_DIAM_S1+20*2
|
N1580 Z=HUB_HEIGHT_S1
|
;Artis
|
N1590 OFFN=GLOBAL_ALLOWANCE
|
N1600 G1 G41 G96 S=V_CUT-40 X=HUB_DIAM_S1+10*2 Z=HUB_HEIGHT_S1 F=BASE_F*1.2 M50 M8
|
N1610 X=BORE_DIAM-15*2 F=BASE_F*1
|
N1620 G0 G40 G97 Z=250 ;M800
|
|
N1630 SETM(4) ;__SET HUB FACE MACHINED__
|
;************************************************
|
;»»µ¶ T2 R10
|
;************************************************
|
N1640 G0 G153 D0 X=1000 Z=550 M9 ;
|
;N1650 M135 ; Artis monitoring off
|
N1660 G75 X0 Z0 M5
|
;N2020 N_DISABLE
|
|
N1670 STOPRE
|
N1680 CUT_MEM_1: CUT_MEM=1
|
N1690 CUT_MEM_2:
|
|
N1700 T2
|
N1710 M06
|
N1720 D1
|
;H12=102 ; Artis tool number
|
N1730 G54
|
N1740 SETM(5);»»µ¶Íê³É
|
N1750 N_WAITM(6);µÈ´ýתËÙ
|
;************************************************
|
;̤ÃæµÚÒ»²¿·Ö¼Ó¹¤Íê³É
|
;************************************************
|
N1760 G0 X= BOTTOM_DIAM_S1-($P_TOOLR)*2-12 Z=WHEEL_HEIGHT+120 D1
|
|
N1770 IF CM_SWORD==0
|
N1780 N_WAITFORSPINDLE_VEL(V_CUT_FINE+50,"<")
|
N1790 ELSE
|
N1800 G96 S=V_CUT_FINE M3
|
N1810 ENDIF
|
|
N1820 STOPRE
|
N1830 CUT_MEM=2
|
|
;N2150 N_ENABLE
|
N1840 OFFN=GLOBAL_ALLOWANCE M50 M8
|
;M136 ; Artis monitoring on
|
N1850 G0 Z=WHEEL_HEIGHT+3
|
N1860 G1 G42 X=BOTTOM_DIAM_S1 Z=WHEEL_HEIGHT F=BASE_F_FINE*0.6 M816
|
N1870 G1 X=TREAD_DIAM+(14)*2 Z=WHEEL_HEIGHT F=BASE_F_FINE*0.85
|
N1880 G3 X=TREAD_DIAM+(30)*2 Z=TREAD_HEIGHT_S1+49 CR=16 F=BASE_F_FINE*0.7
|
N1890 G3 G9 X=TREAD_DIAM+(19.942)*2 Z=TREAD_HEIGHT_S1+34.144+0 CR=16 F=0.8 M792
|
N1900 G1 G9 X=TREAD_DIAM+(12.118)*2 Z=TREAD_HEIGHT_S1+31.015+FLAT LIMS=((V_CUT_FINE*0.85)/($PI*(TREAD_DIAM)/1000)) F=BASE_F_FINE*0.8
|
N1910 G2 G9 X=TREAD_DIAM+(2.061)*2 Z=TREAD_HEIGHT_S1+16.159+FLAT CR=16
|
N1920 G0 G40 X=TREAD_DIAM+(40)*2 Z=TREAD_HEIGHT_S1+11 LIMS=140
|
N1930 SETM(13); __SET M42
|
N1940 G0 Z=WHEEL_HEIGHT+150 M9
|
;N1950 M135 ; Artis monitoring off
|
N1960 G75 X0 Z0
|
N1970 N_WAITM(7);__WAIT FOR BOTTOM MACHINED__
|
|
;************************************************
|
;WAIT FOR C2 FINISHES MACHINING
|
;************************************************
|
|
N1980 STOPRE
|
N1990 CUT_MEM_3: CUT_MEM=3
|
|
N2000 SETM(8) ; __SET M42
|
|
N2010 N_WAITM(10)
|
N2020 G95 M3 S20
|
N2030 M41
|
|
N2040 STOPRE
|
N2050 R119=0
|
|
;N2040 M27 ;ARTIS AUS
|
;*********************
|
;**END OF SUBPROGRAM**
|
;*********************
|
N2060 M17
|
