螺旋铣削宏优化（第五版，最终版！）

mashanquang123

看看你可男可女可难看妮可妮可妮

luochen922*

最近感觉宏还真是厉害 方便

523758nnn

大哥这是我编的，已经用了3年了。我都制作成书了，只不过是自己看的。

qq331288041

学习了

352260380

这么大家伙食了个头

笨小孩：猪头

好东西，太好了

tstec*

523758nnn 发表于 2018-6-7 09:53
大哥这是我编的，已经用了3年了。我都制作成书了，只不过是自己看的。

好久没有登录了，才看到这样有营养的回复。首先表示感谢
其次，我的观点是，每个宏都是一篇文章，而每个人的文章想表达的也不尽相同。
如果愿意探讨，我还是帖子开篇的那几点希望。本着分享的精神，我依然希望这个
宏能做的如我所愿。虽然已是最终版本，但是还不是我理想中的要求。
你的宏也确实不错，各有差别吧，还希望仔细甄别一下。
至于说抄袭或者仿制，也没必要纠结这个。
可能有雷同，毕竟大家所要达到的目的一致，但是我依然要说，本帖原创，功能不二家。
哈哈，图个开心。

523758nnn

tstec* 发表于 2018-6-14 15:38
好久没有登录了，才看到这样有营养的回复。首先表示感谢
其次，我的观点是，每个宏都是一篇文章，而每个 ...

我没有说你是抄袭我的，你就是让我抄袭我还不如我自己编写，因为我要进入你的思路还是很困难的，我的和你的宏程序体绝对是不一样的，，，我的矩形循环宏打印A4纸要12叶那么多，，，也不是抄袭的，都是自己编的，，，我不相信宏会有谁抄袭，，，因为真的不如自己编，，自己的思路不适合别人，，别人的思路也不适合我，，

shijie2266*

切斷
＃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=

寒露*

好人一生平安