数控车工宏程序

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

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=15

N10 #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=15

N10 #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=15

N10 #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 X [60-2*#4] Z#3 F0.2; ( 30 为椭圆中心到Z轴距离)

IF [#3 GE -7.8] GOTO 10; （如果#4大于等于-8，就回到N10行继续加工）N15 G0 X62;

M30;

。。。。。。

#1=15.3

N10#1=#1-0.3

#2=0.2*#1*#1

G1X[2*#2]Z[#1]F0.3

IF[#1GE-9.7]GOTO10 G0U25

。。。。。。

1．以Z为变量。。。。。。

#1=0

N10#1=#1-0.3

#2=SQRT[#1/-0.2]

G1X[2*#2+20]Z[#1]F0.3 IF[#1GE-44.7]GOTO10 G0U5

。。。。。。

2．以X为变量。。。。。。

#1=0

N10#1=#1+0.3

#2=-0.2*#1*#1

G1X[2*#1+20]Z[#2]F0.3 IF[#1LE14.7]GOTO10 G0U5

。。。。。。

y=sin(x)y=4*sin(2x)

Y=SIN[X]

。。。。。。

#1=0

N10 #1=#1-1

#2=#1*3.14/180 化成弧度*3.14/180

#3=SIN[#2]

G1X[2*#3+20]Z[#2]F0.3

IF[#1GE-360]GOTO10

G0U5

。。。。。。

Y=4*SIN[2X]

#1=0

N10 #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]

G1X[2*#4+20]Z[#2]F0.3

IF[#1GE-360]GOTO10

G0U8

y=2*sin(x)