|
辞旧迎新,已经在坛子里潜水一年。平常没条件上网。过年回家,发此程序用以回报各位大侠的资料分享。
回想这一年来,从一普车操作工到学会用宏程序分层加工大螺距梯牙的日日夜夜,倍感心酸。但同时也感到很欣慰,毕竟自己的付出终有收获。在此特别感谢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
|
|