数控车工宏程序.doc
上传人:王子****青蛙 上传时间:2024-09-09 格式:DOC 页数:12 大小:1.1MB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

数控车工宏程序.doc

数控车工宏程序.doc

预览

免费试读已结束,剩余 2 页请下载文档后查看

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

T0101;G0X55Z5;(循环起点)#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)G01X[52-2*#4]Z#3F0.2;(52为椭圆中心到Z轴距离2*(18+8))IF[#3GE-14.8]GOTO10;(如果#3大于等于-14.8,就回到N10行继续加工)G0X55;M30;T0101;G0X55Z5;#1=8;(椭圆短半轴长度)#2=15;(椭圆长半轴长度)#3=1;N10#3=#3-0.2;#4=SQRT[64-64*#3*#3/225];(64为#1*#1,225为#2*#2)G01X[30+2*#4]Z#3F0.3;(30为椭圆中心到Z轴距离2*15)IF[#3GE-14.8]GOTO10;G0X58;M30;T0101;G0X55Z5;#1=8;(椭圆短半轴长度)#2=15;(椭圆长半轴长度)#3=15N10#3=#3-0.3;#4=SQRT[64-64*#3*#3/225];(64为#1*#1,225为#2*#2)G01X[50+2*#4]Z[#3-15]F0.2;(50为椭圆中心到Z轴距离2*25)IF[#3GE0.3]GOTO10;G0X68;M30;T0101;G0X55Z18;#1=8;(椭圆短半轴长度)#2=15;(椭圆长半轴长度)#3=15N10#3=#3-0.3;#4=SQRT[64-#3*#3*64/225];(64为#1*#1,225为#2*#2)G01X[50-2*#4]Z[#3-15]F0.2;(50为椭圆中心到Z轴距离2*25)IF[#3GE0]GOTO10;G0X55;M30;T0101;G0X45Z18;#1=8;(椭圆短半轴长度)#2=15;(椭圆长半轴长度)#3=15;N10#3=#3-0.3;#4=SQRT[64-#3*#3*64/225];(64为#1*#1,225为#2*#2)G01X[40-2*#4]Z[#3-21]F0.2;(40为椭圆中心到Z轴距离,21为椭圆中心到X轴距离15+6)IF[#3GE-14.7]GOTO10;G0X45;M30;T0101;G0X50Z18;#1=8;(椭圆短半轴长度)#2=15;(椭圆长半轴长度)#3=15N10#3=#3-0.3;#4=SQRT[64-#3*#3*64/225];(64为#1*#1,225为#2*#2)G01X[30+2*#4]Z[#3-21]F0.2;(30为椭圆中心到Z轴距离)IF[#3GE-14.7]GOTO10;G0X50;M30;T0101M03S800;G0X60Z5;#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)G01X[60-2*#4]Z#3F0.2;(30为椭圆中心到Z轴距离)IF[#3GE-7.8]GOTO10;(如果#4大于等于-8,就回到N10行继续加工)N15G0X62;M30;。。。。。。#1=15.3N10#1=#1-0.3#2=0.2*#1*#1G1X[2*#2]Z[#1]F0.3IF[#1GE-9.7]GOTO10G0U25。。。。。。1.以Z为变量。。。。。。#1=0N10#1=#1-0.3#2=SQRT[#1/-0.2]G1X[2*#2+20]Z[#1]F0.3IF[#1GE-44.7]GOTO10G0U5Z5。。。。。。2.以X为变量。。。。。。#1=0N10#1=#1+0.3#2=-0.2*#1*#1G1X[2*#1+20]Z[#2]F0.3IF[#1LE14.7]GOTO10G0U5Z5。。。。。。Y=SIN[X]。。。。。。#1=0N10#1=#1-1#2=#1*3.14/180化成弧度*3.14/180#3=SIN[#2]G1X[2*#3+20]Z[#2]F0.3IF[#1GE-360]GOTO10G0U5Z5。。。。。。Y=4*SIN[2X]#1=0