教你编探头分中宏程序

fongkk

这个是雷尼绍用在三菱系统上的首先要把产品分中，然后抄到G59。探头分中可以减少每次装夹误差


G91G28Z0.
G40G49G80G69G49
M6T16
#700=0.1（设置公差）
#600=2  （设置安全距离）
G90G59
G65P9709（激活探头）
G65P9701 （打开探头用户参数，9701可以改探头直径）
G43Z50.H16
#1=37.97（探点X坐标）
#2=0    （探点Y坐标）
#3=12    （探点Z坐标）
G65P9703A1.X[#1+#600]Y#2F500.    （P9703带保护的移动，A1用绝对坐标方式编程）
G65P9703A1.Z#3F500.    （移动到Z点）
G65P9700A1X#1      （P9700主程序。开始探测X点）
#601=#103        （把探测数据写到#601）
G65P9703A1.Z20.F500.    （抬高到安全距离）


#1=-37.97
#2=0
#3=12
G65P9703A1.X[#1-#600]Y#2F500.
G65P9703A1.Z#3F500.
G65P9700A1X#1
#602=#103
G65P9703A1.Z20.F500.



#1=0
#2=78.855
#3=12
G65P9703A1.X#1Y[#2#600]F500.
G65P9703A1.Z#3F500.
G65P9700A1Y#2
#603=#104
G65P9703A1.Z20.F500.

#1=0
#2=-78.855
#3=12
G65P9703A1.X#1Y[#2-#600]F500.
G65P9703A1.Z#3F500.
G65P9700A1Y#2
#604=#104
G65P9703A1.Z20.F500.
G65P9710    （关闭探头）
(END)
#610=[#601+#602]/2(X)（X分中）

#611=[#603+#604]/2(Y) （Y分中）

#5261=#5321+#610  （把误差值写入G54X坐标)
#5262=#5322+#611   （把误差值写入G54Y坐标)
#5263=#5323
G0Z50.
IF[ABS[#601]GT#700]GOTO100  (探点超过公差值报警）
IF[ABS[#602]GT#700]GOTO100  (探点超过公差值报警）
IF[ABS[#603]GT#700]GOTO100  (探点超过公差值报警）
IF[ABS[#604]GT#700]GOTO100  (探点超过公差值报警）


G91G28Z0.
M99
N100
#3000=1

%

邵阳_新邵_一刀

谢谢分xiang

hao-ran

测头都有软件包,本身就带了很多功能 费这劲干嘛?

byc881230

谢谢楼主分享

雁南一撇

hao-ran 发表于 2019-10-12 13:22
测头都有软件包,本身就带了很多功能 费这劲干嘛?

哪里有！我怎么不知道啊

暴躁的小伙子

{:smile:}

ZWTLLC-I

谢谢楼主分享

hao-ran

雁南一撇 发表于 2021-10-8 13:37
哪里有！我怎么不知道啊

测头有测圆 的程序，还有测 X向和Y向槽的程序 都可以输出坐标 进行分中啊

lg333

互学习，共同进步!

红萍情海

分享的不错，再接再厉，要是出个UG编探头程式教学视频就更好了