mpf.arc

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

%_N_LOADING00_MPF
;$PATH=/_N_MPF_DIR













;----------------------------------------------------------------
;BOEHRINGER  Machine xxxx-xx
;PROJECT xxxxxxxxx
;LOADERPROGRAM_CHANNEL 5   TYPE00
;LOADING SPINDLE1 / UNLOADING SPINDLE1
;WITHOUT CLAMPING AND UNCLAMPING DIALOG
;Leerfahren 黚er $A_DBB[596]
;DATE: 20.02.2006 MH
;$A_DBR[556]+00000001 Teil Gel鰏t
;$A_DBR[556]+00000010 Teil Gespannt
;$A_DBR[556]+00000100 FT entnehmen
;$A_DBR[556]+00001000 RT beladen
;$A_DBR[556]+00010000 frei
;$A_DBR[556]+00100000 Laderanforderung
;$A_DBR[556]+01000000 frei
;$A_DBR[556][phone] frei
;================================================================
;====              VORBEREITUNG F躌 LADEZYKLUS
;====              PREPARE FOR LOADING CYCLE
;================================================================
DEF INT LOADSTATUS
DEF BOOL EMPTYCYCON
DEF BOOL EMPTYCYCACT
N5 MSG()
N100 $A_DBR[556]=00000000
N110 $A_DBB[596]=0 ;Leerfahren 
;================================================================
;====                LOADING CYCLE
;================================================================
N1000 BEGINPRG:
N1010 LOADSTATUS=0
N2000 H4002      ;WAIT FOR PRESIGNAL H4000 SPINDLE 1
N2010 STOPRE
N2020 (IF $A_DBB[522]==1) ;Leerfahren
N2022   $A_DBB[596]=1 ;Leerfahren
N2024   EMPTYCYCON=1
N2026 ENDIF
N2028 $A_DBR[556]=$A_DBR[556]+00100000 ;Laderanforderung
;----------------------------------------------------------------
N2030 UNLOAD:
;N2040 H4035 ;Warten bis Lader Werkst點ktyp gesendet 
N2050 H4001  ;WAIT FOR M60 SPINDLE 1
N3000 STOPRE
N3050 IF ($A_DBB[522]==1 OR EMPTYCYCON==1)
N3053   EMPTYCYCACT=1
N3055   $A_DBB[596]=1 ;Leerfahren
N3058 ENDIF
N2052 STOPRE
N2054 IF ($A_DBB[521]==1) GOTOF BASEPOS ;Halt nach Taktende ist aktiv
N2055 M78     ;Ladeluke oeffnen
N2060 STOPRE
N2070 IF $A_DBB[541]<=0 GOTOF LOAD ;WS-Zustand 0 Kein WS in Maschine
N2075 $A_DBB[541]=3  ;WS-Zustand 3 WS ist Fertigteil
N3020 STOPRE
N3050 $A_DBR[556]=00100101 ;Teil geloest, FT entnehmen, Laderanforderung
N4000 H4032      ;WAIT FOR SIGNAL FINISHED PART UNLOADED
N4010 STOPRE
;----------------------------------------------------------------
N4020 LOAD:
N4025 $A_DBB[541]=0 ;WS-Zustand 0 Kein Werkst點k in Maschine
N4045 STOPRE
N4050 $A_DBR[556]=00100001 ;Teil geloest, Laderanforderung
;----------------------------------------------------------------
N5000 CLEANING:
N5010 H4036  ;WARTEN bis Lader Spannmittel verlassen
N5015 H4034  ;WARTEN bis Lader Arbeitsraum verlassen
N5020 CLEANING
N5025 STOPRE
N5030 IF (EMPTYCYCACT==1) GOTOF BASEPOS ;Leerfahren aktiv?
N5040 $A_DBR[556]=00101001 ;Teil geloest, Freigabe RT, Laderanforderung
N6040 STOPRE
;N6045 H4035
N7000 H4033      ;WAIT FOR SIGNAL ROUGH PART UNLAODED
;----------------------------------------------------------------
N7010 STOPRE
N7020 $A_DBB[541]=1  ;WS-Zustand 1 Werkst點k ist ein RT
N7030 H4021                ;MACHINING START
N7040 H4034                ;WAIT UNTIL LOADER HAS LEFT MACHINE
N7045 M79
N7050 STOPRE
N7060 $A_DBR[556]=00000010 ;Teil Gespannt
N7070 GOTOB BEGINPRG
;================================================================
;====                END LOADING CYCLE
;================================================================
N9900 BASEPOS:                   ;----- BASE POSITION
N9910 EMPTYCYCACT=0
N9912 EMPTYCYCON=0
N9920 H4034      ;WAIT UNTIL LOADER HAS LEFT MACHINE
N9930 $A_DBR[556]=00000000
N9932 $A_DBB[597]=0 ;Leerfahren 
N9940 STOPRE
N9980 H4013 ;Ladezyklus beendet
N9990 H4004 ;Taktzeitueberwachung AUS
N9999 M30

