mashanquang123 发表于 2018-5-27 11:55:04

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

luochen922* 发表于 2018-6-7 01:36:54

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

523758nnn 发表于 2018-6-7 09:53:31

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

qq331288041 发表于 2018-6-7 11:00:46

学习了

352260380 发表于 2018-6-13 03:03:29

这么大家伙食了个头

笨小孩:猪头 发表于 2018-6-14 10:24:13

好东西,太好了

tstec* 发表于 2018-6-14 15:38:11

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

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

523758nnn 发表于 2018-6-15 11:29:45

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

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

shijie2266* 发表于 2018-6-26 16:46:40


切斷
#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/; (Z值遞增)
#7=

寒露* 发表于 2018-6-27 14:54:19

好人一生平安
页: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15
查看完整版本: 螺旋铣削宏优化(第五版,最终版!)