车圆弧螺纹宏程序.docVIP

车圆弧螺纹宏程序 在 Fanuc-0i Tc系统上试过,有興趣的朋友可以試試O0001;M04 S500 T0101; G00 X-10 Z5 M08;? ?? ? （螺纹起刀点）G65 P0002 K0.5;? ?? ?? ?（调用0002号宏程序，赋值#6为0.5，往下以此类推，螺纹共车了5刀）G65 P0002 K0.9;G65 P0002 K1.2;G65 P0002 K1.5;G65 P0002 K1.7;G00 Z300 M09;M30;这是主程序，子程序在下面。O0002;? ???#3=0;? ?? ?? ?? ?? ?? ?? ? （圆弧角度自变量）N1 #1=50*SIN[#3];? ?? ? （圆弧X轴坐标，圆弧半径为50）? ???#2=50*COS[#3];? ???（圆弧Z轴坐标)? ???#4=2*#1-#6；? ?? ?? ???(#4为直径，#6为圆弧X轴中心坐标）? ? #5=#2-50；? ?? ?? ?? ? （#5为圆弧Z值，-50为圆弧Z轴中心坐标）? ? G32 X#4 Z#5 F1.5;??（车螺纹，螺距为1.5）? ? #3=#3+5;? ?? ?? ?? ?? ???（角度自变量，递增5度）IF[#3LE180] GOTO1;??（如果角度小于等于180，在N1 与IF之间循环）?