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
