雷尼绍探头程序实例操作案例

上期我们讲了雷尼绍探头编程基础知识，这期我们一起讨论利用下图测量点位编程序，修正加工坐标系，及校正倾斜角度

(O1818)

#680=0.5(探针半径）

#681=2(XY安全距离）

#682=20.(Z安全距离）

#683=6.3(Z)

#684=0.1(X 报警值）

#685=0.1(Y 报警值）

#800=5000(F)

(**********)

G91G28Z0

G0G90G59B0

G90G0G17G40G49G69G80

M6T15

G90G00G59X105.Y-90.M19

M05

G43Z50.H15

M17(开探头)

G04X.1

(Y POINT1)

#10=105.(X)

#11=-90.(Y)

#12=#683(Z)

G65P9810X#10Y[#11-#681]（保护移动）

G65P9810Z#12（保护移动）

G65P9811Y#11（单点测量）

#611=#141（Y误差值输出）

G0 Z#682  （抬刀）

(Y POINT2)

#10=-105.(X)

#11=-90.(Y)

#12=#683(Z)

G65P9810X#10Y[#11-#681]F#800 （保护移动）

G65P9810Z#12 （保护移动）

G65P9811Y#11 （单点测量）

#612=#141 （Y误差值输出）

G0Z#682（抬刀）

#621=[#611+#612]/2

(Y POINT3)

#10=-105.(X)

#11=90.(Y)

#12=#683(Z)

G65P9810X#10Y[#11+#681]F#800  保护移动）

G65P9810Z#12                     保护移动）

G65P9811Y#11               （单点测量）

#613=#141                        Y误差值输出）

G0Z#682                              抬刀）

(Y POINT4)

#10=105.(X)

#11=90.(Y)

#12=#683(Z)

G65P9810X#10Y[#11+#681]F#800 （保护移动）

G65P9810Z#12                      (保护移动)

G65P9811Y#11      （单点测量）

#614=#141         （Y误差值输出）

G0 Z#682          （抬刀）

#622=[#613+#614]/2

(X POINT5)

#10=120.(X)

#11=45.(Y)

#12=#683(Z)

G65P9810X[#10+#681]Y#11F#800  保护移动

G65P9810Z#12                      保护移动

G65P9811X#10                     单点测量

#615=#140                      （X误差值输出）

G0 Z#682                              （抬刀）

(X POINT6)

#10=120.(X)

#11=-45.(Y)

#12=#683(Z)

G65P9810X[#10+#681]Y#11F#800

G65P9810Z#12

G65P9811X#10

#616=#140

G0 Z#682

#623=[#615+#616]/2

(X POINT7)

#10=-120.(X)

#11=-45.(Y)

#12=#683(Z)

G65P9810X[#10-#681]Y#11F#800

G65P9810Z#12

G65P9811X#10

#617=#140

G0 Z#682

(X POINT8)

#10=-120.(X)

#11=45.(Y)

#12=#683(Z)

G65P9810X[#10-#681]Y#11F#800

G65P9810Z#12

G65P9811X#10

#618=#140

G0 Z#682

#624=[#617+#618]/2

#625=[#621+#622]/2(Y坐标中心误差值）

#626=[#623+#624]/2((X坐标中心误差值）

#630=ATAN[#611-#612]/210 (旋转角度）

M18（关探头）

(**********)

IF[ABS[#611]GT#685]GOTO990 （报警跳转）

IF[ABS[#612]GT#685]GOTO990 （报警跳转）

IF[ABS[#613]GT#685]GOTO990 （报警跳转）

IF[ABS[#614]GT#650]GOTO990 （报警跳转）

IF[ABS[#615]GT#684]GOTO990 （报警跳转）

IF[ABS[#616]GT#684]GOTO990 （报警跳转）

IF[ABS[#617]GT#684]GOTO990 （报警跳转）

IF[ABS[#618]GT#684]GOTO990 （报警跳转）

G91G28Z0.

M99

N990

#3000=99(X Y Z OUT OF TOL)

M99

M18

G91G28Z0

M01

M99