mpf.arc

Boehringer数控加工程序经典示例.

N2090 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N2100 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N2110 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N2120 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N2130 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N2140 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N2150 STOPRE
N2160 H4005
N2170 GOTOF WDEF

N2180 WM10: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE10
N2190 STOPRE
N2200 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N2210 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N2220 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N2230 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N2240 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N2250 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N2260 STOPRE
N2270 H4005
N2280 GOTOF WDEF

N2290 WDEF:STOPRE
N2300 STOPRE
N2310 IF ENTLL==1 GOTOF ENTL
N2320 MM1: ; ******* SET UP LIST CHECK ********** FEATURE 1 
N2330 STOPRE
N2340 IF RMAT[0,1]==RMAT[1,1] GOTOF MM2 
N2350 MSG("IS FEATURE 1 CHANGED OVER YES/RESET")
N2360 H2010
N2370 STOPRE
N2380 MSG("")
N2390 IF $A_DBB[1]<>1 GOTOB MM1
N2400 STOPRE
N2410 RMAT[0,1]=RMAT[1,1]
N2420 MM2: ; ******* SET UP LIST CHECK ********** FEATURE 2 
N2430 STOPRE
N2440 IF RMAT[0,2]==RMAT[1,2] GOTOF MM3
N2450 MSG("IS FEATURE 2 CHANGED OVER YES/RESET")
N2460 H2010
N2470 STOPRE
N2480 MSG("")
N2490 IF $A_DBB[1]<>1 GOTOB MM2
N2500 STOPRE
N2510 RMAT[0,2]=RMAT[1,2]
N2520 MM3:  ; ******* SET UP LIST CHECK ********* FEATURE 3
N2530 STOPRE
N2540 IF RMAT[0,3]==RMAT[1,3] GOTOF MM4
N2550 MSG("IS FEATURE 3 CHANGED OVER YES/RESET")
N2560 H2010
N2570 STOPRE
N2580 MSG("")
N2590 IF $A_DBB[1]<>1 GOTOB MM3
N2600 STOPRE
N2610 RMAT[0,3]=RMAT[1,3]
N2620 MM4:  ; ******* SET UP LIST CHECK ********* FEATURE 4
N2630 STOPRE
N2640 IF RMAT[0,4]==RMAT[1,4] GOTOF MM5
N2650 MSG("IS FEATURE 4 CHANGED OVER YES/RESET")
N2660 H2010
N2670 STOPRE
N2680 MSG("")
N2690 IF $A_DBB[1]<>1 GOTOB MM4
N2700 STOPRE
N2710 RMAT[0,4]=RMAT[1,4]
N2720 MM5: ; ******* SET UP LIST CHECK ********** FEATURE 5
N2730 STOPRE
N2740 IF RMAT[0,5]==RMAT[1,5] GOTOF MM6
N2750 MSG("IS FEATURE 5 CHANGED OVER YES/RESET")
N2760 H2010
N2770 STOPRE
N2780 MSG("")
N2790 IF $A_DBB[1]<>1 GOTOB MM5
N2800 STOPRE
N2810 RMAT[0,5]=RMAT[1,5]
N2820 MM6:  ; ******* SET UP LIST CHECK ********* FEATURE 6
N2830 STOPRE
N2840 IF RMAT[0,6]==RMAT[1,6] GOTOF MM7
N2850 MSG("IS FEATURE 6 CHANGED OVER YES/RESET")
N2860 H2010
N2870 STOPRE
N2880 MSG("")
N2890 IF $A_DBB[1]<>1 GOTOB MM6
N2900 STOPRE
N2910 RMAT[0,6]=RMAT[1,6]
N2920 MM7:   ; ******* SET UP LIST CHECK ******** FEATURE 7
N2930 STOPRE
N2940 IF RMAT[0,7]==RMAT[1,7] GOTOF MM8
N2950 IF WKZSCHWCH1==0 GOTOF NQ
N2960 H2010.24;("IS TOOL DISK LH SIDE CHANGED OVER YES/NO")
N2970 STOPRE
N2980 MSG("")
N2990 IF $A_DBB[1]==1 GOTOF MM7W
N3000 NQ: STOPRE
N3010 WKZSCHWCH1=1
N3020 STOPRE
N3030 GOTOF MM8
N3040 MM7W:
N3050 STOPRE
N3060 RMAT[0,7]=RMAT[1,7] WKZSCHWCH1=0
N3070 MM8:  ; ******* SET UP LIST CHECK ********* FEATURE 8
N3080 STOPRE
N3090 IF RMAT[0,8]==RMAT[1,8] GOTOF MM9
N3100 IF WKZSCHWCH2==0 GOTOF NQ
N3110 H2010.23;("IS TOOL DISK RH SIDE CHANGED OVER YES/NO") 
N3120 STOPRE
N3130 MSG("")
N3140 IF $A_DBB[1]==1 GOTOF MM8W
N3150 NQ: STOPRE
N3160 WKZSCHWCH2=1
N3170 STOPRE
N3180 GOTOF MM9
N3190 MM8W:
N3200 STOPRE
N3210 RMAT[0,8]=RMAT[1,8] WKZSCHWCH2=0
N3220 MM9:  ; ******* SET UP LIST CHECK ********* FEATURE 9
N3230 STOPRE
N3240 IF RMAT[0,9]==RMAT[1,9] GOTOF MM10
N3250 MSG("IS FEATURE 9 CHANGED OVER YES/RESET")
N3260 H2010
N3270 STOPRE
N3280 MSG("")
N3290 IF $A_DBB[1]<>1 GOTOB MM9
N3300 STOPRE
N3310 RMAT[0,9]=RMAT[1,9]
N3320 MM10: ; ******* SET UP LIST CHECK ******** FEATURE 10
N3330 STOPRE
N3340 IF RMAT[0,10]==RMAT[1,10] GOTOF MM11
N3350 MSG("IS FEATURE 10 CHANGED OVER YES/RESET")
N3360 H2010
N3370 STOPRE
N3380 MSG("")
N3390 IF $A_DBB[1]<>1 GOTOB MM10
N3400 STOPRE
N3410 RMAT[0,10]=RMAT[1,10]
N3420 MM11: ; ******* END OF SET UP LIST CHECK ******** END
N3430 STOPRE

