车圆弧螺纹宏程序
在 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;
'.
因篇幅问题不能全部显示,请点此查看更多更全内容