雷尼绍探针头程序.docx

雷尼绍探针头程序.docx

《雷尼绍探针头程序.docx》由会员分享，可在线阅读，更多相关《雷尼绍探针头程序.docx（8页珍藏版）》请在冰豆网上搜索。

雷尼绍探针头程序

雷尼绍探针头程序（总5页）

O8810（WEBMEAS.）

（TOOLCHOICE）

M19（SPINDLEORIENTATION）

G90G80G40G0（PREPARATORYCODE）

G59X0.Y0.

G43H20Z50.（ACTIVATEOFFSETTO100MMABOVE）

G65P9014Z-8.F1000（PROTECTEDMOVE）

G65P9010X365.S1.（WEBMEAS.）

G65P9014X-30.F3000

G65P9010Y255.S1.

G65P9014Z100.F3000

（REFERENCERETURN）

（CANCELOFFSET）

M99（PROGRAMEND）

O9010（RENWEBPKT）

G90G80G40

M98P9724

#9=#109

#1=#5041

#2=#5042

#15=#5021

#16=#5022

#118=#0

IF[#24EQ#0]GOTO3

IF[#25NE#0]GOTO16

#7=#24

#4=#500

IF[#26EQ#0]GOTO2

IF[#18NE#0]GOTO1

#18=*#9

N1#118=#24/2+#4+#18

N2G65P9705D[#24]Q[#17]Z[#26]F[#9]

GOTO6

N3IF[#25EQ#0]GOTO16

#7=#25

#4=#502

IF[#26EQ#0]GOTO5

IF[#18NE#0]GOTO4

#18=*#9

N4#118=#25/2+#4+#18

N5G65P9704D[#25]Q[#17]Z[#26]F[#9]

N6IF[#145NE]GOTO17

IF[#26EQ#0]GOTO7

#3=#131-#130-#4*2

#6=#3-#7

GOTO8

N7#3=#131-#130+#4*2

#6=#7-#3

N8IF[#22EQ#0]GOTO9

G65P9730M[#13]V[#22]D[#7]H[#11]E[#6]

N9IF[#13EQ#0]GOTO10

#[+#13]=#6

N10IF[#19EQ#0]GOTO14

IF[#19NE0]GOTO11

IF[#24EQ#0]GOTO12

#2500=#2500+[#132+#504-#1]

GOTO14

N11IF[#24EQ#0]GOTO12

#[#105]=[#15-#1]+[#132+#504-#1]-#2500

GOTO14

N12IF[#19NE0]GOTO13

#2600=#2600+[#133+#505-#2]

GOTO14

N13#[#106]=[#16-#2]+[#133+#505-#2]-#2600

N14IF[#20EQ#0]GOTO15

G65P9732T#20C[#6/2]

IF[#26NE#0]GOTO15

IF[#104LT[#7/2]]GOTO15

G0X#1Y#2

#3000=96（DIAOFFSETTOOLARGE）

N15IF[#11EQ#0]GOTO19

IF[ABS[#6]LTABS[#11]]GOTO19

G0X#1Y#2

#3000=90（OUTOFTOLERANCE）

N16#3000=91（FORMATERROR）

N17G0X#1Y#2

IF[#145EQ]GOTO18

#3000=92（PROBEOPEN）

N18#3000=93（PROBEFAIL）

N19G0X#1Y#2

M99

O9014（RENPROTECTEDPOSN）

G90G80G40

M98P9724

M98P9723

IF[#4111NE0]GOTO1

#3000=89（NOTOOLLENGTH）

N1IF[#9NE#0]GOTO3

IF[#102NE#0]GOTO2

#3000=88（NOFEEDRATE）

N2#9=#102

N3#102=#9

N4G31X#24Y#25Z#26F#9

M98P9723

IF[#24EQ#0]GOTO5

IF[ABS[#5041-#24]GE#103]GOTO7

N5IF[#25EQ#0]GOTO6

IF[ABS[#5042-#25]GE#103]GOTO7

N6IF[#26EQ#0]GOTO8

IF[ABS[[#5043-#5083]-#26]GE#103]GOTO7

GOTO8

N7#3000=86（PATHOBSTRUCTED）

N8M99

O9705（RENXDIAM）

G90G80G40

#1=#5041

#2=#5043-#5083

IF[#26EQ#0]GOTO1

G31X[#1-#118]F[5000*#9]

M98P9723

IF[ABS[#5061-[#1-#118]]GE#103]GOTO3

G31Z[#26]F[3000*#9]

M98P9723

IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N1G65P9721X[#1-#7/2]Q[#17]F[#9]

G0Z#2

X#1

IF[#145NE]GOTO4

#130=#5061

IF[#26EQ#0]GOTO2

G31X[#1+#118]F[5000*#9]

M98P9723

IF[ABS[#5061-[#1+#118]]GE#103]GOTO3

G31Z#26F[3000*#9]

M98P9723

IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N2G65P9721X[#1+#7/2]Q[#17]F[#9]

G0Z#2

IF[#145NE]GOTO4

#131=#5061

#132=[#131+#130]/2

GOTO4

N3#145=

N4G0Z#2

G0X#1

M99

O9721（RENXMOVE）

G90G80G40

#145=0

#1=#5041

IF[#17NE#0]GOTO1

#17=*#9

N1#4=*#9

IF[#1LE#24]GOTO2

#17=-#17

#4=*#9

N2#4=#4*#506

G31X[#24+#17]F[2500*#9]

M98P9723

IF[ABS[#5061-[#24+#17]]LT#103]GOTO4

IF[ABS[#5061-#1]LT#103]GOTO3

#3=#5061

G1X[#3-#4]F[5000*#9]

M98P9723

#3004=2

G31X[#24+#17]F[30*#9]

M98P9723

IF[ABS[#5061-[#24+#17]]LT#103]GOTO4

IF[ABS[#5061-[#3-#4]]LT#103]GOTO3

GOTO5

N3#145=

GOTO5

N4#145=

N5G0X#1

#3004=0

M99

O9723（RENPCDELAY）

#3001=

WHILE[#3001LE140]DO1

END1

M99

O9724（RENINCHMET）

#109=

#103=.050

IF[#4006NE20]GOTO1

#103=.002

#109=

N1IF[#4006NE70]GOTO2

#103=.002

#109=

N2IF[#506LE0]GOTO3

IF[#506GT1.]GOTO3

GOTO4

N3#506=.5

N4IF[#19EQ#0]GOTO5

#105=2500+#19

#106=2600+#19

#107=2700+#19

IF[#19LT100]GOTO5

#105=6981+[20*[#19-100]]

#106=6982+[20*[#19-100]]

#107=6983+[20*[#19-100]]

N5M99