N3440 IF ($A_DBB[804]==1) OR ($A_DBB[840]==1) OR (WKZSCHWCH1==1) OR (WKZSCHWCH2==1) 
N3450 G0 G153 W2=$AA_SOFTENDN[W2]+1 W1=$AA_SOFTENDP[W1]-1 Z2=$AA_SOFTENDP[Z2]-1
N3460 ENDIF

N3470 RUECKSPR6:
N3480 STOPRE
N3490 IF ($A_DBB[804]+WKZSCHWCH1)==0 GOTOF KEIN_SCHW1
N3500 G0 G153 Z700 W2=$AA_SOFTENDN[W2]+1 
N3510 M25 M110
N3520 G0 G153 X350 
N3530 RUECKSPR5:
N3540 H2410
N3550 STOPRE
N3560 IF $A_DBB[800]==1 GOTOF WKZSCHGEW1
N3570 MSG("TOOL DISK LH SIDE NOT CHANGED - PLEASE CHANGE")
N3580 M0
N3590 STOPRE
N3600 MSG("")
N3610 GOTOB RUECKSPR5
N3620 WKZSCHGEW1:
N3630 M59
N3640 M0
N3650 G0 G153 X=$AA_SOFTENDP[X]-1
N3660 G0 G153 Z=$AA_SOFTENDN[Z]+1 M24 M111
N3670 STOPRE
N3680 IF WKZSCHWCH1==0 GOTOF WEITER1
N3690 STOPRE
N3700 REPEAT MM7 MM8
N3710 STOPRE
N3720 IF WKZSCHWCH1<>0 GOTOB RUECKSPR6
N3730 WEITER1:
N3740 STOPRE
N3750 H2120 
N3760 M97
N3770 KEIN_SCHW1:
N3780 RUECKSPR8:
N3790 STOPRE
N3800 IF ($A_DBB[840]+WKZSCHWCH2)==0 GOTOF KEIN_SCHW2
N3810 H2001
N3820 STOPRE
N3830 G0 G153 Z2=($AA_IM[W1])-800 W2=$AA_SOFTENDN[W2]+1 
N3840 M25 M157 M210
N3850 G0 G153 X2=350
N3860 RUECKSPR7:
N3870 H2420
N3880 STOPRE
N3890 IF $A_DBB[801]==1 GOTOF WKZSCHGEW2
N3900 MSG("TOOL DISK RH SIDE NOT CHANGED - PLEASE CHANGE")
N3910 M0
N3920 STOPRE
N3930 MSG("")
N3940 GOTOB RUECKSPR7
N3950 WKZSCHGEW2:
N3960 M59
N3970 M0
N3980 H2001
N3990 STOPRE
N4000 G0 G153 X2=$AA_SOFTENDP[X2]-1
N4010 G0 G153 Z2=$AA_SOFTENDP[Z2]-1 M24 M211
N4020 STOPRE
N4030 IF WKZSCHWCH2==0 GOTOF WEITER2
N4040 STOPRE
N4050 REPEAT MM8 MM9
N4060 STOPRE
N4070 IF WKZSCHWCH2<>0 GOTOB RUECKSPR8
N4080 WEITER2:
N4090 STOPRE
N4100 H2121
N4110 M97
N4120 KEIN_SCHW2:
N4130 H2142
N4140 H2143
N4150 STOPRE
N4160 $A_DBB[806]=0 $A_DBB[842]=0
N4170 STOPRE
N4180 H2140
N4190 H2141
N4200 STOPRE
N4210 IF ($A_DBR[808]>0) AND ($A_DBR[812]>0 ) GOTOF WEITER4
N4220 STOPRE
N4230 $A_DBR[808]=STANDMCH1 $A_DBR[812]=STANDMCH1
N4240 WEITER4:
N4250 STOPRE
N4260 $A_DBR[812]=(STANDMCH1*($A_DBR[812]/$A_DBR[808]))
N4270 $A_DBR[808]=STANDMCH1
N4280 $A_DBB[806]=0
N4290 STOPRE
N4300 IF ($A_DBR[844]>0) AND ($A_DBR[848]>0 ) GOTOF WEITER5
N4310 STOPRE
N4320 $A_DBR[844]=STANDMCH2 $A_DBR[848]=STANDMCH2
N4330 WEITER5:
N4340 STOPRE
N4350 $A_DBR[848]=(STANDMCH2*($A_DBR[848]/$A_DBR[844]))
N4360 $A_DBR[844]=STANDMCH2
N4370 $A_DBB[842]=0
N4380 STOPRE
N4390 H2140
N4400 H2141
N4410 STOPRE
N4420 M97
N4430 IF (RMAT[0,1]<>RMAT[1,1]) AND (RMAT[0,2]<>RMAT[1,2]) AND (RMAT[0,3]<>RMAT[1,3]) GOTOF MELD
N4440 STOPRE
N4450 IF (RMAT[0,4]<>RMAT[1,4]) AND (RMAT[0,5]<>RMAT[1,5]) AND (RMAT[0,6]<>RMAT[1,6]) GOTOF MELD
N4460 STOPRE
N4470 IF (RMAT[0,7]<>RMAT[1,7]) AND (RMAT[0,8]<>RMAT[1,8]) AND (RMAT[0,9]<>RMAT[1,9]) GOTOF MELD
N4480 STOPRE
N4490 IF (RMAT[0,10]<>RMAT[1,10]) AND (RMAT[0,11]<>RMAT[1,11]) AND (RMAT[0,12]<>RMAT[1,12]) GOTOF MELD
N4500 STOPRE
N4510 IF (RMAT[0,13]<>RMAT[1,13]) AND (RMAT[0,14]<>RMAT[1,14]) AND (RMAT[0,15]<>RMAT[1,15]) GOTOF MELD
N4520 STOPRE
N4530 IF (RMAT[0,16]<>RMAT[1,16]) AND (RMAT[0,17]<>RMAT[1,17]) AND (RMAT[0,18]<>RMAT[1,18]) GOTOF MELD
N4540 STOPRE
N4550 IF (RMAT[0,19]==RMAT[1,19]) AND (RMAT[0,20]==RMAT[1,20]) GOTOF WEITER3 
N4560 STOPRE
N4570 MELD:
N4580 MSG("RATED SET UP AND ACTUAL SET UP ARE UNEQUAL")
N4590 M0
N4600 STOPRE
N4610 MSG("")
N4620 GOTOB MELD
N4630 WEITER3:
N4640 M11 M79
N4650 M97
N4660 H2238
N4670 G0 G153 C=DC(30) ;BELADEPOS SPINDEL
N4680 H2239
N4690 IF ($A_DBB[518]<>1) 
N4700 H4009
N4710 ENDIF
N4720 ENTL: 
N4730 G0 G153 Z=$AA_SOFTENDN[Z]+1 Z2=($A_DBR[412])-160 W1=$A_DBR[412] W2=LUENETTPOSL 
N4740 STOPRE
N4750 IF ENTLL<>1
N4760 WKSTCKTYP=$A_DBW[404] RUESTABBR=2
N4770 ENDIF
N4780 STOPRE
N4790 MSG("")
N4800 ENTLL=0
N4810 M97
N4820 H4000
N4830 M78
N4840 H4060
N4850 BEARB:
N4860 M65
N4870 M30




