QQ登录

只需一步,快速开始

快捷登录

登录 或者 注册 请先

UG爱好者

楼主: tstec*
打印 上一主题 下一主题

[原创] 螺旋铣削宏优化(第五版,最终版!)

  [复制链接]

中尉

Rank: 5Rank: 5

0

主题

489

帖子

3635

积分
71#
发表于 2018-5-27 11:55:04 | 只看该作者
看看你可男可女可难看妮可妮可妮
回复 支持 反对

使用道具 举报

大校

Rank: 8Rank: 8

37

主题

841

帖子

1万

积分

VIP会员

72#
发表于 2018-6-7 01:36:54 | 只看该作者
最近感觉宏还真是厉害 方便
回复 支持 反对

使用道具 举报

上尉

Rank: 6Rank: 6

62

主题

1136

帖子

6397

积分
73#
发表于 2018-6-7 09:53:31 | 只看该作者
大哥这是我编的,已经用了3年了。我都制作成书了,只不过是自己看的。

1.jpg (306.23 KB, 下载次数: 16)

1.jpg

2.jpg (322.12 KB, 下载次数: 25)

2.jpg

3.jpg (270.09 KB, 下载次数: 12)

3.jpg

4.jpg (255.47 KB, 下载次数: 25)

4.jpg

5.jpg (251.1 KB, 下载次数: 22)

5.jpg

6.jpg (278.68 KB, 下载次数: 20)

6.jpg

7.jpg (311.46 KB, 下载次数: 19)

7.jpg

8.jpg (284.8 KB, 下载次数: 15)

8.jpg

9.jpg (271.21 KB, 下载次数: 14)

9.jpg

10.jpg (291.81 KB, 下载次数: 18)

10.jpg

11.jpg (15.29 KB, 下载次数: 13)

11.jpg

12.jpg (275.68 KB, 下载次数: 14)

12.jpg

13.jpg (272.08 KB, 下载次数: 24)

13.jpg

14.jpg (263.77 KB, 下载次数: 14)

14.jpg

15.jpg (258.36 KB, 下载次数: 11)

15.jpg

16.jpg (295.73 KB, 下载次数: 22)

16.jpg

17.jpg (272.54 KB, 下载次数: 16)

17.jpg

18.jpg (286.65 KB, 下载次数: 16)

18.jpg

19.jpg (17.02 KB, 下载次数: 14)

19.jpg

20.jpg (269.78 KB, 下载次数: 16)

20.jpg

21.jpg (275.22 KB, 下载次数: 21)

21.jpg

22.jpg (291.29 KB, 下载次数: 21)

22.jpg

23.jpg (246.82 KB, 下载次数: 21)

23.jpg

24.jpg (20.96 KB, 下载次数: 15)

24.jpg
回复 支持 反对

使用道具 举报

少尉

Rank: 5Rank: 5

0

主题

403

帖子

2618

积分
75#
发表于 2018-6-13 03:03:29 来自手机 | 只看该作者
这么大家伙食了个头
回复 支持 反对

使用道具 举报

少校

Rank: 6Rank: 6

2

主题

176

帖子

9968

积分
76#
发表于 2018-6-14 10:24:13 | 只看该作者
好东西,太好了
回复 支持 反对

使用道具 举报

中尉

Rank: 5Rank: 5

15

主题

406

帖子

3001

积分

灌水王

77#
 楼主| 发表于 2018-6-14 15:38:11 | 只看该作者
523758nnn 发表于 2018-6-7 09:53
大哥这是我编的,已经用了3年了。我都制作成书了,只不过是自己看的。

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

使用道具 举报

上尉

Rank: 6Rank: 6

62

主题

1136

帖子

6397

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

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

使用道具 举报

五级士官

Rank: 4

1

主题

118

帖子

894

积分
79#
发表于 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/[360/#10]; (Z值遞增)
#7=
回复 支持 反对

使用道具 举报

少校

Rank: 6Rank: 6

0

主题

484

帖子

7234

积分
80#
发表于 2018-6-27 14:54:19 | 只看该作者
好人一生平安
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

 
 
QQ:1359218528
工作时间:
9:00-17:00
 
微信公众号
手机APP
机械社区
微信小程序

手机版|UG爱好者论坛 ( 京ICP备10217105号-2 )    论坛管理员QQ:1359218528

本站信息均由会员发表,不代表本网站立场,如侵犯了您的权利请联系管理员,邮箱:1359218528@qq.com  

Powered by UG爱好者 X3.2  © 2001-2014 Comsenz Inc. GMT+8, 2024-11-14 13:32

返回顶部