改写的jiangssli大侠的梯牙程序…………

凌晨一点

辞旧迎新，已经在坛子里潜水一年。平常没条件上网。过年回家，发此程序用以回报各位大侠的资料分享。
回想这一年来，从一普车操作工到学会用宏程序分层加工大螺距梯牙的日日夜夜，倍感心酸。但同时也感到很欣慰，毕竟自己的付出终有收获。在此特别感谢jiangssli大侠分享的程序！！！
这个程序由
[backcolor=transparent !important]jiangssli
大侠的大螺距外梯牙程序改写而来………………
加工方式有所不同：1）本程式是内梯牙螺纹加工程式。2）本程式加工方式并不是左右分刀加工，而是从右向左赶刀加工。3）这个程式本是加工丝母(黄铜)内梯牙的程式，其中包括最后精车光刀，所以刀具应为梯牙成形刀。4）此程序
并不完美，有不足之处还请各位大侠多多指教。
O8011 (丝母螺纹面加工）
T0101 M03 G99
G65 P8015 C65 D40 F7 M0.25 Q0.071 R0.1 S0.1 T1.75 U0.5 V15 W1.2 K12
G00 Z300
M05
M30
×××××××××××××××××××××××××××××××××××××××××××
O8015
#2=#7-#9
#4=#2-1
#5=#9/2+#21
#8=0.366*#9
#10=#7+#21*2
#11=0
#110=#11
#12=#5
WHILE[#11NE1]DO1
#12=#12-#13
#14=#10-#12*2
IF[#14GE#10-#18]THEN#14=#10-#18
#15=TAN[#22]*#12
#16=[#8-#20]/2
#24=#15+#16
#25=#20*#23
#27=#6+#24
#28=#6-#24
#101=#27-#19
#102=#28+#19
#29=#101
#109=#14
WHILE[#29GT#102]DO2
G00 Z#29
X#14
G32 Z-#3 F#9
G00 X#4
#29=#29-#25
IF[#29LT#102]THEN#29=#102
IF[#29NE#102]GOTO1
G00 Z#29
X#14
G32 Z-#3 F#9
G00 X#4
#29=#102
N1 END2
IF[#14EQ#10-#18]THEN#11=1
END1
IF[#8EQ#20]GOTO2
#12=#18
#103=0
#104=1
WHILE[#11NE2] DO1
#12=#12-#17
#15=TAN[#22]*#12
#24=#15+#16
#30=#6+#24+#17
#31=#6-#24-#17
#32=#10-#12*2
#105=#30
#106=#31
#109=#32
IF[#32GE#10]THEN#32=#10
IF[#30GE#27]THEN#30=#27
IF[#31LE#28]THEN#31=#28
G00 Z#30
X#32
G32 Z-#3 F#9
G00 X#4
Z#31
X#32
G32 Z-#3 F#9
G00 X#4
IF[#32EQ#10]THEN#103=2
IF[#30EQ#27]THEN#104=2
IF[#103EQ#104]THEN#11=2
END1
G00 Z#6
M99

yukunv6

{:soso_e118:}{:soso_e118:}好像很复杂啊

风随意

看不懂
{:soso_e118:}{:soso_e168:}

jiangssli

呵呵,楼主很有前途啊!!

小波bo

楼主前途无量啊。太强大了。{:soso_e183:}

dero

能否发刀具轨迹出来看下

yblnm

看来楼主学东西很快呀！一年就成高手了

凌晨一点

jiangssli 发表于 2012-2-4 16:20

呵呵,楼主很有前途啊!!
呵呵，大侠过奖了。现在感觉不知道下面的路怎么走了。

凌晨一点

小波bo 发表于 2012-2-4 16:35

楼主前途无量啊。太强大了。
呵呵，改写而已。原创才强大，嘿嘿。

jiangssli

凌晨一点 发表于 2012-2-5 21:46

呵呵，改写而已。原创才强大，嘿嘿。
这就是一个坎儿,你把这个坎迈过去了,你就真的能明白很多宏程序的东西了....
有没有和我们一起合作的兴趣呢??有兴趣的话可以加我的QQ详谈一下...