手动编程草搞

chenping0315

切斷
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃10=5; (高度)
＃5=60; (長度)
＃1=0.1; (每刀切深)
＃2=＃1; (梯增)
N1;
G90 G01 Z-＃1 F200;
G91 G01 Y-＃5 F3000;
G00 G90 Y0;
＃1=＃1+＃2;
IF[＃1 LE ＃10] GO 1;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

銑內圓
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃33=1500;
＃11=50; (內徑)
＃9=8.5; (刀徑)
＃8=[＃11-＃9]/2;
＃7=0.5; (每刀進給量)
＃1=0.1; (每刀切深)
＃2=＃1;
＃10=10; (高度)
WH [＃1 LE ＃10] DO 2;
G90 G00 X-＃8 Y0;
G90 G01 Z-＃1 F300;
WH [＃8 GE 0] DO 1;
G90 X-＃8 Y0;
G90 G02 I＃8 F＃33;
＃8=＃8-＃7;
END 1;
＃1=＃1+＃2;
＃8=[＃11-＃9]/2;
END 2;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

斜線倒角23度
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃33=5000;
＃10=50.74; (X起點)
＃11=28.50; (Y起點)
＃12=17.69; (Y終點)
＃13=22.44; (Y寬度)
＃9=23; (角度)
＃8=＃13-＃12;
＃6=6/2;
＃5=0;
＃4=0.05; (每刀進給量)
WH [＃5 LE ＃8] DO 1;
＃1=TAN[[＃9]*＃5;
G90 G00 X-＃10 Y[＃11+＃6+＃5]
G90 G01 Z-＃1 F300;
G90 G01 X0 Y[＃12+＃6+＃5] F＃33;
X＃10 Y[＃11+＃6+＃5];
G90 G00 X-＃10 Y[＃11+＃6+＃5];
＃5=＃5+＃4;
END 1
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

直線倒角45度
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃33=5000;
＃10=220/2; (長度)
＃11=48.5/2; (寬度)
＃8=8.5/2; (刀徑)
＃7=0;
＃3=3.5; (倒角寬)
＃5=＃3; (倒角高度)
＃6=0.05; (每刀進給梯增)
G90 G00 X-＃10 Y[＃11+＃8-＃7];
WH [＃7 LE ＃3] DO 1;
G90 G01 Z-＃5 F300;
G90 X-＃10 Y[＃11+＃8-＃7];
G91 X[＃10*2] F＃33;
G90 G00 X-＃10 Y[＃11+＃8-＃7];
＃7=＃7+＃6;
＃5=＃5-＃6;
END 1;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

內圓倒角45度
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃10=300/2; (半徑)
＃8=6/2; (刀半徑)
＃7=＃10-＃8;
＃1=13; (高度)
G90 G00 Z-＃1 F300;
G90 X-＃7;
G02 I＃7 F2000;
＃7=＃7+0.01; (把加號改為減為外倒角)
＃1=＃1-0.01;
IF[＃1 GE 0] GO 1;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

銑平面（從內向外）
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
Z5.;
＃30=166; (長度)
＃31=88; (寬度)
＃6=5;
＃5=＃30-＃31; (下刀位置)
G90 G00 X-[＃5/2] Y0;
＃1=0.5;
＃20=＃1;
＃10=4; (進給刀寬)
N2;
G91 G00 X-[＃5/2] Y0;
＃2=＃5;
＃3=＃6;
G90 G01 Z-＃1 F300;
N1;
G91 X＃2 F800;
Y-＃3;
＃2=＃2+＃6;
＃3=＃3+＃6;
X-＃2;
Y＃3;
＃2=＃2+＃6;
＃3=＃3+＃6;
IF [＃2 LE ＃30] GO 1; (長度循壞)
G90 G00 Z0;
IF [＃1 EQ [＃10-0.5]] THEN ＃20=0.1;
＃1=＃1+＃20;
IF [＃1 LE ＃10] GO 2; (高度循壞)
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

銑平面（從外向內）
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
＃10=5; (高度)
＃7=163; (長度)
＃8=83; (寬度)
＃5=12; (刀徑)
＃4=＃7-＃5;
＃6=＃8-＃5;
＃3=6; (進給寬度)
＃1=0.1;
＃2=＃1;
N5;
＃4=＃7-＃5;
＃6=＃8-＃5;
G90 G00 X-[＃4/2] Y[＃6/2];
G90 G01 Z-＃1 F300;
G91 G01 X＃4 F4000;
Y-＃6;
X-＃4;
Y＃6;
WH [＃6 GE 0] DO 1;
＃4=＃4-＃3;
＃6=＃6-＃3;
X＃4;
Y-＃6;
＃4=＃4-＃3;
＃6=＃6-＃3;
X-＃4;
Y＃6;
END 1;
IF [＃1 EQ [＃10-0.5]] THEN ＃2=0.1;
＃1=＃1+＃2;
IF [＃1 LE ＃10] GO 5;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;


銑平面（橫銑）
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
＃30=30; (長度)
＃31=16; (寬度)
＃8=8; (刀徑)
＃1=9; (高度)
＃2=＃30-＃8;
N2;
G00 G90 X-[＃2/2] Y-[[＃31+＃8]/2];
Z5.;
＃20=2000;
＃3=0.5;
＃4=＃3;
G91 G01 X＃2 F＃20;
IF [＃5 EQ ＃31] GO 3;
＃5=＃5+＃4;
G01 Y＃3;
G91 X-＃2;
IF [＃5 EQ ＃31] GO3;
＃5=＃5+＃4;
Y＃3;
＃5=＃5+＃4;
IF [＃5 LE ＃31] GO 1;
N3;
G90 G00 Z15;
M09;
G91 G28 Z0;
G91 G28 Y0;
G40 G49 G69 G80 G90;
M30;

螺旋銑圓
＃5201=0;
＃5202=0;
＃5203=0;
G40 G49 G69 G80 G90;
G91 G28 Z0;
M06 T02;
G54.1 P01;
G00 G90 X0 Y0;
G43 H02 Z10 M03 S3000;
M08;
＃33=2000;
＃8=6; (刀徑)
＃9=7.5; (內徑)
＃30=＃9-＃8;
＃20=5; (高度)
＃1=1; (下刀進給量)
＃2=0;
＃21=＃20/＃1;
＃3=360*＃21;
＃10=1; (度數遞增)
＃6=＃1/[360/＃10]; (Z值遞增)
＃7=

见过

好东西谢谢分享

l铁匠l

不懂为何要清除EXT坐标！

jimmylin5521

謝謝大大分享