数控车工宏程序.docx

1、数控车工宏程序T0101;G0 X55 Z5; （循环起点）#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）#3=1; （车削起始点，与到椭圆中心的距离有关）N10 #3=#3-0.2; （- 0.2 车削步进距, Z方向上每步进给0.2mm）#4= SQRT 64-64*#3*#3/225; （椭圆公式 64为#1*#1，225为#2*#2）G01 X 52-2*#4 Z#3 F0.2; ( 52为椭圆中心到Z轴距离2*（18+8）)IF #3 GE-14.8 GOTO 10; （如果#3大于等于-14.8，就回到N10行继续加工）G0 X55;M30;T0101;G0 X55

2、 Z5;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）#3=1；N10 #3=#3-0.2;#4= SQRT 64-64*#3*#3/225; （64为#1*#1，225为#2*#2）G01 X30+2*#4 Z#3 F0.3; ( 30为椭圆中心到Z轴距离2*15)IF #3 GE -14.8 GOTO 10;G0 X58;M30;T0101;G0 X55 Z5;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）#3=15N10 #3=#3-0.3;#4= SQRT 64-64*#3*#3/225; （64为#1*#1，225为#2*#2）G01 X50+2*#4

3、 Z#3-15 F0.2; ( 50为椭圆中心到Z轴距离2*25)IF #3 GE 0.3 GOTO 10;G0 X68;M30;T0101;G0 X55 Z18;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）#3=15N10 #3=#3-0.3;#4= SQRT 64-#3*#3*64/225; （64为#1*#1，225为#2*#2）G01 X50-2* #4 Z#3-15 F0.2; ( 50为椭圆中心到Z轴距离2*25)IF #3 GE 0 GOTO 10;G0 X55;M30;T0101;G0 X45 Z18;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长

4、度）#3=15;N10 #3=#3-0.3;#4= SQRT 64-#3*#3*64/225; （64为#1*#1，225为#2*#2）G01 X40-2*#4 Z#3-21 F0.2; ( 40为椭圆中心到Z轴距离，21为椭圆中心到X轴距离15+6)IF #3 GE-14.7 GOTO 10;G0 X45;M30;T0101;G0 X50 Z18;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）#3=15N10 #3=#3-0.3;#4= SQRT 64-#3*#3*64/225; （64为#1*#1，225为#2*#2）G01 X30+2*#4 Z#3-21 F0.2; (

5、30为椭圆中心到Z轴距离)IF #3 GE-14.7 GOTO 10;G0 X50;M30;T0101 M03 S800;G0 X60 Z5;#1=8; （椭圆短半轴长度）#2=15; （椭圆长半轴长度）N5 #3=1 （车削起始点，与到椭圆中心的距离有关）N10 #3=#3-0.2; （- 0.2 车削步进距）#4= SQRT 225-225* #3*#3/64; （64为 #1*#1，225为 #2*#2 ）G01 X 60-2*#4 Z#3 F0.2; ( 30 为椭圆中心到Z轴距离 )IF #3 GE -7.8 GOTO 10; （如果#4大于等于-8，就回到N10行继续加工）N15

6、G0 X62;M30;。#1=15.3N10#1=#1-0.3#2=0.2*#1*#1G1X2*#2Z#1F0.3IF#1GE-9.7GOTO10G0U25。1以Z为变量。#1=0N10#1=#1-0.3#2=SQRT#1/-0.2G1X2*#2+20Z#1F0.3IF#1GE-44.7GOTO10G0U5Z5。2以X为变量。#1=0N10#1=#1+0.3#2=-0.2*#1*#1G1X2*#1+20Z#2F0.3IF#1LE14.7GOTO10G0U5Z5。Y=SINX 。#1=0 N10 #1=#1-1#2=#1*3.14/180 化成弧度*3.14/180#3=SIN#2G1X2*#3

7、+20Z#2F0.3IF#1GE-360GOTO10G0U5Z5。Y=4*SIN2X#1=0N10 #1=#1-1#2=#1*3.14/180#3=#2*12.56/6.28 12.56为正弦长度，6.28为周期2 如：在42长度上有3个曲线周期，则： #3=#2*42/6.28/3 （如下图）#4=4*SIN#3 G1X2*#4+20Z#2F0.3IF#1GE-360GOTO10G0U8Z5例：试题中列出曲线方程公式，则根据公式列出X、Z的公式宏程。#1=1 起始角度N10 #1=#1-0.4#2=#1/10 Z#3=6*COS#1+34 XG1X#3 Z#2 F0.3IF#1GE-123.

8、56 GOTO10 判断角度（IF#2GE-12.356GOTO10） 判断长度G2X68.901 Z-20.64R5G1X80 C1W-1G0U5。一、。#1=15N10 #1=#1-0.3 Z#2=SQRT100-100*#1*#1/225 X#3=#1*SIN15+#2*COS15#4=#1*COS15-#2*SIN15 #5=2*#3G1X50-#5 Z#4-20 F0.3IF#1GE-14GOTO10G0U5。二、。G1X32Z-10.16#1=27.46 起始角度N10 #1=#1+1 从起始角度开始累加1度#2=15*COS#1 Z 极坐标公式 A*COS ()#3=10*SIN

