分支自 SuZhouGuanHong/TaiYuanTaiZhong

dengjunjie
2024-04-06 dd2b970907682890ab0f16c6efc7c04edfe1598f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
;************************************************
;TYHI
;Wheel:YD918 / TSW_499_3
;************************************************
;PROGRAM-TYPE: machining program
;CHANNEL: 2 (left)
;MACHINING SIDE: 2
;VERSION: 2023/10/23
;************************************************
 
;********
;* INIT *
;********
 
N1000 CLEARM ;for testing purposes
N1010 N_CHKCH(2) ;in channel 2?
;H11=18822 ;artis program no
;************************************************
;*                   ×ø±êϵ¸³Öµ                  *
;************************************************
N1020 BLANK_STOCK=WHEEL_UNMACHINED-WHEEL_MACHINED
N1030 IF BLANK_STOCK<0.5 GOTOF AA1
N1040 BLANK_STOCK_S2=BLANK_STOCK*SYM_FACTOR
N1050 STOPRE
N1060 $P_UIFR[1,AX2,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
;ͨµÀ(2),,G54µÚ2Öḳֵ
N1070 $P_UIFR[1,AX5,TR]=CLAMPING_JAW_HIGH_S1+BLANK_STOCK_S2
;ͨµÀ(2),,G54µÚ5Öḳֵ
N1080 $P_UIFR[2,AX2,TR]=CLAMPING_JAW_HIGH_S2  
;ͨµÀ(2),,G55µÚ2Öḳֵ
N1090 $P_UIFR[2,AX5,TR]=CLAMPING_JAW_HIGH_S2    
;ͨµÀ(2),,G55µÚ5Öḳֵ
N1100  STOPRE;Í£Ö¹Ô¤¶Á
 
;************************************************
;*                   Ë«Í¨µÀ¼ì²é                        *
;************************************************
N1110  STOPRE;
N1120 IF NOT N_TWOCHANNELS
N1130  MSG("WARNING, CHANNEL-SYNC VIA N_TWOCHANNELS DESELECTED! PRESS NC-START TO MACHINE...")
N1140  M0
N1150  MSG("")
N1160  STOPRE
N1170 ENDIF
 
N1180 DIAMON M41 ;
 
N1190 N_WAITM(51)  ;__sync for selection CUT_MEM
CUT_MEM=R119
N1200 STOPRE
N1210 IF (CUT_MEM==0) GOTOF CUT_MEM_0
N1220 IF (CUT_MEM==1) GOTOF CUT_MEM_1
N1230 IF (CUT_MEM==2) GOTOF CUT_MEM_2
N1240 IF (CUT_MEM==3) GOTOF CUT_MEM_3
N1250 IF (CUT_MEM==4) GOTOF CUT_MEM_4
 
N1260 CUT_MEM_0:  ;Õý³£¼Ó¹¤
 
N1270 T3
N1280 M06
N1290 D1
;H12=203 ; artis tool number 
N1300 G55
 
;************************************************
;OUTER BOTTOM #1, OUTSIDE-INSIDE
;************************************************
N1111 R12=0
N1310 M41
N1320 G96 S=V_CUT+30 M3
N1330 G0 X=BOTTOM_DIAM_S2-$P_TOOLR*2 Z=WHEEL_HEIGHT+10+GLOBAL_ALLOWANCE D1
N1340 N_WAITM(1) ;WAIT FOR START MACHINING
;M136 ; Artis monitoring on
N1350 OFFN=GLOBAL_ALLOWANCE+1.5
N1360 F=1.5 
N1370 G1 G41 X=BOTTOM_DIAM_S2 Z=WHEEL_HEIGHT M50 M8
N1140    X=393.269*2 Z=110.113+R12 F=1.0
N1145 G3 X=361.096*2 Z=78.2+R12 CR=45 F=1.0
N1148 G3 X=305.723*2 Z=79.694+R12 CR=100 F=1.0
N1400 G248 G341 DISR=5 G40 X=568 Z=150 F=10
N1410 G0 Z220  M9;lift off
;M135 ; Artis monitoring off
 
;************************************************
;MOVE TO INNER BOTTOM INSIDE_OUTSIDE
;************************************************
N1420 G0 G40 G97 G153 X=1500 Z=580 D0;
N1430 SETM(3) ;__SYNC HUB FACE__
;N1340 N_DISABLE
N1440 STOPRE
N1450 N_WAITM(4) ;__WAIT FOR HUB FACE MACHINED__
N1460 CUT_MEM_1:
 
;N1470 T3
;N1480 M06
;N1490 D1
;H12=203 ; Artis tool number 
 
;N1500 G55
;N1390 N_ENABLE
N1510 N_WAITM(5);µÈ´ýתËÙ
;************************************************
;BOTTOM INSIDE-OUTSIDE to diam 481(SECOND)
;************************************************
N1520 OFFN=GLOBAL_ALLOWANCE
N1530 G96 S140 M3
N1540 SETM(9)
;M136 ; Artis monitoring on
 
N1550 G0 D1 X=HUB_DIAM_S2-20*2 Z=HUB_HEIGHT_S2+20+GLOBAL_ALLOWANCE
N1560 G1 G42 X=(116.077-20)*2 Z=HUB_HEIGHT_S2+20 F=2 G96 S130 M50 M8;
N1210 G2 X=116.077*2 Z=HUB_HEIGHT_S2  CR=20 F=BASE_F*2.0 M843
N1215 G3 X=125.736*2 Z=153.588+R12  CR=10 F=0.3
N1220 G1 X=134.848*2 Z=119.581+R12        F=0.8
N1225 G2 X=169.515*2 Z=84.416+R12 CR=50   F=0.8
N1230 G2 X=224.113*2 Z=83.039+R12 CR=110   F=0.8
N1610 SETM(6);
N1235 G3 X=305.723*2 Z=79.694+R12 CR=155  F=0.85
N1239 G2 X=361.096*2 Z=78.2+R12  CR=100  F=1.15
N1240 G2 X=393.269*2 Z=110.113+R12 CR=45  F=1.5
N1650 G1 X=BOTTOM_DIAM_S2 Z=WHEEL_HEIGHT  
N1660 G1 Z=WHEEL_HEIGHT+5 M9 F=2
;M135 ; Artis monitoring off
 
N1670 STOPRE
;N1510 CUT_MEM=2
 
;************************************************
;PATH-CTRL-MODE TO TOOL CHANGE T5
;************************************************
N1680 G0 G40 G603 G641 ADISPOS=100 M9
N1690 G0 G40  G153 Z=600 D0
N1700 N_WAITM(13);
N1730    G153 X=2*750
N1710 G95 S140 M3 ;CHUCK CLEANING  
N1720 G4 F8
 
N1740 G75 X0 Z0
;N1550 N_DISABLE
 
N1750 STOPRE
N1760 CUT_MEM_2:
N1770 CUT_MEM_3:
 
N1780 SETM(7)  ; __SET BOTTOM FINISHED
 
;N1570 N_DISABLE
 
 
N1790 T4  ;
N1800 M6
N1810 D1
;H12=204 ; Artis tool number 
 
N1820 G55
;************************************************
;HUB BORE, 3 CUT
;************************************************
 
;N1830 N_WAITM(8)
;M136 ; Artis monitoring on
 
N1835 G0 X=BORE_DIAM+3
N1840 G0 D1 X=BORE_DIAM+3 Z=HUB_HEIGHT_S2+GLOBAL_ALLOWANCE+15 LIMS=350 G96 M3 S=V_CUT_BORE
N1850 G1 G64 Z=HUB_HEIGHT_S2+GLOBAL_ALLOWANCE F=0.6 M8
N1860  X=BORE_DIAM Z=HUB_HEIGHT_S2+GLOBAL_ALLOWANCE-1.5
N1870  X=BORE_DIAM+0.1  Z=IC(-192) F=1.0
N1880  G0 G40 X=BORE_DIAM-6*2 M9 
N1890  Z=HUB_HEIGHT_S2+GLOBAL_ALLOWANCE+15
N1900 G75 Z0
N1910 G75 X0
;M135 ; Artis monitoring off
R119=0
N1920 SETM(11) ;__SET BORE MACHINED__
;N1760 N_DISABLE
 
M27 ; ARTIS AUS
;*********************
;**END OF SUBPROGRAM**
;*********************
N1930 M17