数控车工宏程序

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 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 X[30+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 X[50+2*#4] 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 X[50-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; （椭圆长半轴长度）#3=15;N10 #3=#3-0.3;#4= SQRT [64-#3*#3*64/225]; （64 为#1*#1，225 为#2*#2）G01 X[40-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 X[30+2*#4] Z[#3-21] F0.2; ( 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...