Monday,15-December-2014
HEIDENHAIN iTNC 530 elipse
Within the manual you can find the original version of that idea, but i decide to reduce it and rewrite it. Few changes and you can get it to be produced in desired direction as left2right or right2left, inside or outside.
0 BEGIN PGM elipsa MM 1 BLK FORM 0.1 Z X-50 Y-50 Z-1 2 BLK FORM 0.2 X+50 Y+50 Z+1 3 TOOL CALL 3 Z S2500 4 ;------------------------------ 5 Q1 = 20 ;elipse radius on X 6 Q2 = 10 ;elipse radius on Y 7 ;------------------------------ 8 Q3 = Q108 + Q1 + 3 9 L X+Q3 Y+0 R0 FMAX 10 L Z-0.2 R0 FMAX 11 ;============================= 12 Q6 = 360 13 LBL 1 14 Q10 = ( Q1 + Q108 ) * COS Q6 15 Q11 = ( Q2 + Q108 ) * SIN Q6 16 L X+Q10 Y+Q11 R0 F2000 17 Q6 = Q6 - 1 18 CALL LBL 1 REP360 19 L Z+5 R0 FMAX M2 20 END PGM elipsa MM
Add comment
Fill out the form below to add your own comments