FUKC磨刀机宏程式探头

12555*

%
O0099(TAN-TOU)
#6=1.
#11021=#11014
G40G49G69G80G90
G91G28Z0.
M06T05
#105=0.5
#5201=0
#5202=0
#5203=0
#33=#501/2-0.3
#32=#501/2-0.13
M72
G90G00G54X[2*#6]Y[#33*#6]A-30.
M19
M106
G43H14Z50.
G00Z10.
G90G31Z-0.5F2000.
#701=#5063-#11021
IF[#701NE-0.5]GOTO11
G90G31X[-20.*#6]F1000
#702=#5061
IF[#702EQ[-20.*#6]]GOTO11
G91G01X[2*#6]F1000
G90G31X[-20.*#6]F50.
#703=#5061
G91G01X[1.*#6]F3000
G90G00Z30.0
#7021=#5221+#703-#105*#6
#7022=#5222
#7023=#5223
#7024=#5224
M72
#15=10.

G90G0G54.1P2X[-1*#6]Y[-#105*#6]A#15
N66
G90G0Z[#501/2+2]
G90G0A#15
G90G31Z#32F150.
#11=#5063-#11021
#15=#15+10.
IF[ABS[#11-#32]GE0.01]GO66
G91G31A-30.F500.
G91A2.
G91G31A-3.F50.
#16=#5064
G91G0A2.
G90G0Z[#501/2+2]
#15=0.
G91X[-#504*#6]
N77
G90G0Z[#501/2+2]
G90G0A#15
G90G31Z#32F150.
#11=#5063-#11021
#15=#15+10.
IF[ABS[#11-#32]GE0.01]GO66
G91G31A-45.F500.
G91G0A2.
G91G31A-3.F50.
#17=#5064
G91G0A2.
#505=#16-#17
G91G28Z0.
M116
#877=#4115
M99
N11
G91G28Z0.
M116
G91G28X0Y0
#3000=3(DJ_DAOJIANBENREN_NG)
%

12555*

有人能看懂吗！还有好几个

rufengwang

在哪弄得程序   怎么像我以前变得程序   发那科断修立铣刀得探刀尖得程序

rufengwang

rufengwang 发表于 2019-12-26 12:48
在哪弄得程序   怎么像我以前变得程序   发那科断修立铣刀得探刀尖得程序

同行啊   我经常用发那科端修刀具     程序都是自己编的