Monday,15-December-2014

iTNC 530 - test sphere program

The idea behind is to make half sphere only with small piece of code. In theory, should be possible just changing Q1 or the sphere radius , and to make any size.. Well, there should be additional milling if the sphere radius is 300mm, because of the material need to be clean. And that is only.. program for fun test, and somehow it was working on the programming station but not on real machine simulation, because of 530 NC model family difference.

0  BEGIN PGM testsphere MM 
1  BLK FORM 0.1 Z  X-100  Y-100  Z-120
2  BLK FORM 0.2  X+100  Y+100  Z+2
3  FN 0: Q1 =+100
4  FN 0: Q2 =+2
5  TOOL CALL 20 Z S3500
6  ;D40-ENDMILL
7  Q3 = Q1 / Q2
8  LBL 1
9  L  Z+2 R0 FMAX M3
10 Q4 = Q1 + Q108 + 3
11 L  X+Q4  Z-Q2 R0 F5000
12 Q5 = SQRT ( ( Q1 ^ 2 ) - ( ( Q1 - Q2 ) ^ 2 ) ) + Q108 + 0.5
13 L  X+Q5  Y+0 R0
14 CC  X+0  Y+0
15 CP IPA+360 DR-
16 L IX+0.5 IZ+0.5 R0 F10000
17 Q2 = Q2 + 2
18 CALL LBL 1 REPQ3
19 L  Z+222 R0 FMAX
20 ;------
21 TOOL CALL 30 Z S6000
22 ;BALL-6MM
23 Q10 = Q1 + Q108 + 3
24 Q11 = Q108 + Q1
25 L  X+Q10  Y+0  Z+2 R0 FMAX M3
26 L  Z-Q11 R0 F3000
27 L  Z-Q108 R0 F1500
28 CC  X+0  Y+0
29 CP IPA+360 DR-
30 L  Z+5 R0 F5000
31 L  Z+2 R0 FMAX
32 LBL 2
33 L  X+Q11  Y+0  Z+2 R0 FMAX
34 Q12 = Q1 - 1
35 L  Z-Q12 R0 F5000
36 CC  X+0  Z+0
37 L  Z-Q11 R0 F2000
38 Q13 = Q108 + Q1
39 L  Z-Q13 R0 F1000
40 CR  X+0  Z+0 R+Q1 DR-
41 CR  X-Q11  Z-Q13 R+Q1 DR-
42 L  Z+2 R0 FMAX
43 CYCL DEF 10.0 ROTATION
44 CYCL DEF 10.1 IROT+1
45 CALL LBL 2 REP179
46 L  Z+200 R0 FMAX M2
47 END PGM testsphere MM