Arkadaşlar uzun zamandır beklediğim renishaw ts27r takım sıfırlama probum geldi fakat takan servisci arkadaşlar ne kullanmasını ne çalıştırmasını biliyor.Makinemde mistsubishi m70 kontrol ünitesi var.Kullanımıyla ilgili bilgisi olan arkadaşlardan yardım bekliyorum.Takım nasıl sıfırlanıyor.Manuel sıfırlama yapabiliyormuyuz vb.....
program larını da yukledilermi oncelikle kalibre programı sonrada boy olcme yarı cap olcme ve her ikisinide olcme ve bunların dallandıgı programlar
%
O7000(LENGTH ONLY,MACRO B)
G65P9853B1T1
M00
N2G65P9853B1T2
M00
N3G65P9853B2T3D23
M00
N4G65P9853B1T4
M00
N5G65P9853B1T5
M00
N6G65P9853B1T6
M00
N7G65P9853B1T7
M00
N8G65P9853B1T8
M00
N9G65P9853B1T9
M00
N10G65P9853B1T10
M00
N11G65P9853B1T11
M00
N12G65P9853B1T12
M00
N13G65P9853B1T13
M00
N14G65P9853B1T14
M00
N15G65P9853B1T15
M00
N16G65P9853B1T16
M00
M02
O7001(RADIUS & LENGTH,MACRO B)
N1G65P9853B3T1D21
M00
N2G65P9853B3T2D22
M00
N3G65P9853B3T3D23
M00
N4G65P9853B3T4D24
M00
N5G65P9853B3T5D25
M00
N6G65P9853B3T6D26
M00
N7G65P9853B3T7D27
M00
N8G65P9853B3T8D28
M00
N9G65P9853B3T9D29
M00
N10G65P9853B3T10D30
M00
N11G65P9853B3T11D31
M00
N12G65P9853B3T12D32
M00
N13G65P9853B3T13D33
M00
N14G65P9853B3T14D34
M00
N15G65P9853B3T15D35
M00
N16G65P9853B3T16D36
M00
M30
O7777(TOOLSETTER CALIBRATION)
(JOG OR HANDWHEEL REF.TOOL OVER STYLUS)
G65P9851K72.292(K=REF.LENGTH)
#530=-1.
G65P9852K12.81S15.99(K=STYLUS DIA. S=REF.DIA.)
#530=-2.
G65P9852K12.81S15.99(K=STYLUS DIA. S=REF.DIA.)
M30
O9851(REN LEN SET)
M05
#118=0
M98P9799
IF[#6NE#0]GOTO1
IF[#20EQ#0]GOTO22
N1
#3=#5023-#5043
#5=3
IF[#19LT0]GOTO2
#5=4
N2
#23=#5043-#149
IF[#17NE#0]GOTO3
#17=4.*#29
N3
IF[#26NE#0]GOTO4
#26=-10.*#29
N4
IF[#13EQ#0]GOTO5
#[2000+#13]=0
N5
#28=#23+#26
#1=.5*#29
IF[#23GT#28]GOTO6
#1=-.5*#29
#17=-#17
N6
IF[#6NE#0]GOTO9
IF[#19EQ#0]GOTO9
#15=ABS[#19/#29]
#15=[ROUND[1910/#15]]*10
IF[#15LT800]GOTO7
#15=800
N7
IF[#15GT150]GOTO8
#15=150
N8
#31=800(RPM SECOND TOUCH)
#9=#15/8*#29(FEED FIRST TOUCH)
#27=4.*#29(FEED SECOND TOUCH)
GOTO10
N9
#27=4.*#29
#9=1000.*#29
#1=5.*#29*#506
N10
#10=1000.*#29
#28=#28-#17
IF[#15EQ#0]GOTO11
S#15M#5
G04X1.
N11(Z MEAS)
#3004=2
#30=122
G31Z#28F#9
#25=#5063-#149+#1
G1Z#25F#10
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#23]LE.05*#29]GOTO23
#30=0
#32=#25
IF[#6NE#0]GOTO12
#32=#5063-#149-#26
IF[#31EQ#0]GOTO12
S#31
G04X1.
GOTO13
N12
G31Z#28F[30*#29]
G1Z#32F[5000*#29]
#3004=0
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#25]LE.05*#29]GOTO23
#30=0
#12=#5063
#8=#5063+#3-#107
IF[#6EQ#0]GOTO15
#3004=2
N13
G31Z#28F[#27]
G1Z[#5063-#149-#26]F[5000*#29]
#3004=0
IF[#15EQ#0]GOTO14
S#15
N14
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#25]LE.05*#29]GOTO23
#30=0
#14=#5063
#8=#5063+#3-#113
IF[#6NE#0]GOTO21
N15
(SET TOOL)
IF[#108EQ2]GOTO17
IF[#108EQ3]GOTO17
IF[#108EQ12]GOTO19
IF[#108EQ13]GOTO19
(TYPE A)
IF[#11EQ#0]GOTO16
IF[ABS[#8-#[2000+#20]]GT#11]GOTO26
GOTO28
N16
#[2000+#20]=#8(GEOM)
GOTO28
N17(TYPE B FS0)
IF[#11EQ#0]GOTO18
IF[ABS[#8-#[2000+#20]-#[2200+#20]]GT#11]GOTO26
GOTO28
N18
#[2200+#20]=#8(GEOM)
#[2000+#20]=0(WEAR)
GOTO28
N19(TYPE B FS10)
IF[#11EQ#0]GOTO20
IF[ABS[#8-#[2000+#20]-#[2200+#20]]GT#11]GOTO26
GOTO28
N20
#[2000+#20]=#8(GEOM)
#[2200+#20]=0(WEAR)
GOTO28
N21(CAL.)
#107=#12-#6+#3
#113=#14-#6+#3
#118=1
GOTO28
N22
#3000=91(FORMAT ERROR)
N23
M05
G1Z#23F[2000*#29]
IF[#30EQ122]GOTO25
N24
#3000=92(PROBE OPEN)
N25
IF[#11NE#0]GOTO26
#3000=93(PROBE FAIL)
N26
IF[#13EQ#0]GOTO27
#[2000+#13]=1
GOTO28
N27
M05
#3000=99(BROKEN TOOL)
N28
M05
M98P9799
#118=0
M99
O9852(REN DIAM SET)
#2=#4
M05
#118=0
IF[#19EQ#0]GOTO34
M98P9799
IF[#6NE#0]GOTO1
IF[#7EQ#0]GOTO34
GOTO2
N1
#110=#6
N2
#5=3
IF[#19LT0]GOTO3
#5=4
N3
#7=ABS[#7]
#19=ABS[#19]
IF[#18NE#0]GOTO4
#18=4.*#29
N4
IF[#13EQ#0]GOTO5
#[2000+#13]=0
N5
#31=800(RPM SECOND TOUCH)
#15=#19/#29
#15=[ROUND[1910/#15]]*10
IF[#15LT800]GOTO6
#15=800(RPM FIRST TOUCH)
N6
IF[#15GT150]GOTO7
#15=150
N7
#9=#15/6*#29(FEED FIRST TOUCH)
#27=4.*#29(FEED SECOND TOUCH)
#10=5000.*#29(CLEAR MOVE XY)
#12=1000.*#29(CLEAR MOVE Z)
IF[#26NE#0]GOTO8
#26=-15.*#29
N8
IF[#6NE#0]GOTO9
S#15M#5
N9
#21=#5041
#22=#5042
#3004=0
IF[#6NE#0]GOTO11
G31X[#111-[#5021-#5041]]Y[#112-[#5022-#5042]]F#10
#30=121
IF[ABS[#5041-[#111-[#5021-#5041]]]GE.05*#29]GOTO10
IF[ABS[#5042-[#112-[#5022-#5042]]]GE.05*#29]GOTO10
GOTO11
N10
M05
G1X#21Y#22
#3000=92(PROBE OPEN)
N11
#23=#5043-#149
#1=-.5*#29
#14=0
#16=#23+#26
IF[#120EQ2]GOTO16
IF[#120EQ-2]GOTO16
(X MEAS)
#21=#5041
#22=#5042
#24=#21-[#110+#19]/2+#18
#28=#21-[#110+#19]/2-#18
N12
G31X#28F#10
#30=121
IF[ABS[#5061-#28]GT.05*#29]GOTO35
G31Z#16F#12
#30=121
IF[ABS[[#5063-#149]-#16]GT.05*#29]GOTO33
#3004=2
G31X#24F#9
#25=#5061+#1
G1X#25F#10
#30=122
IF[ABS[#5061-#24]LE.05*#29]GOTO33
#30=121
IF[ABS[#5061-#28]LE.05*#29]GOTO33
IF[#6NE#0]GOTO14
IF[ABS[#31-#4119]LT1]GOTO13
S#31
N13
G04X1.
N14
G31X#24F[#27]
G1X#28F[3000*#29]
#3004=0
IF[ABS[#15-#4119]LT1]GOTO15
S#15
N15
#30=122
IF[ABS[#5061-#24]LE.05*#29]GOTO33
#30=121
IF[ABS[#5061-#25]LE.05*#29]GOTO33
#30=0
#[#14+4]=#5061(V4 AND V5 SKIP)
Z#23
X#21
#1=-#1
#14=#14+1
#24=#21+[#110+#19]/2-#18
#28=#21+[#110+#19]/2+#18
IF[#14NE2]GOTO12
IF[#6NE#0]GOTO32
GOTO21
N16
(Y MEAS)
#21=#5042
#22=#5041
#24=#21-[#110+#19]/2+#18
#28=#21-[#110+#19]/2-#18
N17
G31Y#28F#10
#30=121
IF[ABS[#5062-#28]GT.05*#29]GOTO39
G31Z#16F#12
#30=121
IF[ABS[[#5063-#149]-#16]GT.05*#29]GOTO37
#3004=2
G31Y#24F#9
#25=#5062+#1
G1Y#25F#10
#30=122
IF[ABS[#5062-#24]LE.05*#29]GOTO37
#30=121
IF[ABS[#5062-#28]LE.05*#29]GOTO37
IF[#6NE#0]GOTO19
IF[ABS[#31-#4119]LT1]GOTO18
S#31
N18
G4X1.
N19
G31Y#24F[#27]
G1Y#28F[3000*#29]
#3004=0
IF[ABS[#15-#4119]LT1]GOTO20
S#15
N20
#30=122
IF[ABS[#5062-#24]LE.05*#29]GOTO37
#30=121
IF[ABS[#5062-#25]LE.05*#29]GOTO37
#30=0
#[#14+4]=#5062(V4 AND V5 SKIP)
Z#23
Y#21
#1=-#1
#14=#14+1
#24=#21+[#110+#19]/2-#18
#28=#21+[#110+#19]/2+#18
IF[#14NE2]GOTO17
IF[#6NE#0]GOTO32
N21(SET TOOL)
#8=ABS[#4-#5]-#110-[#2*2]
IF[#108EQ2]GOTO24
IF[#108EQ3]GOTO28
IF[#108EQ12]GOTO26
IF[#108EQ13]GOTO30
N22(TYPE A)
IF[#11EQ#0]GOTO23
IF[ABS[[#8/2]-#[2000+#7]]GT#11]GOTO42
GOTO44
N23
#[2000+#7]=#8/2(OFFSET)
GOTO44
N24(TYPE B FS0)
IF[#11EQ#0]GOTO25
IF[ABS[[#8/2]-#[2000+#7]-#[2200+#7]]GT#11]GOTO42
GOTO44
N25
#[2200+#7]=#8/2(GEOM)
#[2000+#7]=0(WEAR)
GOTO44
N26(TYPE B FS10)
IF[#11EQ#0]GOTO27
IF[ABS[[#8/2]-#[2000+#7]-#[2200+#7]]GT#11]GOTO42
GOTO44
N27
#[2000+#7]=#8/2(GEOM)
#[2200+#7]=0(WEAR)
GOTO44
N28(TYPE C FS0)
IF[#11EQ#0]GOTO29
IF[ABS[[#8/2]-#[12000+#7]-#[13000+#7]]GT#11]GOTO42
GOTO44
N29
#[13000+#7]=#8/2(GEOM)
#[12000+#7]=0(WEAR)
GOTO44
N30(TYPE C FS10)
IF[#11EQ#0]GOTO31
IF[ABS[[#8/2]-#[2400+#7]-#[2600+#7]]GT#11]GOTO42
GOTO44
N31
#[2400+#7]=#8/2(GEOM)
#[2600+#7]=0(WEAR)
GOTO44
N32
IF[#120EQ2]GOTO36
IF[#120EQ-2]GOTO36
(XCALIBRATE)
#110=ABS[#4-#5]-#19
#111=[[#4+#5]/2]+#5021-#5041
#112=#5022
X[#111-[#5021-#5041]]
#118=2
GOTO44
N33
G1X#28F[5000*#29]
Z#23
GOTO35
N34
M05
#3000=93(FORMAT ERROR)
N35
M05
G1X#21F[5000*#29]
IF[#30EQ122]GOTO41
GOTO40
N36
(Y CAL.)
#110=ABS[#4-#5]-#19
#112=[[#4+#5]/2]+#5022-#5042
#111=#5021
Y[#112-[#5022-#5042]]
#118=2
GOTO44
N37
G1Y#28F[5000*#29]
Z#23
GOTO39
N38
M05
#3000=91(FORMAT ERROR)
N39
M05
G1Y#21F[5000*#29]
IF[#30EQ122]GOTO41
N40
#3000=92(PROBE OPEN)
N41
IF[#11NE#0]GOTO42
#3000=93(PROBE FAIL)
N42
IF[#13EQ#0]GOTO43
#[2000+#13]=1
GOTO44
N43
M05
#3000=99(BROKEN TOOL)
N44
M05
M98P9799
#118=0
M99
O9853(REN AUTO SET)
#1=#4
M05
#118=0
M98P9799
IF[#20EQ#0]GOTO26
#27=FIX[#20](TOOL)
#32=[#20-FIX[#20]]*1000(OFFSET)
#32=ROUND[#32]
IF[#32NE0]GOTO1
#32=#27
N1
IF[#2EQ1]GOTO2
IF[#7EQ#0]GOTO26
N2
IF[#108EQ3]GOTO3
IF[#108EQ13]GOTO3
IF[ABS[#7]EQ#32]GOTO26
N3
#4=#5021-#5041
#5=#5022-#5042
#6=#5023-#5043
IF[#19EQ#0]GOTO4
#31=#19
#10=ABS[#19]
GOTO10
N4
IF[#7EQ#0]GOTO11
#31=-1
IF[#7LT0]GOTO5
#31=1
N5
IF[#108EQ2]GOTO6
IF[#108EQ12]GOTO6
IF[#108EQ3]GOTO7
IF[#108EQ13]GOTO8
#10=#[2000+ABS[#7]]
GOTO9
N6
#10=#[2000+ABS[#7]]+#[2200+ABS[#7]]
GOTO9
N7
#10=#[12000+ABS[#7]]+#[13000+ABS[#7]]
GOTO9
N8
#10=#[2400+ABS[#7]]+#[2600+ABS[#7]]
N9
#10=[#10+#1]*2
#31=#10*#31
N10
IF[#10EQ0]GOTO25
IF[#2EQ1]GOTO11
IF[#10GT#121]GOTO25
N11
#3004=0
IF[#27EQ#0]GOTO12
G65P9850T#27H#11
N12
IF[#19NE#0]GOTO13
IF[#7EQ#0]GOTO19
N13
IF[#10LE#117]GOTO19
IF[#2EQ2]GOTO19
IF[#120EQ1]GOTO14
IF[#120EQ-1]GOTO15
IF[#120EQ2]GOTO16
IF[#120EQ-2]GOTO17
GOTO19
N14
G0X[#111-#4]Y[#112-#5-[#10/2]]
GOTO18
N15
G0X[#111-#4]Y[#112-#5+[#10/2]]
GOTO18
N16
G0Y[#112-#5]X[#111-#4-[#10/2]]
GOTO18
N17
G0Y[#112-#5]X[#111-#4+[#10/2]]
N18
#10=#31
GOTO20
N19
G0X[#111-#4]Y[#112-#5]
#10=#0
N20
#28=#113+#115-#6
G31G43H#32Z#28F[3000*#29]
G65P9799
IF[ABS[[#5063-#149]-#28]GT.05*#29]GOTO24
#28=#113+#116-#6
G31Z#28F[1000*#29]
IF[ABS[[#5063-#149]-#28]GT.05*#29]GOTO24
IF[#2EQ2]GOTO21
G65P9851T[#32]S[#10]Z[-#116]Q[#17]H[#11]M[#13]
IF[#13EQ#0]GOTO21
IF[#[2000+#13]EQ1]GOTO27
N21
IF[#7EQ#0]GOTO27
IF[#26EQ#0]GOTO22
#26=#26-#116
GOTO23
N22
#26=-[#116+[5.*#29]]
N23
IF[#2EQ1]GOTO27
IF[#2EQ#0]GOTO27
G65P9852D[ABS[#7]]S[#31]Z[#26]R[#18]I[#1]H[#11]M[#13]
GOTO27
N24
G91G28Z0
G90
#3000=92(PROBE OPEN)
N25
#3000=82(TOOL OUT OF RANGE)
N26
#3000=91(FORMAT ERROR)
N27
G91G28Z0
G90
M99
O9799(REN SETTING)
(40120583.0E)
#30=520(EDIT BASE NO.)
(#[#30+11]=0)(1-INCH 0-MET STORE FLAG)
G90G80G40G0
(CURRENT METRIC)
#29=1.
#31=1.(METRIC STORE)
IF[#[#30+11]NE1.]GOTO100
#31=1/25.4(INCH STORE)
N100
IF[#4006EQ21]GOTO101
(CURRENT INCH)
#29=.04
#31=25.4(METRIC STORE)
IF[#[#30+11]NE1.]GOTO101
#31=1.(INCH STORE)
N101
IF[#506LE0]GOTO102
IF[#506GT1.]GOTO102
GOTO103
N102
#506=.5
N103
IF[#118NE1]GOTO104
#[#30+0]=#107*#31
#[#30+1]=#113*#31
GOTO106
N104
IF[#118NE2]GOTO105
#[#30+2]=#110*#31
#[#30+3]=#111*#31
#[#30+4]=#112*#31
GOTO106
N105
#107=#[#30+0]/#31(Z POS. STATIC)
#113=#[#30+1]/#31(Z POS. ROTATING)
#110=#[#30+2]/#31(STYLUS SIZE)
#111=#[#30+3]/#31(X POS.)
#112=#[#30+4]/#31(Y POS.)
#115=#[#30+5]/#31(Z APPROACH)
#116=#[#30+6]/#31(Z CLEARANCE)
#117=#[#30+7]/#31(TOOLS ABOVE THIS ROTATE)
#121=#[#30+8]/#31(MAX. CUTTER DIA.)
#108=#[#30+9](OFFSET TYPE)
#120=#[#30+10](PROBE DIREC.)
N106
IF[#4111EQ0]GOTO107
IF[#4111EQ#0]GOTO107
GOTO108
N107
#149=0
GOTO110
N108
IF[#108EQ1]GOTO109
IF[#108EQ11]GOTO109
#149=#[#4111+2000]+#[#4111+2200]
GOTO110
N109
#149=#[#4111+2000]
N110
#149=#5083(EDIT)
#31=#0
M99
O9850(REN TOOL SELECT)
G91G28Z0
G90
IF[#20EQ0]GOTO1
T#20M06
N1
M99
Arkadaşım daha macroları yüklemediler.biz tayvan a yazdık cevsap bekliyoruz diyorlar.macroları nereye atacaklarını, nasıl çalıştıracaklarını ve eminimki nasıl kabilrasyon yapılıyor bilmiyorlar.ben onlardan önce forumda tecrübeli arkadaşlardan yardım alarak halletmeye çalışıyorum.
Alıntı yapılan: birkan66 - Mayıs 24, 2012, 03:55:47 ÖS
program larını da yukledilermi oncelikle kalibre programı sonrada boy olcme yarı cap olcme ve her ikisinide olcme ve bunların dallandıgı programlar
%
O7000(LENGTH ONLY,MACRO B)
G65P9853B1T1
M00
N2G65P9853B1T2
M00
N3G65P9853B2T3D23
M00
N4G65P9853B1T4
M00
N5G65P9853B1T5
M00
N6G65P9853B1T6
M00
N7G65P9853B1T7
M00
N8G65P9853B1T8
M00
N9G65P9853B1T9
M00
N10G65P9853B1T10
M00
N11G65P9853B1T11
M00
N12G65P9853B1T12
M00
N13G65P9853B1T13
M00
N14G65P9853B1T14
M00
N15G65P9853B1T15
M00
N16G65P9853B1T16
M00
M02
O7001(RADIUS & LENGTH,MACRO B)
N1G65P9853B3T1D21
M00
N2G65P9853B3T2D22
M00
N3G65P9853B3T3D23
M00
N4G65P9853B3T4D24
M00
N5G65P9853B3T5D25
M00
N6G65P9853B3T6D26
M00
N7G65P9853B3T7D27
M00
N8G65P9853B3T8D28
M00
N9G65P9853B3T9D29
M00
N10G65P9853B3T10D30
M00
N11G65P9853B3T11D31
M00
N12G65P9853B3T12D32
M00
N13G65P9853B3T13D33
M00
N14G65P9853B3T14D34
M00
N15G65P9853B3T15D35
M00
N16G65P9853B3T16D36
M00
M30
O7777(TOOLSETTER CALIBRATION)
(JOG OR HANDWHEEL REF.TOOL OVER STYLUS)
G65P9851K72.292(K=REF.LENGTH)
#530=-1.
G65P9852K12.81S15.99(K=STYLUS DIA. S=REF.DIA.)
#530=-2.
G65P9852K12.81S15.99(K=STYLUS DIA. S=REF.DIA.)
M30
O9851(REN LEN SET)
M05
#118=0
M98P9799
IF[#6NE#0]GOTO1
IF[#20EQ#0]GOTO22
N1
#3=#5023-#5043
#5=3
IF[#19LT0]GOTO2
#5=4
N2
#23=#5043-#149
IF[#17NE#0]GOTO3
#17=4.*#29
N3
IF[#26NE#0]GOTO4
#26=-10.*#29
N4
IF[#13EQ#0]GOTO5
#[2000+#13]=0
N5
#28=#23+#26
#1=.5*#29
IF[#23GT#28]GOTO6
#1=-.5*#29
#17=-#17
N6
IF[#6NE#0]GOTO9
IF[#19EQ#0]GOTO9
#15=ABS[#19/#29]
#15=[ROUND[1910/#15]]*10
IF[#15LT800]GOTO7
#15=800
N7
IF[#15GT150]GOTO8
#15=150
N8
#31=800(RPM SECOND TOUCH)
#9=#15/8*#29(FEED FIRST TOUCH)
#27=4.*#29(FEED SECOND TOUCH)
GOTO10
N9
#27=4.*#29
#9=1000.*#29
#1=5.*#29*#506
N10
#10=1000.*#29
#28=#28-#17
IF[#15EQ#0]GOTO11
S#15M#5
G04X1.
N11(Z MEAS)
#3004=2
#30=122
G31Z#28F#9
#25=#5063-#149+#1
G1Z#25F#10
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#23]LE.05*#29]GOTO23
#30=0
#32=#25
IF[#6NE#0]GOTO12
#32=#5063-#149-#26
IF[#31EQ#0]GOTO12
S#31
G04X1.
GOTO13
N12
G31Z#28F[30*#29]
G1Z#32F[5000*#29]
#3004=0
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#25]LE.05*#29]GOTO23
#30=0
#12=#5063
#8=#5063+#3-#107
IF[#6EQ#0]GOTO15
#3004=2
N13
G31Z#28F[#27]
G1Z[#5063-#149-#26]F[5000*#29]
#3004=0
IF[#15EQ#0]GOTO14
S#15
N14
#30=122
IF[ABS[#5063-#149-#28]LE.05*#29]GOTO23
#30=121
IF[ABS[#5063-#149-#25]LE.05*#29]GOTO23
#30=0
#14=#5063
#8=#5063+#3-#113
IF[#6NE#0]GOTO21
N15
(SET TOOL)
IF[#108EQ2]GOTO17
IF[#108EQ3]GOTO17
IF[#108EQ12]GOTO19
IF[#108EQ13]GOTO19
(TYPE A)
IF[#11EQ#0]GOTO16
IF[ABS[#8-#[2000+#20]]GT#11]GOTO26
GOTO28
N16
#[2000+#20]=#8(GEOM)
GOTO28
N17(TYPE B FS0)
IF[#11EQ#0]GOTO18
IF[ABS[#8-#[2000+#20]-#[2200+#20]]GT#11]GOTO26
GOTO28
N18
#[2200+#20]=#8(GEOM)
#[2000+#20]=0(WEAR)
GOTO28
N19(TYPE B FS10)
IF[#11EQ#0]GOTO20
IF[ABS[#8-#[2000+#20]-#[2200+#20]]GT#11]GOTO26
GOTO28
N20
#[2000+#20]=#8(GEOM)
#[2200+#20]=0(WEAR)
GOTO28
N21(CAL.)
#107=#12-#6+#3
#113=#14-#6+#3
#118=1
GOTO28
N22
#3000=91(FORMAT ERROR)
N23
M05
G1Z#23F[2000*#29]
IF[#30EQ122]GOTO25
N24
#3000=92(PROBE OPEN)
N25
IF[#11NE#0]GOTO26
#3000=93(PROBE FAIL)
N26
IF[#13EQ#0]GOTO27
#[2000+#13]=1
GOTO28
N27
M05
#3000=99(BROKEN TOOL)
N28
M05
M98P9799
#118=0
M99
O9852(REN DIAM SET)
#2=#4
M05
#118=0
IF[#19EQ#0]GOTO34
M98P9799
IF[#6NE#0]GOTO1
IF[#7EQ#0]GOTO34
GOTO2
N1
#110=#6
N2
#5=3
IF[#19LT0]GOTO3
#5=4
N3
#7=ABS[#7]
#19=ABS[#19]
IF[#18NE#0]GOTO4
#18=4.*#29
N4
IF[#13EQ#0]GOTO5
#[2000+#13]=0
N5
#31=800(RPM SECOND TOUCH)
#15=#19/#29
#15=[ROUND[1910/#15]]*10
IF[#15LT800]GOTO6
#15=800(RPM FIRST TOUCH)
N6
IF[#15GT150]GOTO7
#15=150
N7
#9=#15/6*#29(FEED FIRST TOUCH)
#27=4.*#29(FEED SECOND TOUCH)
#10=5000.*#29(CLEAR MOVE XY)
#12=1000.*#29(CLEAR MOVE Z)
IF[#26NE#0]GOTO8
#26=-15.*#29
N8
IF[#6NE#0]GOTO9
S#15M#5
N9
#21=#5041
#22=#5042
#3004=0
IF[#6NE#0]GOTO11
G31X[#111-[#5021-#5041]]Y[#112-[#5022-#5042]]F#10
#30=121
IF[ABS[#5041-[#111-[#5021-#5041]]]GE.05*#29]GOTO10
IF[ABS[#5042-[#112-[#5022-#5042]]]GE.05*#29]GOTO10
GOTO11
N10
M05
G1X#21Y#22
#3000=92(PROBE OPEN)
N11
#23=#5043-#149
#1=-.5*#29
#14=0
#16=#23+#26
IF[#120EQ2]GOTO16
IF[#120EQ-2]GOTO16
(X MEAS)
#21=#5041
#22=#5042
#24=#21-[#110+#19]/2+#18
#28=#21-[#110+#19]/2-#18
N12
G31X#28F#10
#30=121
IF[ABS[#5061-#28]GT.05*#29]GOTO35
G31Z#16F#12
#30=121
IF[ABS[[#5063-#149]-#16]GT.05*#29]GOTO33
#3004=2
G31X#24F#9
#25=#5061+#1
G1X#25F#10
#30=122
IF[ABS[#5061-#24]LE.05*#29]GOTO33
#30=121
IF[ABS[#5061-#28]LE.05*#29]GOTO33
IF[#6NE#0]GOTO14
IF[ABS[#31-#4119]LT1]GOTO13
S#31
N13
G04X1.
N14
G31X#24F[#27]
G1X#28F[3000*#29]
#3004=0
IF[ABS[#15-#4119]LT1]GOTO15
S#15
N15
#30=122
IF[ABS[#5061-#24]LE.05*#29]GOTO33
#30=121
IF[ABS[#5061-#25]LE.05*#29]GOTO33
#30=0
#[#14+4]=#5061(V4 AND V5 SKIP)
Z#23
X#21
#1=-#1
#14=#14+1
#24=#21+[#110+#19]/2-#18
#28=#21+[#110+#19]/2+#18
IF[#14NE2]GOTO12
IF[#6NE#0]GOTO32
GOTO21
N16
(Y MEAS)
#21=#5042
#22=#5041
#24=#21-[#110+#19]/2+#18
#28=#21-[#110+#19]/2-#18
N17
G31Y#28F#10
#30=121
IF[ABS[#5062-#28]GT.05*#29]GOTO39
G31Z#16F#12
#30=121
IF[ABS[[#5063-#149]-#16]GT.05*#29]GOTO37
#3004=2
G31Y#24F#9
#25=#5062+#1
G1Y#25F#10
#30=122
IF[ABS[#5062-#24]LE.05*#29]GOTO37
#30=121
IF[ABS[#5062-#28]LE.05*#29]GOTO37
IF[#6NE#0]GOTO19
IF[ABS[#31-#4119]LT1]GOTO18
S#31
N18
G4X1.
N19
G31Y#24F[#27]
G1Y#28F[3000*#29]
#3004=0
IF[ABS[#15-#4119]LT1]GOTO20
S#15
N20
#30=122
IF[ABS[#5062-#24]LE.05*#29]GOTO37
#30=121
IF[ABS[#5062-#25]LE.05*#29]GOTO37
#30=0
#[#14+4]=#5062(V4 AND V5 SKIP)
Z#23
Y#21
#1=-#1
#14=#14+1
#24=#21+[#110+#19]/2-#18
#28=#21+[#110+#19]/2+#18
IF[#14NE2]GOTO17
IF[#6NE#0]GOTO32
N21(SET TOOL)
#8=ABS[#4-#5]-#110-[#2*2]
IF[#108EQ2]GOTO24
IF[#108EQ3]GOTO28
IF[#108EQ12]GOTO26
IF[#108EQ13]GOTO30
N22(TYPE A)
IF[#11EQ#0]GOTO23
IF[ABS[[#8/2]-#[2000+#7]]GT#11]GOTO42
GOTO44
N23
#[2000+#7]=#8/2(OFFSET)
GOTO44
N24(TYPE B FS0)
IF[#11EQ#0]GOTO25
IF[ABS[[#8/2]-#[2000+#7]-#[2200+#7]]GT#11]GOTO42
GOTO44
N25
#[2200+#7]=#8/2(GEOM)
#[2000+#7]=0(WEAR)
GOTO44
N26(TYPE B FS10)
IF[#11EQ#0]GOTO27
IF[ABS[[#8/2]-#[2000+#7]-#[2200+#7]]GT#11]GOTO42
GOTO44
N27
#[2000+#7]=#8/2(GEOM)
#[2200+#7]=0(WEAR)
GOTO44
N28(TYPE C FS0)
IF[#11EQ#0]GOTO29
IF[ABS[[#8/2]-#[12000+#7]-#[13000+#7]]GT#11]GOTO42
GOTO44
N29
#[13000+#7]=#8/2(GEOM)
#[12000+#7]=0(WEAR)
GOTO44
N30(TYPE C FS10)
IF[#11EQ#0]GOTO31
IF[ABS[[#8/2]-#[2400+#7]-#[2600+#7]]GT#11]GOTO42
GOTO44
N31
#[2400+#7]=#8/2(GEOM)
#[2600+#7]=0(WEAR)
GOTO44
N32
IF[#120EQ2]GOTO36
IF[#120EQ-2]GOTO36
(XCALIBRATE)
#110=ABS[#4-#5]-#19
#111=[[#4+#5]/2]+#5021-#5041
#112=#5022
X[#111-[#5021-#5041]]
#118=2
GOTO44
N33
G1X#28F[5000*#29]
Z#23
GOTO35
N34
M05
#3000=93(FORMAT ERROR)
N35
M05
G1X#21F[5000*#29]
IF[#30EQ122]GOTO41
GOTO40
N36
(Y CAL.)
#110=ABS[#4-#5]-#19
#112=[[#4+#5]/2]+#5022-#5042
#111=#5021
Y[#112-[#5022-#5042]]
#118=2
GOTO44
N37
G1Y#28F[5000*#29]
Z#23
GOTO39
N38
M05
#3000=91(FORMAT ERROR)
N39
M05
G1Y#21F[5000*#29]
IF[#30EQ122]GOTO41
N40
#3000=92(PROBE OPEN)
N41
IF[#11NE#0]GOTO42
#3000=93(PROBE FAIL)
N42
IF[#13EQ#0]GOTO43
#[2000+#13]=1
GOTO44
N43
M05
#3000=99(BROKEN TOOL)
N44
M05
M98P9799
#118=0
M99
O9853(REN AUTO SET)
#1=#4
M05
#118=0
M98P9799
IF[#20EQ#0]GOTO26
#27=FIX[#20](TOOL)
#32=[#20-FIX[#20]]*1000(OFFSET)
#32=ROUND[#32]
IF[#32NE0]GOTO1
#32=#27
N1
IF[#2EQ1]GOTO2
IF[#7EQ#0]GOTO26
N2
IF[#108EQ3]GOTO3
IF[#108EQ13]GOTO3
IF[ABS[#7]EQ#32]GOTO26
N3
#4=#5021-#5041
#5=#5022-#5042
#6=#5023-#5043
IF[#19EQ#0]GOTO4
#31=#19
#10=ABS[#19]
GOTO10
N4
IF[#7EQ#0]GOTO11
#31=-1
IF[#7LT0]GOTO5
#31=1
N5
IF[#108EQ2]GOTO6
IF[#108EQ12]GOTO6
IF[#108EQ3]GOTO7
IF[#108EQ13]GOTO8
#10=#[2000+ABS[#7]]
GOTO9
N6
#10=#[2000+ABS[#7]]+#[2200+ABS[#7]]
GOTO9
N7
#10=#[12000+ABS[#7]]+#[13000+ABS[#7]]
GOTO9
N8
#10=#[2400+ABS[#7]]+#[2600+ABS[#7]]
N9
#10=[#10+#1]*2
#31=#10*#31
N10
IF[#10EQ0]GOTO25
IF[#2EQ1]GOTO11
IF[#10GT#121]GOTO25
N11
#3004=0
IF[#27EQ#0]GOTO12
G65P9850T#27H#11
N12
IF[#19NE#0]GOTO13
IF[#7EQ#0]GOTO19
N13
IF[#10LE#117]GOTO19
IF[#2EQ2]GOTO19
IF[#120EQ1]GOTO14
IF[#120EQ-1]GOTO15
IF[#120EQ2]GOTO16
IF[#120EQ-2]GOTO17
GOTO19
N14
G0X[#111-#4]Y[#112-#5-[#10/2]]
GOTO18
N15
G0X[#111-#4]Y[#112-#5+[#10/2]]
GOTO18
N16
G0Y[#112-#5]X[#111-#4-[#10/2]]
GOTO18
N17
G0Y[#112-#5]X[#111-#4+[#10/2]]
N18
#10=#31
GOTO20
N19
G0X[#111-#4]Y[#112-#5]
#10=#0
N20
#28=#113+#115-#6
G31G43H#32Z#28F[3000*#29]
G65P9799
IF[ABS[[#5063-#149]-#28]GT.05*#29]GOTO24
#28=#113+#116-#6
G31Z#28F[1000*#29]
IF[ABS[[#5063-#149]-#28]GT.05*#29]GOTO24
IF[#2EQ2]GOTO21
G65P9851T[#32]S[#10]Z[-#116]Q[#17]H[#11]M[#13]
IF[#13EQ#0]GOTO21
IF[#[2000+#13]EQ1]GOTO27
N21
IF[#7EQ#0]GOTO27
IF[#26EQ#0]GOTO22
#26=#26-#116
GOTO23
N22
#26=-[#116+[5.*#29]]
N23
IF[#2EQ1]GOTO27
IF[#2EQ#0]GOTO27
G65P9852D[ABS[#7]]S[#31]Z[#26]R[#18]I[#1]H[#11]M[#13]
GOTO27
N24
G91G28Z0
G90
#3000=92(PROBE OPEN)
N25
#3000=82(TOOL OUT OF RANGE)
N26
#3000=91(FORMAT ERROR)
N27
G91G28Z0
G90
M99
O9799(REN SETTING)
(40120583.0E)
#30=520(EDIT BASE NO.)
(#[#30+11]=0)(1-INCH 0-MET STORE FLAG)
G90G80G40G0
(CURRENT METRIC)
#29=1.
#31=1.(METRIC STORE)
IF[#[#30+11]NE1.]GOTO100
#31=1/25.4(INCH STORE)
N100
IF[#4006EQ21]GOTO101
(CURRENT INCH)
#29=.04
#31=25.4(METRIC STORE)
IF[#[#30+11]NE1.]GOTO101
#31=1.(INCH STORE)
N101
IF[#506LE0]GOTO102
IF[#506GT1.]GOTO102
GOTO103
N102
#506=.5
N103
IF[#118NE1]GOTO104
#[#30+0]=#107*#31
#[#30+1]=#113*#31
GOTO106
N104
IF[#118NE2]GOTO105
#[#30+2]=#110*#31
#[#30+3]=#111*#31
#[#30+4]=#112*#31
GOTO106
N105
#107=#[#30+0]/#31(Z POS. STATIC)
#113=#[#30+1]/#31(Z POS. ROTATING)
#110=#[#30+2]/#31(STYLUS SIZE)
#111=#[#30+3]/#31(X POS.)
#112=#[#30+4]/#31(Y POS.)
#115=#[#30+5]/#31(Z APPROACH)
#116=#[#30+6]/#31(Z CLEARANCE)
#117=#[#30+7]/#31(TOOLS ABOVE THIS ROTATE)
#121=#[#30+8]/#31(MAX. CUTTER DIA.)
#108=#[#30+9](OFFSET TYPE)
#120=#[#30+10](PROBE DIREC.)
N106
IF[#4111EQ0]GOTO107
IF[#4111EQ#0]GOTO107
GOTO108
N107
#149=0
GOTO110
N108
IF[#108EQ1]GOTO109
IF[#108EQ11]GOTO109
#149=#[#4111+2000]+#[#4111+2200]
GOTO110
N109
#149=#[#4111+2000]
N110
#149=#5083(EDIT)
#31=#0
M99
O9850(REN TOOL SELECT)
G91G28Z0
G90
IF[#20EQ0]GOTO1
T#20M06
N1
M99
manuel olrak proba + 5 mm olcak sekılde yaklastır
MDI KOMUTUNDAN
G65P9851T01.Q1.Z-5.
Tek degısmen gereken takım numrası T kac numarysa artık onu yazarsın
input ,start
verdigim programlar ile o7000 boy olcme matkaplar ve merkezden olculen takımlar icin o7001 ise parmak freze ve boring leri olcersiniz hem otamatik olcme o7777 ilede hemde kalıbrasyon yapabilirsiniz.
bırkan usta m700 kullanıyorum bnde yukarda yazdım gbı sıfırlmaa yabıyorum onun otomatıgı varmı elle yanastrmama gerek olmcak sekılde sıfırlama probuna yaklasmak ıcın limiti acmam gerekıyor m79 yazıp sıfırlıyorum takımı takıcam komtunu yazıcam otomatık sıfırlama bıde saglıklı deyıl bu prob sag sola hafıf yamulma oluyor farklı cıkartyıor takım boylarını
macrolara belirli degerler yazıyorsun ona gore bakıyor bu işlemi yaparken de probu tablanın sol ilerki kosesine baglıyorsun birde burada kalibre ediyorsun probu verdigim program ile ama bir iki macroyada deger yazıyor sun onlara gore kalibre edip otamatik olcum hatta parca uzerinde calisırken bile olcum yapabilirsin
anladım tskr edrm..