马波斯探头程式

2024-07-28 作者:

O8301(MARPOSS V3.0)

IF[#19EQ#0]GOTO910

IF[#7EQ#0]GOTO970

IF[#7LE0]GOTO930

IF[#3NE#0]GOTO100

#3=1

N100IF[#3LT1]GOTO940

IF[#3GT3]GOTO940

#500=1

IF[#4008NE43]GOTO920

IF[#4006EQ20]GOTO110

IF[#4006EQ70]GOTO110

#500=25.4

N110G65P8360

IF[#6NE#0]GOTO120

#6=-.25*#500

N120IF[#8EQ#0]GOTO130

IF[#8NE1]GOTO950

IF[#24EQ#0]GOTO960

IF[#25EQ#0]GOTO960

N130IF[#24NE#0]GOTO140

#24=0

N140IF[#25NE#0]GOTO150

#25=0

N150#4=506+[#3-1]*6

G65P8300X#24Y#25

G65P8300Z[.3*#500]

G65P8363Z-[.1*#500]

#[#4]=-#105

#2=#7/2

#1=#19+.1*#500

#4=#4-5

IF[#8NE1]GOTO160

G65P8300X0Y0

G65P8300Z#6

GOTO165

N160#2=-#2

N165G65P8300X[#2-#1]Y0

G65P8300Z#6

G65P8361X#2

#[#4]=#2-#105

IF[#8EQ1]GOTO170

G0Z1.

N170G65P8300X[#1-#2]

G65P8300Z#6

G65P8361X-#2

#4=#4+1

#[#4]=-#2-#105

IF[#8EQ1]GOTO180

G0Z1.

N180G65P8300Y[#2-#1]X0

G65P8300Z#6

G65P8362Y#2

#4=#4+1

#[#4]=#2-#105

IF[#8EQ1]GOTO190

G0Z1.

N190G65P8300Y[#1-#2]

G65P8300Z#6

G65P8362Y-#2

#4=#4+1

#[#4]=-#2-#105

G0Z1.

M99

N910#3000=119(NO S)

N920#3000=165(NO TOOL OFFSET) N930#3000=134(INV ALID D)

N940#3000=133(INV ALID C)

N950#3000=135(INV ALID E)

N960#3000=128(NO X/Y)

N970#3000=104(NO D)

O8310(MARPOSS V3.0)

G65P8360

#24=#5041

#25=#5042

IF[#7EQ#0]GOTO920

IF[#7LE0]GOTO960

IF[#3NE#0]GOTO110

#3=1

N110IF[#3LT1]GOTO910

IF[#3GT3]GOTO910

IF[#13NE#0]GOTO120

#13=.1*#500

N120IF[#18NE#0]GOTO130 #18=#5043-#5083

N130IF[#8NE1]GOTO140 #10=1

N140#5=#7/2

IF[#19EQ1]GOTO210

IF[#19EQ3]GOTO200

IF[#19NE2]GOTO930

#5=-#5

N200IF[#6NE#0]GOTO220 #3000=111(NO K)

N210G65P8300Z#6

N220M19

G04X0.5

G65P8300X[#24+#5-#13]

G65P8300Z#6

G65P8361X[#24+#5+#13] #8=#105

IF[#19EQ1]GOTO240

G0Z#18

N240M19S180

G04X0.5

G65P8300X[#24-#5+#13]

G65P8300Z#6

G65P8361X[#24-#5-#13]

#9=#105

IF[#19EQ1]GOTO260

G0Z#18

N260G65P8300X[[#8+#9]/2]

M19S90

G04X0.5

G65P8300Y[#25+#5-#13]

G65P8300Z#6

G65P8362Y[#25+#5+#13] #1=#105

IF[#19EQ1]GOTO280

G0Z#18

N280

M19S270

G04X0.5

G65P8300Y[#25-#5+#13]

G65P8300Z#6

G65P8362Y[#25-#5-#13]

#2=#105

IF[#19EQ1]GOTO300

G0Z#18

N300G65P8300Y[[#1+#2]/2]

IF[#10EQ1]GOTO340

M19

G04X0.5

G65P8300X[#24+#5-#13]

G65P8300Z#6

G65P8361X[#24+#5+#13]

#8=#105

IF[#19EQ1]GOTO320

G0Z#18

N320

M19S180

G04X0.5

G65P8300X[#24-#5+#13]

G65P8300Z#6

G65P8361X[#24-#5-#13]

G0Z#18

#9=#105

G65P8300X[[#8+#9]/2]

N340G0Z#18

#105=#5041

#106=#5042

#107=#5021

#108=#5022

#109=ABS[#8-#9]

#110=ABS[#1-#2]

#111=[#109+#110]/2

#112=#111-#7

IF[#19NE2]GOTO400

#112=-#112

N400IF[#21EQ#0]GOTO710

IF[ABS[#112]GT#21]GOTO940 N710IF[#23EQ#0]GOTO840

IF[#104EQ5200]GOTO810

IF[#23LT54]GOTO950

IF[#23GT59]GOTO950

#9=#104+#23-53

#[#9]=#107

#[#9+100]=#108

GOTO850

N810IF[#23LT54]GOTO820

IF[#23GT59]GOTO950

#9=#104+[#23-53]*20

GOTO830

N820IF[#23LT1]GOTO950

IF[#23GT48]GOTO950

#9=6980+#23*20

N830#[#9+1]=#107

#[#9+2]=#108

GOTO850

N840IF[#20EQ#0]GOTO850

#9=#102+#20

#[#9]=#[#9]+#112/2

N850IF[#17EQ#0]GOTO900

G65P8364Q#17X#7Y#111Z#112

N900M99

N910#3000=133(INV ALID C)

N920#3000=104(NO D)

N930#3000=149(INV ALID S)

N940#3000=170(OUT OF TOLERANCE) N950#3000=153(INV ALID W)

N960#3000=134(INV ALID D)

O8311(MARPOSS V3.0)

G65P8360

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

M99

O8314(MARPOSS V3.0)

G65P8360

IF[#3NE#0]GOTO110

#3=1

N110IF[#3LT1]GOTO910

IF[#3GT3]GOTO910

IF[#13NE#0]GOTO120

#13=.1*#500

N120IF[#18NE#0]GOTO130 #18=#5043-#5083

N130#4=0

IF[#24EQ#0]GOTO200

#4=#4+1

#8=#5041

#1=1

#2=#24

N200IF[#25EQ#0]GOTO210 #4=#4+1

#8=#5042

#1=2

#2=#25

N210IF[#26EQ#0]GOTO220 #4=#4+1

#8=#5043-#5083

#1=3

#2=#26

N220IF[#4EQ0]GOTO920

IF[#4NE1]GOTO930

G65P8300Z#6

#5=501+[#1-1]*2+[#3-1]*6

IF[#8GT#2]GOTO230

#13=-#13

GOTO240

N230#5=#5+1

N240#7=#[#5]

GOTO[240+#1]

N241G65P8300X[#24+#13-#7] G65P8361X[#24-#13+#7] GOTO250

N242G65P8300Y[#25+#13-#7] G65P8362Y[#25-#13+#7] GOTO250

N243G65P8300Z[#26+#13-#7] G65P8363Z[#26-#13+#7]

N250#106=#106+#7

#107=#105+#7

#108=#107-#2

GOTO[260+#1]

N261G0X#8

N262G0Y#8

N263G0Z#18

IF[#21EQ#0]GOTO790

IF[ABS[#108]GT#21]GOTO940

N790IF[#23EQ#0]GOTO830

IF[#104EQ5200]GOTO800

IF[#23LT54]GOTO950

IF[#23GT59]GOTO950

#3=#104+[#1-1]*100+#23-53

GOTO820

N800IF[#23LT54]GOTO810

IF[#23GT59]GOTO950

#3=#104+#1+[#23-53]*20

GOTO820

N810IF[#23LT1]GOTO950

IF[#23GT48]GOTO950

#3=6980+#1+#23*20

N820#[#3]=#106-#107+#108

GOTO860

N830IF[#20EQ#0]GOTO850

#3=#102+#20

IF[#1NE3]GOTO840

#3=#103+#20

N840#[#3]=#[#3]+#108

GOTO860

N850IF[#9EQ#0]GOTO860

IF[#9NE1]GOTO960

#[#5]=#2-#105

N860IF[#17EQ#0]GOTO900

G65P8364Q#17X#2Y#107Z#108

N900M99

N910#3000=133(INV ALID C)

N920#3000=128(NO AXIS)

N930#3000=164(MULTI AXIS)

N940#3000=170(OUT OF TOERANCE)

N950#3000=153(INV ALID W)

N960#3000=136(INV ALID F)

O8358(PROBE ON MARPOSS 2008/08/11) G80G90G21G40G49

M18G4X0.5

T#11M6

M19

M17G4X0.5

G43H#11

M99

O8360(MARPOSS V3.0)

#8=1

IF[#4006EQ20]GOTO100

IF[#4006EQ70]GOTO100

#8=25.4

N100IF[#500NE#8]GOTO200

#100=200*#8

#101=100.

#102=13000

#103=11000

#104=5200

M99

N200#3000=166(INCH/METRIC CONFLICT)

O8361(MARPOSS V3.0)

G04X0.05

#8=#5041

#3=.0002*#500

#3004=2

IF[#2EQ#0]GOTO100

#9=#5042

#25=#5+#24*ROUND[SIN[#2]*10000]/10000

#24=#4+#24*ROUND[COS[#2]*10000]/10000 N100G31X#24Y#25F#101

G04X0.05

#105=#5061

#106=#5021-#5041+#105

#3004=0

IF[#2EQ#0]GOTO120

#107=#5062

#108=#5022-#5042+#107

IF[#9EQ#25]GOTO120

IF[ABS[#107-#9]LT#3]GOTO910

IF[ABS[#107-#25]LT#3]GOTO920

IF[#8EQ#24]GOTO130

N120IF[ABS[#105-#8]LT#3]GOTO910

IF[ABS[#105-#24]LT#3]GOTO920

N130G01X#8Y#9F#100

M99

N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)

O8362(MARPOSS V3.0)

G04X0.05

#8=#5042

#3=.0002*#500

#3004=2

G31Y#25F#101

G04X0.05

#105=#5062

#106=#5022-#5042+#5062

#3004=0

IF[ABS[#105-#8]LT#3]GOTO910

IF[ABS[#105-#25]LT#3]GOTO920

G01Y#8F#100

M99

N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)

O8363(MARPOSS V3.0)

G04X0.05

#8=#5043-#5083

#3=.0002*#500

#3004=2

G31Z#26F#101

G04X0.05

#105=#5063-#5083

#106=#5023-#5043+#105

#3004=0

IF[ABS[#105-#8]LT#3]GOTO910

IF[ABS[#105-#26]LT#3]GOTO920

G01Z#8F#100

M99

N910#3000=167(NO PROBE MOVEMENT)

N920#3000=168(NO WORKPIECE)

O8364(MARPOSS V3.0)

IF[#24EQ#0]GOTO220

IF[#25EQ#0]GOTO230

IF[#26EQ#0]GOTO240

IF[#17EQ2]GOTO100

IF[#17NE1]GOTO210

DPRNT[]

DPRNT[*NOMINAL***ACTUAL****ERROR] DPRNT[---------*---------*---------]

N100

DPRNT[#24[44]**#25[44]**#26[44]]

DPRNT[]

M99

N210#3000=147(INV ALID Q)

N220#3000=124(NO X)

N230#3000=125(NO Y)

N240#3000=126(NO Z)

(O8888)(TOOL LIFE )

G90G0G17G40G80G49G69

G91G28Z0M5

M01

G91G28Z0.

#871=#871+1

#971=#971+1

IF[#971GT1200]GOTO1

#872=#872+1

#972=#972+1

IF[#972GT1200]GOTO2

#873=#873+1

#973=#973+1

IF[#973GT900]GOTO3

#874=#874+1

#974=#974+1

IF[#974GT1300]GOTO4 #875=#875+1

#975=#975+1

IF[#975GT800]GOTO5

#876=#876+1

#976=#976+1

IF[#976GT2000]GOTO6 #877=#877+1

#977=#977+1

IF[#977GT3000]GOTO07 #878=#878+1

#978=#978+1

IF[#978GT5000]GOTO08 #879=#879+1

#979=#979+1

IF[#979GT3000]GOTO9 #880=#880+1

#980=#980+1

IF[#980GT1800]GOTO10 #882=#882+1

#982=#982+1

IF[#982GT2500]GOTO12 (#813=#813+1)

(IF[#813GT5000]GOTO13) #884=#884+1

#984=#984+1

IF[#984GT3000]GOTO14 #885=#885+1

#985=#985+1

IF[#985GT800]GOTO15 #886=#886+1

#986=#986+1

IF[#986GT1400]GOTO16

#887=#887+1

#987=#987+1

IF[#987GT800]GOTO17

M99

M01

N1

M6T19

#971=0

M802

M808

#3000=1(T1 OVER)

N2

M6T20

#972=0

M802

M808

#3000=1(T2 OVER)

N3

M6T21

#973=0

M802

M808

#3000=1(T3 OVER)

N4

M6T1

#974=0

M802

M808

#3000=1(T4 OVER)

N5

M6T2

#975=0

M802

M808

#3000=1(T5 OVER)

N6

M6T3

#976=0

M802

#3000=1(T6 OVER) N7

#977=0

M802

M808

#3000=1(T7 OVER) N8

#978=0

M802

M808

#3000=1(T8 OVER) N9

M6T6

#979=0

M802

M808

#3000=1(T9 OVER) N10

M6T7

#980=0

M802

M808

#3000=1(T10 OVER) N11

#981=0

M802

M808

#3000=1(T11 OVER) N12

#982=0

M802

M808

#3000=1(T12 OVER) N13

M6T10

#983=0

M802

M808

#3000=1(T13 OVER) N14

M6T11

#984=0

M808

#3000=1(T14 OVER) N15

M6T12

#985=0

M802

M808

#3000=1(T15 OVER) N16

M6T13

#986=0

M802

M808

#3000=1(T16 OVER) N17

M6T14

#987=0

M802

M808

#3000=1(T17 OVER)