%_N_STARTUP_MPF
;$PATH=/_N_MPF_DIR
;STARTUP_PRG_CHANNEL_1_LEFT_SIDE
;JIANGLING
;MACHINE NR 834_OP50
;LAST CHANGE 23.01.2006

N100 DEF REAL LUENETTPOSL       ;STEADYPOS FOR LOAD/UNLOAD THE MACHINE
N110 DEF INT WKZSCHWCH1         ;FLAG TOOL CHANGE CHANNEL 1
N120 DEF INT WKZSCHWCH2         ;FLAG TOOL CHANGE CHANNEL 2
N130 DEF REAL STANDMCH1         ;TOOL LIFE CHANNEL 1
N140 DEF REAL STANDMCH2         ;TOOL LIFE CHANNEL 2
N150 DEF INT ENTLL              ;FLAG UNLOAD WORKPIECE

;;;;N65 IDS=200 EVERY($A_DBR[20]>2) DO $AA_SCTRACE[C]=1
N160 H50=0
N170 H4025
N180 H4711
N190 H2142
N200 H2143
N210 M97 M65
N220 H2021
N230 MSG("")
N240 STOPRE
N250 RUESTABBR=1 RUECKZUG1[0,0]=SET(0,0,0) RUECKZUG2[0,0]=SET(0,0,0) ENTLL=0 
N260 WKZSCHWCH1=0  WKZSCHWCH2=0
N270 STOPRE
N280 G0 G40 G153 G94 X=$AA_SOFTENDP[X]-1 X2=$AA_SOFTENDP[X2]-1 D0
N290 G94 M24
N300 IF ($AA_IM[W1])>($AA_SOFTENDP[Z2]+160)
N310 G0 G153 G90 Z=($AA_SOFTENDN[Z]+1) Z2=($AA_SOFTENDP[Z2]-1) W2=($AA_SOFTENDN[W2]+1) M79 D0
N320 ELSE
N330 G0 G153 G90 Z=($AA_SOFTENDN[Z]+1) Z2=(($AA_IM[W1])-160) W2=($AA_SOFTENDN[W2]+1) M79 D0
N340 ENDIF
N350 IF $A_DBW[404]==0 GOTOF RUECKSPR3
N360 R91=0100000 R92=0000010 R93=0001000 R94=1000000 R95=0000001 R96=0002000 R97=0 R98=0
N370 STOPRE
N380 H2601
N390 STOPRE
N400 R91=2002002 R92=0000020 R93=0200000 R94=0 R95=0 R96=0 R97=0 R98=0  
N410 STOPRE
N420 H2611
N430 STOPRE
N440 RUECKSPR2:
N450 M166
N460 M266
N470 M111 M211
N480 M156
N490 M110
N500 M210
N510 M157
N520 STOPRE
N530 H2238
N540 G0 G153 C=DC(30)
N550 H2239
N560 IF ($A_DBB[440]==3) AND ($A_DBB[445]==3) AND ($A_DBB[446]==3) GOTOF OWKSTCK
N570 M11
N580 STOPRE
N590 $A_DBB[541]=1
N600 IF ($A_DBB[804]<>0) OR ($A_DBB[840]<>0) OR (WKSTCKTYP<>$A_DBW[404]) GOTOF  WKSTCKENTLM
N610 STOPRE
N620 H2010.08;("MACHINING WORKPIECE YES/NO")
N630 STOPRE
N640 MSG("")
N650 IF $A_DBB[1]<>1 GOTOF WKSTCKENTLL
N660 STOPRE
N670 H4019 
N680 RUESTABBR=2 
N690 STOPRE
N700 GOTOF BEARB
N710 WKSTCKENTLL:
N720 STOPRE
N730 IF ($A_DBB[518]<>1) GOTOF WKSTCKENTLM
N740 STOPRE
N750 H2010.06;("UNLOAD WORKPIECE WITH GANTRY YES/NO")
N760 STOPRE
N770 MSG("")
N780 IF $A_DBB[1]<>1 GOTOF WKSTCKENTLM
N790 M78 
N800 RUESTABBR=2 ENTLL=1
N810 STOPRE
N820 GOTOF POS_OK
N830 WKSTCKENTLM:
N840 M58 
N850 MSG("UNLOAD WORKPIECE BY HAND PLEASE")
N860 M0
N870 M59;------------------------------------------------------
N880 STOPRE
N890 MSG("")
N900 GOTOB RUECKSPR2
N910 OWKSTCK:STOPRE
N920 $A_DBB[541]=0
N930 M64
N940 H2238
N950 G0 G153 C=DC(30) ;BELADEPOS SPINDEL 
N960 H2239
N970 M11 M79
N980 G0 G153 Z2=($A_DBR[412])-160 W1=$A_DBR[412] W2=$AA_SOFTENDN[W2]+1
N990 STOPRE
N1000 RUECKSPR3:
N1010 STOPRE
N1020 IF $A_DBW[404]>0 GOTOF ANW_ERF
N1030 MSG("NO WORKPIECE TYPE NR PRESELECTED-RESET")
N1040 M0
N1050 STOPRE
N1060 MSG("")
N1070 GOTOB RUECKSPR3
N1080 ANW_ERF:
N1090 STOPRE

