~dengjunjie/TaiYuanTaiZhong.git

;************************************************
;TYHI
;Wheel: YD1000 / TSW_449_3
;************************************************
;PROGRAM-TYPE: machining program
;CHANNEL: 1 (RIGHT)
;MACHINING SIDE: 2
;VERSION: 2023/10/23
;************************************************
 
;********
;* INIT *
;********
N1000 DEF BOOL CM_SWORD=0
N1010 CLEARM ;for testing purposes
N1020 N_CHKCH(1) ;in channel 1?
;H11=18812 ;artis program no
 
;************************************************
;*                       ×ø±êÏµ¸³Öµ                       *
;************************************************
N1030 BLANK_STOCK=WHEEL_UNMACHINED-WHEEL_MACHINED
N1040 IF BLANK_STOCK<0.5 GOTOF AA1
N1050 BLANK_STOCK_S2=BLANK_STOCK*SYM_FACTOR
N1060 STOPRE
N1070 $P_UIFR[1,AX2,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
;Í¨µÀ(1),,G54µÚ2Öá¸³Öµ
N1080 $P_UIFR[1,AX5,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
;Í¨µÀ(1),,G54µÚ5Öá¸³Öµ
N1090 $P_UIFR[2,AX2,TR]=CLAMPING_JAW_HIGH_S2   
;;Í¨µÀ(1),,G55µÚ2Öá¸³Öµ
N1100 $P_UIFR[2,AX2,TR]=CLAMPING_JAW_HIGH_S2   
;;Í¨µÀ(1),,G55µÚ5Öá¸³Öµ
N1110  STOPRE;;Í£Ö¹Ô¤¶Á
N1120 IDS=101 DO R60=($AA_TOTAL_OVR[SP]/100)   
; ;Ë«Í¨µÀ×ªËÙµÈ´ý³ÌÐòÉúÐ§
;************************************************
;*                 Ë«Í¨µÀ¼ì²é                  *
;************************************************
N1130  STOPRE;
N1140 IF NOT N_TWOCHANNELS
N1150  MSG("WARNING, CHANNEL-SYNC VIA N_TWOCHANNELS DESELECTED! PRESS NC-START TO MACHINE...")
N1160  M0
N1170  MSG("")
N1180  STOPRE
N1190 ENDIF
 
N1200 DIAMON M41 ;(Ö±¾¶±à³Ì£¬¹¤×÷Ì¨M41£©
 
N1210 CUT_MEM=R119 ;Î¬ÐÞ±ê¼ÇÉè¶¨
N1220 STOPRE
 
N1230 N_WAITM(51)  ;__sync for selection CUT_MEM
 
N1240 IF (CUT_MEM==0) GOTOF CUT_MEM_0
N1250 IF (CUT_MEM==1) GOTOF CUT_MEM_1
N1260 IF (CUT_MEM==2)
N1270   CM_SWORD=1
N1280   GOTOF CUT_MEM_2
N1290 ENDIF
N1300 IF (CUT_MEM==3) GOTOF CUT_MEM_3
N1310 IF (CUT_MEM==4) GOTOF CUT_MEM_4
 
N1320 CUT_MEM_0:  ;;Õý³£¼Ó¹¤
 
;************************************************
;   »»µ¶ T1 R12.5
;************************************************
 
N1330 T1
N1340 M06
N1350 D1
;H12=101 ; artis tool number 
N1360 G55
 
;************************************************
;OUTER TYRE FACE
;************************************************
 
N1370 IF NOT N_TWOCHANNELS
N1380  G96 S=V_CUT M3
N1390 ELSE
N1400  G95
N1410  LIMS=(V_CUT/($PI*(TREAD_DIAM+2*28)/1000))
N1420 ENDIF
N1430 G0 X=TREAD_DIAM+15*2 Z=WHEEL_HEIGHT-6
N1440 N_WAITM(1) ;__WAIT FOR START MACHINING__
 
;M136 ; Artis monitoring on
N1450 OFFN=GLOBAL_ALLOWANCE
N1460 G1 G41 X=TREAD_DIAM Z=WHEEL_HEIGHT-6 F=0.8 M50 M8
N1470 G1  Z=WHEEL_HEIGHT ANG=-45
N1480  X=BOTTOM_DIAM_S2-5*2 F=1.15
N1490 G0 G40 X=IC($P_TOOLR*(-2)) Z=IC(GLOBAL_ALLOWANCE+TREAD_ALLOWANCE+3) ;
 
;************************************************
;TREAD FIRST PART COARSE (VARIABLE WHEEL HEIGHT)
;************************************************
 
N1500 OFFN=1.5+GLOBAL_ALLOWANCE
N1510 G0  X=TREAD_DIAM Z=WHEEL_HEIGHT+GLOBAL_ALLOWANCE+TREAD_ALLOWANCE+10
N1520 G1 G42 X=TREAD_DIAM-(9.787)*2 Z=WHEEL_HEIGHT F=BASE_F*1.3
N1220  G1  X=TREAD_DIAM-(3.163)*2 Z=TREAD_HEIGHT_S2+60.507 F=BASE_F*1.3
N1225  G1  X=TREAD_DIAM-(0.614)*2 Z=TREAD_HEIGHT_S2+9.521  F=1.3
 
N1225 G2  X=TREAD_DIAM+(1.009)*2 Z=TREAD_HEIGHT_S2-10.587 CR=330 F=1.3
N1225 G2  X=TREAD_DIAM+(2.378)*2 Z=TREAD_HEIGHT_S2-19.332 CR=100 F=2.5
N1570 G0 G40 G64 X=TREAD_DIAM+30 Z=WHEEL_HEIGHT+50 LIMS=140 M9
;M135 ; Artis monitoring off
;************************************************
;PATH-CTRL-MODE TO OUTER HUB FACE
;************************************************
 
N1580 N_WAITM(3) ;_SYNC HUB FACE
 
;************************************************
;OUTER HUB FACE
;************************************************
;M136 ; Artis monitoring on
N1590  X=HUB_DIAM_S2+20*2 
N1600 OFFN=GLOBAL_ALLOWANCE
N1610  X=HUB_DIAM_S2+20*2 Z=HUB_HEIGHT_S2+GLOBAL_ALLOWANCE
N1620 G96 S=V_CUT-50 M3
N1630 G1 G41 G64 X=HUB_DIAM_S2+5*2 Z=HUB_HEIGHT_S2 F=1.3 M50 M8
N1640    X=BORE_DIAM-10*2 Z=HUB_HEIGHT_S2 F=BASE_F*1.1
N1650 G0 G40 G97 Z=250 M9
N1660  G0  X=400
;M135 ; Artis monitoring off
N1670 SETM(4) ;__SET HUB FACE MACHINED__
;************************************************
;TOOL CHANGE T2
;************************************************
N1680 G0 G153 D0 X=750*2 Z=580 M9
N1690 G75 X0 Z0 M05
;N1370 N_DISABLE
 
N1700 STOPRE
N1710 CUT_MEM_1: CUT_MEM=1
N1720 CUT_MEM_2:
 
N1730 T2
N1740 M06
N1750 D1
;H12=102 ; Artis tool number 
N1760 G55
N1770 SETM(5);æ¢åå®æ
N1780 N_WAITM(6);çå¾è½¬é?
;************************************************
;TREAD 1ND PART FINISH
;************************************************
N1790 G0 G40 X=TREAD_DIAM-($P_TOOLR*2) Z=WHEEL_HEIGHT+100 D1
 
N1800 IF CM_SWORD==0
N1810   N_WAITFORSPINDLE_VEL(V_CUT_FINE+60,"<")
N1820 ELSE
N1830   G96 S=V_CUT_FINE M3
N1840 ENDIF
 
;N1425 N_ENABLE  
;M136 ; Artis monitoring on
N1850 OFFN=GLOBAL_ALLOWANCE M8 M50
N1860 G0   Z=WHEEL_HEIGHT+GLOBAL_ALLOWANCE+20
N1870 G1 G42 X=TREAD_DIAM-(9.787)*2 Z=WHEEL_HEIGHT F=BASE_F*0.5 ;M826 M791 
N1220  G1  X=TREAD_DIAM-(3.163)*2  Z=TREAD_HEIGHT_S2+60.507 F=BASE_F*0.4
N1225  G1  X=TREAD_DIAM-(0.614)*2  Z=TREAD_HEIGHT_S2+9.521-FLAT   F=1.1
N1225 G2  X=TREAD_DIAM+(1.009)*2   Z=TREAD_HEIGHT_S2-10.587-FLAT CR=330
N1225 G2  X=TREAD_DIAM+(2.378)*2   Z=TREAD_HEIGHT_S2-19.332-FLAT CR=100 
N1225  G2 X=TREAD_DIAM+(8.168)*2   Z=TREAD_HEIGHT_S2-28.092-FLAT CR=14   F=0.4
N1930 G0 G40 G64 X=TREAD_DIAM+50 Z=WHEEL_HEIGHT+50 LIMS=140 M9 OFFN=0
;M135 ; Artis monitoring off
N1940 SETM(13)
N1950 G75 X0 Z0
N1960 STOPRE
N1970 CUT_MEM_3: CUT_MEM=3
 
;N1980 N_WAITM(7) ;__WAIT FOR BOTTOM FINISHD
N1990 CUT_MEM_4: 
 
;N2000 SETM(8)  ;  __SET M42
;N2010 N_DISABLE
 
N2020 N_WAITM(11)
N2030 G95 M3 S20
N2040 M41
 
N2050 STOPRE
N2060 CUT_MEM=0
 
;M27 ; ARTIS AUS
;*********************
;**END OF SUBPROGRAM**
;*********************
N2070 M17