车圆弧螺纹宏程序
在 Fanuc-0i Tc系统上试过,有興趣的朋友可以試試
G65 P0002 K0.5; '.
O0001;
M04 S500 T0101;
G00 X-10 Z5 M08; （螺纹起刀点）
（调用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之间循环）
G32 W-20 F2; （外圆螺纹，螺距为2）
G00 X110; （X轴退刀）
Z5; （回到螺纹起刀点）
X-10;
'.
.
M99;
'.
因篇幅问题不能全部显示，请点此查看更多更全内容