深孔深槽 通用宏
深孔 深槽 通用宏%
O0184
G50 S800
G96 S70 M3 T0909
G0 X#505 Z20. M8
#1=#503 ()
#2=#504 ()
#3=[#505-[#506+#507*2]] (X余量)
#6=#508 (槽宽的切削总次数)
WHILE[#1LE#500] DO1
#5=#505 (X)
#4=0(次数)
WHILE[#4LE#6] DO2
IF[#1GT[#512]] GOTO400 (啄式结束判断 变为退出孔口或槽口模式)
IF[#509EQ0] GOTO300
N400 G0 Z#510
X#5
N300 G4 U#502
G0 Z-#2
G1 Z-#1 F.04
IF[#509EQ0]GOTO200
#4=#4+#509
IF[#514EQ0] GOTO700
IF[#513EQ0] GOTO700
IF[#1GT#514] THEN#6=#513
IF[#1GT#514] THEN#5=#5-#3/#513
IF[#1GT#514] GOTO500
N700 #5=#5-#3/#508
N500 END2
N200 IF[#1EQ#500]GOTO100
#2=#1-#502
IF[#514EQ0] GOTO800
IF[#1GT#514] THEN#1=#1+#511
IF[#1GT#514] GOTO600
N800#1=#1+#501
N600IF[#1GT#500] THEN#1=#500
END1
N100 G0 Z50. M9
G28 W0
M30
%
#500=22 (Z项终点值)
#501=0.5 (Z项切削步距)
#502=0.5 (Z项G0定位步距)
#503=0.5 (Z项切削初始切深)
#504=-2 (Z项G0初始定位)
#505=38.9 (槽大径值或孔中心值)
#506=22.1 (槽小径值)
#507=3 (刀宽)
#508=4 (槽宽的切削总次数)
#509=1 (槽宽的切削累加记数的单位 当为0时，则钻深孔模式带啄式 当不为0时，则切深槽模式不带啄式 )
#510=20 (退出孔口距离)
#511=.25 (改变的每刀切深值)
#512=5 (倍径)
#513=0 (改变槽宽的切削总次数)
#514=15 (切深槽模式改变槽宽的切削总次数和切深的Z项长度 当为0时，则不改变 当不为0时，则改变。钻深孔模式只改变切深 当为0时，则不改变 当不为0时，则改变)
谢谢分享。 没细看 啄式进刀用G75就可以了吧 反正我用的是G75 NB 新手努力学习中
为什么把我的程序发上来了？？？看来必须关闭空间了！！！！
页:
[1]