%_N_STARTUP_CH2_MPF
;$PATH=/_N_MPF_DIR
N10 M30



%_N_TEMPKOMP_MPF
;$PATH=/_N_MPF_DIR
;TEMPERATURE COMPENSATION X / X2-ACHSE 
;JIANGLING
;MACHINE NR 834_OP50
;LAST CHANGE 23.01.2006 HGS
;**********************************************************
N010 IF $A_DBW[32]<>0 GOTOF REF1OK 
;--------- Ref.Temp.Fr.1=0 b.Typ-od. Fr鋝erw.od.(Tempk.+Masch.aus)
N020 KOMPX=0 
;--------- Korr.var. X=0 w.Ref.Temp.Fr.1=0
N030 REF1OK: STOPRE
N040 IF $A_DBW[36]<>0  GOTOF REF2OK 
;--------- Ref.Temp.Fr.2=0 b.Typ-od. Fr鋝erw.od.(Tempk.+Masch.aus)
N050 KOMPX2=0 
;--------- Korr.var. X2=0 w.Ref.Temp.Fr.2=0
N060 REF2OK: STOPRE
N070 IF GD[0,10]<ZAEHLER GOTOF ENDE 
;--------- Spr.an Prg.end w.alle Bearbsch.abgear.
N080 STOPRE
N090 IF ($A_DBW[34]>100) OR ($A_DBW[34]<5) OR ($A_DBW[30]<>1) OR ($A_DBW[32]==0) GOTOF NOKOMPK1
;---------- Spr.wenn T.akt.Fr.1>100<5o.Tk.aus o.Reft.Fr1.=0
N100 KOMPX=($A_DBW[34]-$A_DBW[32])*0.004
;---------- Korr.X=(Temp1 akt.-Temp1 Ref)*Delta/Grad im R
N110 NOKOMPK1: STOPRE
N120 IF ($A_DBW[38]>100) OR ($A_DBW[38]<5) OR ($A_DBW[30]<>1) OR ($A_DBW[36]==0)  GOTOF NOKOMPK2
;---------- Spr.wenn.T.akt.Fr.2>100<5o.Tk.aus o.Reft.Fr2.=0
N130 KOMPX2=($A_DBW[38]-$A_DBW[36])*0.004
;---------- Korr.X2=(Temp2 akt.-Temp2 Ref)*Delta/Grad im R
N140 NOKOMPK2: STOPRE
N150 GOTOB REF2OK  
;--------- Programmschleife
N160 ENDE: WAITM(1,1,2) 
;--------- Synchr. Kanal 1 
N170 M30