9、#1 X B*SIN ()#4=#2*SIN15+#3*COS15#5=#2*COS15-#3*SIN15#6=2*#4G1X50-#6 Z#5-20 F0.3IF#1LE151.94GOTO10 151.94为（180-28.06）度G1Z-44。复合螺纹切削循环指令编程格式： G76 P (m)（r）（）Q（dmin）R(d) G76 X(U) Z(W) R(I) F(f) P(k) Q(d) 式中：m 精加工重复次数；二位数 r倒角量；二位数-刀尖角； dmin最小切入量； (um) d-精加工余量； (mm)X(U) Z(W)终点坐标； (mm) X指外螺纹的小径或内螺纹的大径。I 螺

10、纹部分半径之差，即螺纹切削起始点与切削终点的半径差。圆柱螺纹时，i=0。k 螺牙的编程高度 （X轴方向的半径值）； (um)d 第一次切入量 （X轴方向的半径值）； (um)f螺纹导程。 (mm)例：编写40直径圆柱螺纹的加工程序，螺距为6mm。 M3 S600 T0000; 设定主轴转速时（S600），不能超出机床设定快速移动速度，否则乱牙。G0 X45 Z10 M08;G76 P020030 Q40 R0.02； 0.04的精车余量，分两次切削，粗车最少吃刀深度为0.08mm。G76 X33 Z-42 R0 P3500 Q400 F6；梯形螺纹宏程加工（Tr40x6）T0101 #1=40

11、 （螺纹大径）N10 G0 X45 Z5 （车削螺纹起点）G92 X#1 Z-42 F6 （螺纹循环指令）W0.04 （起点相对移动）G92 X#1 Z-42 F6 （螺纹循环指令）#1=#1-0.1 （车削深度变量）IF #1 GE 33 GO 10 （条件判断）G0 X100 Z100M30轴向（端面槽）切削循环指令：编程格式 ： G74 R(e);G74 X(U)_ Z(W)_ P(i) Q(k) R(d) F_；式中：e 退刀量； （mm） e必须小于加工时的每次切深量 kX、Z 端面槽的终点坐标；（mm） X省略则只在定位点z方向上进退刀，X有数值，则P(i)必须有数值，否则报警。i

12、 每次X方向上的移动距离；（um） 必须和X坐标配合使用，大于刀宽则为多槽 k Z方向上的每次切深量； （um）d 槽刀切到槽底后X方向上的移动退刀量； 快速移动，谨慎设置，通常为0 F_ 走刀速度； 例1：M3 S800 T0303;G0 X40 Z5 M08;G74 R0.5; 每次Z方向的退刀量为0.5mm，小于Q2000。G74 Z-10 Q2000 F0.1; 端面槽宽与刀头宽度相同，深度位置-10，每次进给量为2mm。例2：M3 S800 T0303;G0 X40 Z5 M08;G74 R0.5;G74 X54 Z-10 P3000 Q2000 R0 F0.1; 端面槽宽度为（7+

13、刀头宽度）mm，深度位置-10，每次进给量为2mm，车刀每完成一次槽深加工后在x方向上移动3mm。径向(外圆)切槽循环指令：编程格式 ： G75 R(e);G75 X(U)_ Z(W)_ P(i) Q(k) R(d) F_；式中：e 退刀量； （mm） e必须小于加工时的每次切深量 iX、Z 端面槽的终点坐标；（mm） Z省略则只在定位点X方向上进退刀，Z有数值，则P(K)必须有数值，否则报警。i X方向上的每次切深量； （um） k 每次Z方向上的移动距离；（um）必须和Z坐标配合使用，大于刀宽则为多槽d 槽刀切到槽底后Z方向上的移动退刀量； 快速移动，谨慎设置，通常为0 F_ 走刀速度；

14、例1：M3 S800 T0404;G0 X40 Z-25 M08;G75 R0.5; 每次X方向的退刀量为0.5mm，小于P800。G75 X30 P800 F0.1; 槽宽与刀头宽度相同，切深直径为X30，每次进给量为0.8mm。例2：M3 S800 T0404;G0 X40 Z-25 M08;G75 R0.5;G75 X30 Z-40 P3000 Q2000 R0 F0.1; 槽宽度为（15+刀头宽度）mm，切深直径为X30，每次进给量为3mm，车刀每完成一次槽深加工后在Z方向上移动2mm。用参数编程替代 G73 指令，解决在车削循环中粗车指令不执行刀具半径补偿。例：G99G97G40G2

15、1;#2002=20; 对刀补摩耗中对应刀具上X值进行赋值 #2102为Z值N5#2002=#2002-2; T0202M3S1000; T0202应与下面#2102相对应N10G0X62Z5M8; G42G0X50; 进行刀尖圆弧半径补偿G1Z0F0.2;。G1U10;N20G40G0Z5; 回到刀具起始位，取消刀尖圆弧补偿IF#2002GE2GOTO5; 判断G0X100Z100M00;T0202M3S1000;G0X80Z5;G70P10Q20; 精车循环G0X100Z100;M30;G99G97G40G21;#2002=20; 对刀补摩耗中对应刀具上X值进行赋值 #2102为Z值WHILE#2002GE2DO1； 执行条件（满足#20022就执行下面的程序） T0202M3S1000; T0202应与下面#2002相对应N10G0X62Z5;G42G0X50M8; 进行刀尖圆弧半径补偿G1Z0F0.2;。G1U10;N20G40G0Z5; 回到刀具起始位，取消刀尖圆弧补偿#2002=#2002-2;END1； G0X100Z100M00;T0202M3S1000;G0X80Z5;G70P10Q20; 精车循环G0X100Z100;M30;