N1100 POS_OK:
N1110 STOPRE
N1120 H2001
N1130 CASE $A_DBW[404] OF 1 GOTOF WM1 2 GOTOF WM2 3 GOTOF WM3 4 GOTOF WM4 5 GOTOF WM5 6 GOTOF WM6 7 GOTOF WM7 8 GOTOF WM8 9 GOTOF WM9 10 GOTOF WM10
N1140 MSG("ENLARGE CASE STATEMENT FOR PRESELECTED WORKPIECE TYPE NR PLEASE")
N1150 M0
N1160 STOPRE
N1170 MSG("")
N1180 GOTOB POS_OK

N1190 WM1: ;**** SPECIAL FEATURES FOR WORKPIECE 1300-QZ09_2.5l *****TYPE01
N1200 STOPRE
N1210 LUENETTPOSL=701.65 STANDMCH1=400 STANDMCH2=200 ;DF SANDWIK 
N1220 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1230 RMAT[1,7]=1 RMAT[1,8]=1 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1240 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1250 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1260 $A_DBB[90]=0 $A_DBB[91]=2 $A_DBB[92]=45
N1270 STOPRE
N1280 H4005
N1290 GOTOF WDEF

N1300 WM2: ;**** SPECIAL FEATURES FOR WORKPIECE 1300-QZ10_2.8l *****TYPE02
N1310 STOPRE
N1320 LUENETTPOSL=701.65 STANDMCH1=400 STANDMCH2=200 ;DF SANDWIK
N1330 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1340 RMAT[1,7]=1 RMAT[1,8]=1 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1350 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1360 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1370 $A_DBB[90]=0 $A_DBB[91]=2 $A_DBB[92]=45
N1380 STOPRE
N1390 H4005
N1400 GOTOF WDEF

N1410 WM3: ;******* SPECIAL FEATURES FOR WORKPIECE 1300-QZ09_2.5L_-V*****TYPE03
N1420 STOPRE
N1430 LUENETTPOSL=701.65 STANDMCH1=1200 STANDMCH2=600
N1440 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1450 RMAT[1,7]=1 RMAT[1,8]=1 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1460 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1470 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1480 $A_DBB[90]=0 $A_DBB[91]=2 $A_DBB[92]=45
N1490 STOPRE
N1500 H4005
N1510 GOTOF WDEF

N1520 WM4: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE04
N1530 STOPRE
N1540 LUENETTPOSL=701.65 STANDMCH1=1200 STANDMCH2=600
N1550 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1560 RMAT[1,7]=1 RMAT[1,8]=1 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1570 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1580 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1590 $A_DBB[90]=0 $A_DBB[91]=2 $A_DBB[92]=45
N1600 STOPRE
N1610 H4005
N1620 GOTOF WDEF

N1630 WM5: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE05
N1640 STOPRE
N1650 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N1660 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1670 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1680 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1690 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1700 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N1710 STOPRE
N1720 H4005
N1730 GOTOF WDEF

N1740 WM6: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE06
N1750 STOPRE
N1760 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N1770 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1780 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1790 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1800 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1810 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N1820 STOPRE
N1830 H4005
N1840 GOTOF WDEF

N1850 WM7: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE07
N1860 STOPRE
N1870 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N1880 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N1890 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N1900 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N1910 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N1920 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N1930 STOPRE
N1940 H4005
N1950 GOTOF WDEF

N1960 WM8: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE08
N1970 STOPRE
N1980 LUENETTPOSL=000.00 STANDMCH1=0000 STANDMCH2=0000
N1990 RMAT[1,1]=0 RMAT[1,2]=0 RMAT[1,3]=0 RMAT[1,4]=0 RMAT[1,5]=0 RMAT[1,6]=0
N2000 RMAT[1,7]=0 RMAT[1,8]=0 RMAT[1,9]=0 RMAT[1,10]=0 RMAT[1,11]=0 
N2010 RMAT[1,12]=0 RMAT[1,13]=0 RMAT[1,14]=0 RMAT[1,15]=0 RMAT[1,16]=0
N2020 RMAT[1,17]=0 RMAT[1,18]=0 RMAT[1,19]=0 RMAT[1,20]=0
N2030 $A_DBB[90]=0 $A_DBB[91]=0 $A_DBB[92]=00
N2040 STOPRE
N2050 H4005
N2060 GOTOF WDEF

N2070 WM9: ;******* SPECIAL FEATURES FOR WORKPIECE _XXXXXXXXX_XX*****TYPE09
N2080 STOPRE