Î÷ÃÅ×Ó828D¶·óÒµ¶¿âµÄ¿ØÖƵ÷ÊÔ¹ý³Ì

admin

¶·óÒµ¶¿âµÄµ÷ÊÔ£¬×÷Ϊµ÷ÊÔÈËÔ±£¬Ê×ÏÈÒªÇå³þ£¬¶·óÒµ¶¿âµÄ¿ØÖƹý³Ì£º
¼òÊöÆä¹ý³Ì£ºÖ´Ðл»µ¶M6TÖ¸Áîºó£¬Ö÷ÖáÇл»µ½»»µ¶¸ß¶È--Ö÷Öᶨλ---¶·óÒµ¶¿â³öµ½»»µ¶Î»ÖÃ--Ö÷ÖáËɵ¶---ZÖá̧Æð×¼±¸»»µ¶---µ¶ÅÌÐýתµ½Ô¤»»µÄµ¶¾ß---ZÖáÒƶ¯µ½»»µ¶µã---Ö÷Öá¼Ðµ¶ÇҼе¶Ðźŵ½Î»ºó---µ¶¿â»Øԭλ£»
´Ë¹ý³Ìʱ¶·óÒµ¶¿â¸ü»»µÄÈ«¹ý³Ì£¬¸Ã¹ý³ÌÓɼ¸²¿·ÖÅäºÏ¹²Í¬Íê³É£¬Ê×ÏÈ£¬¶¯×÷ÒÀ¿¿»»µ¶×Ó³ÌÐòÀ´Íê³É£¬»»µ¶×Ó³ÌÐòÓÐÈý¸ö×é³É²¿·Ö£º
1£» L6.SPF£º¶·óÒʽµ¶¿âµÄ»»µ¶×Ó³ÌÐò£¬ÊµÏÖµ¶¿âµÄÖ÷Òª¶¯×÷ ¡¤£»
¸Ã³ÌÐòÊÇÓɺêÖ¸ÁîNC³ÌÐò¸ñʽִÐÐÍê³É£»
N10 PROC L6 SAVE DISPLOF SBLOF
N20 DEF INT T_SP,T_ORDER
N30 T_SP=$TC_MPP6[9998,1]
N40 GETSELT(T_ORDER)
N50 STOPRE
N60 IF(($P_SIM==1) OR ($P_ISTEST==1)) GOTOF END1;³ÌÐòÄ£Ä⣬³ÌÐò²âÊÔ¼¤»î
N70 IF(($P_SEARCH<>0) OR ($P_DRYRUN==1)) GOTOF END1;³ÌÐò¶ÎËÑË÷£¬¿ÕÔËÐ줻î
N80 IF (($P_SEARCH==0) AND (T_SP==T_ORDER) AND (T_SP>0) AND (T_ORDER>0)) GOTOF INFO1
N90 IF (($P_SEARCH==0) AND (T_SP==T_ORDER) AND (T_SP==0) AND (T_ORDER==0)) GOTOF INFO1
N100 IF $A_DBW[0]==5 GOTOF INFO2 ;5 = µ¶¿âδ»ØÁ㣬²»ÄÜ»»µ¶
N110 IF $A_DBW[0]==4 GOTOF INFO3 ;4 = Öáδ»ØÁ㣬²»ÄÜ»»µ¶
N120 IF $A_DBW[0]==6 GOTOF INFO4 ;6 = µ¶¿âµ÷ÊÔģʽ¼¤»î£¬²»ÄÜ»»µ¶
N120 IF $MN_USER_DATA_FLOAT[4]==0 GOTOF INFO5 ;MD14514[4]=0,»»µ¶ËÙ¶ÈδÉèÖ㬲»ÄÜ»»µ¶£»
N130 $A_DBW[2]=5
N140 _WAITK1:
N150 G4F0.1
N160 MSG("µÈ´ý µ¶¿â==µ¶¾ß±í È·ÈÏ£¬Ò»ÖÂÇë°´[µ¶Î»Ò»ÖÂ]¼ÌÐø");
N170 IF $A_DBW[2]<>1 GOTOB _WAITK1
N180 D0

N190 STOPRE
N200 M206; »»µ¶ÃüÁîÉúЧ
N210 IF (($A_DBW[0]==2) OR ($A_DBW[0]==3)) GOTOF T_RET ;2 = T0 3 = ½»»»µ¶
N220 IF $A_DBW[0]==1 GOTOF T_NEWLOC ;1 = ֻץе¶
N230 STOPRE
N240 T_RET: ;»¹¾Éµ¶

N250 M05 ;Ö÷ÖáÍ£Ö¹
N260 MSG("Ö÷ÖᶨÏò")
N270 SPOSA=$MN_USER_DATA_FLOAT[0]
N280 MSG("ZÖá»Øµ½»»µ¶Î»")
N290 SUPA G00 G90 Z=$MN_USER_DATA_FLOAT[1] ;ZÖᶨλµ½»»µ¶µã
N300 WAITS
N310 MSG("µ¶¿âÍƳö")
N320 M62 ;µ¶¿âÍƳö
N330 G4 F1
N340 MSG("Ö÷ÖáËɵ¶")
N350 M58 ;Ö÷ÖáËɵ¶
N360 G4 F2
N370 MSG("ZÖáÍ˵½µ¶¿âÐýת°²È«Î»ÖÃ") ;
N380 SUPA G00 G90 Z=$MN_USER_DATA_FLOAT[2] ;ZÖá·µ»Øµ¶¿âÐýתµÄ°²È«Î»ÖÃ
N390 IF $A_DBW[0]==3 GOTOF T_GET ;½»»»µ¶¾ß,ÏÈ»¹¾Éµ¶,ÔÙץе¶
N400 MSG("Ö÷Öá×¥µ¶")
N410 M59 ;Ö÷ÖáÀ­µ¶
N420 STOPRE
N430 MSG("µ¶¿âÍË»Ø")
N440 M63 ;µ¶¿â»ØÍË
N450 MSG("ZÖáÍ˵½°²È«Î»ÖÃ")
N460 SUPA G00 G90 Z=$MN_USER_DATA_FLOAT[3] ;ZÖá·µ»Ø°²È«Î»ÖÃ
N470 GOTOF END
N480 T_NEWLOC: ;ֻץе¶

N490 M05 ;Ö÷ÖáÍ£Ö¹
N500 MSG("Ö÷ÖᶨÏò")
N510 SPOSA=$MN_USER_DATA_FLOAT[0]
N520 MSG("ZÖá»Øµ½µ¶¿âÐýת°²È«Î»ÖÃ")
N530 SUPA G00 G90 Z=$MN_USER_DATA_FLOAT[2] ;Z Öᶨλµ½µ¶¿âÄÜÐýתµÄ°²È«Î»ÖÃ
N540 WAITS
N550 MSG("µ¶¿âÍƳö")

N560 M62 ;µ¶¿âÍƳö
N570 G4 F1
N580 MSG("Ö÷ÖáËɵ¶")
N590 M58 ;Ö÷ÖáËɵ¶
N600 G4 F2
N610 GOTOF T_GO_ON ;¼ÌÐø×¥µ¶
N620 T_GET:

N630 MSG("µ¶ÅÌÐýת") ;ץе¶
N640 M55 ;µ¶¿âÐýתָÁî
N650 STOPRE
N660 T_GO_ON: ;¼ÌÐø×¥µ¶
N670 MSG("ZÖá¿Ûµ¶")
N680 SUPA G01 G90 Z=$MN_USER_DATA_FLOAT[1] F=$MN_USER_DATA_FLOAT[4];ZÖᶨλµ½»»µ¶µã
N690 MSG("Ö÷Öá×¥µ¶")
N700 M59 ;Ö÷Öá½ôµ¶
N710 G4 F2
N720 MSG("µ¶¿âÍË»Ø")
N730 M63 ;µ¶¿â»ØÍË
N740 MSG("ZÖáÍ˵½°²È«Î»ÖÃ")
N750 SUPA G00 G90 Z=$MN_USER_DATA_FLOAT[3] ;ZÖá·µ»Ø°²È«Î»ÖÃ
N760 SETPIECE(1) ;µ¶¾ß¼ÆÊý¼Ó1ÓÃÓÚµ¶¾ßÊÙÃü¼à¿Ø
N770 END:

N780 MSG("")
N790 D1
N800 $A_DBW[0]=0
N810 M05
N820 STOPRE
N830 M17
N840 END1:

N850 M206
N860 GOTOB END
N870 INFO1:MSG("**** ÎÞ»»µ¶¶¯×÷ Ô­Òò£º±à³Ìµ¶¾ßºÅ = Ö÷Öᵶ¾ßºÅ ****")

N880 $A_DBW[0]=0
N890 G04F3
N900 MSG("")
N910 M17
N920 INFO2:MSG("**** µ¶¿âδ»ØÁ㣬²»ÄÜ»»µ¶ ****")
N930 $A_DBW[0]=0
N940 G04F1
N950 GOTO INFO2
N960 M17
N970 INFO3:MSG("**** Öá X Y Z δ»ØÁ㣬²»ÄÜ»»µ¶ ****")
N980 $A_DBW[0]=0
N990 G04F1
N1000 GOTO INFO3
N1010 M17
N1020 INFO4:MSG("**** µ¶¿âµ÷ÊÔģʽ¼¤»î£¬²»ÄÜ»»µ¶ ****")
N1030 $A_DBW[0]=0
N1040 G04F1
N1050 GOTO INFO4
N1060 M17
N1020 INFO5:MSG("**** »»µ¶ËÙ¶ÈMD14514[4]=0£¬²»ÄÜ»»µ¶ ****")
N1040 $A_DBW[0]=0
N1050 G04F1
N1060 GOTO INFO5
N1070 M17
2.MAG_CONF.SPF£ºµ¶¿â³õʼ»¯Ê±£¬ÐèÒª¶Ôµ¶¿â²ÎÊý×ö»ù±¾²ÎÊýÅäÖà £»
3.CYCPE_MA.SPF£º³ÌÐò¶ÎËÑË÷´¦Àí³ÌÐò£»
³Ð½ÓÉÏÒ»ÌùÓнéÉÜ£¬ÆäÖÐÆðמö¶¨ÐԵIJÎÊýÈçÏ£º
MD14514[0] Ö÷Öᶨλ½Ç¶È£»
; MD14514[1] ZÖá»»µ¶µãλÖã»
; MD14514[2] ÓÃÓÚµ¶¿âÐýתµÄZÖáλÖã»
; MD14514[3] ZÖᰲȫλÖã»
µÚ¶þ¸ö×Ó³ÌÐò£ºMAG_CONF.SPF£ºµ¶¿â³õʼ»¯Ê±£¬ÐèÒª¶Ôµ¶¿â²ÎÊý×ö»ù±¾²ÎÊýÅäÖÃÏêϸÈçÏ£º
N10 def int NUM_MAG,MAG_TYPE, LOCATIONS, PLACE, NUM_BUFFER, NUM_LOAD, PLACE_SEARCH
;IF $MN_USER_DATA_INT[0]==0
MSG("µ¶Å̵¶Î»ÊýÁ¿ MD14510[0] δÉ趨")
M0
ENDIF
N20 NUM_MAG = 1 ;Nummer des Magazins
N30 MAG_TYPE = 1 ;Magazinart (1: Kette, 3: Revolver,; 5: Flaechenmagazin)
N40 LOCATIONS = $MN_USER_DATA_INT[0] ;Anzahl der Magazinplaetze
N50 NUM_BUFFER = 1 ;Anzahl der Zwischenspeicher(Spindel, Greifer)
N60 NUM_LOAD = 1 ;Anzahl der Beladestellen
N70 PLACE_SEARCH = 257 ;Art der Suchstrategie,
;=257 Bit13=0 kein Tausch Altwerkzeug auf Platz von Neuwerkzeug
;Einstellung fuer Revolvermagazin
;=12289 Bit13=1 Tausch Altwerkzeug auf Platz von Neuwerkzeug
;Einstellung fuer Kettenmagazin
N80;
N90;
;Parameter pruefen
N100 stopre
N110 if ((NUM_MAG==0)or(LOCATIONS==0))
N120 Err1:STOPRE
N130 MSG("Wrong Parameter --> Cancel")
N140 G04 F4
N150 stopre
N160 M0
N170 GOTOB Err1
N180 endif
N190; Magazin Konfiguration
N200;
N210;
N220; Loesche alte Daten wenn Magazin 1 angelegt wird
N230 if NUM_MAG ==1
N240 $TC_MAP1[0]=0; loesche Magazine
N250 $TC_DP1[0,0]=0; loesche Werkzeuge
N260 STOPRE
N270 endif
;Konfiguration
N280 $TC_MAMP2= PLACE_SEARCH ; Art der Suchstrategie
; Magazin einrichten
N290 $TC_MAP1[NUM_MAG]= MAG_TYPE ; Magazinart (1: Kette, 3: Revolver,; 5: Flaechenmagazin)
;N300 $TC_MAP2[NUM_MAG]="MAGAZIN"<N310 if PLACE_SEARCH == 257
N320 $TC_MAP3[NUM_MAG]= 81 ; Magazinzustand alle Plaetze festplatzkodiert bei Revolvermagazin
N330 else
N340 $TC_MAP3[NUM_MAG]=17 ; Magazinzustand
N350 endif
N360 $TC_MAP4[NUM_MAG]=-1
N370 $TC_MAP5[NUM_MAG]=-1
N380 $TC_MAP6[NUM_MAG]=1 ; Anzahl Zeilen des Magazines
N390 $TC_MAP8[NUM_MAG]=0
N400 $TC_MAP9[NUM_MAG]=0
N410 $TC_MAP7[NUM_MAG]= LOCATIONS ; Anzahl Magazinplaetze
;N420 $TC_MAP10[NUM_MAG]=PLACE_SEARCH ; Art der Suchstrategie
;Magazinplaetze
;N430 for PLACE=1 to LOCATIONS
N440 STOPRE
N450 $TC_MPP1[NUM_MAG,PLACE]=1 ; Platzart
N460 $TC_MPP2[NUM_MAG,PLACE]=0 ; Platzytp,0 mit jedem WZ Platztyp vertraeglich
N470 $TC_MPP3[NUM_MAG,PLACE]=1 ; Nebenplatzbetrachtung ein (aus waere 0)
N480 $TC_MPP4[NUM_MAG,PLACE]=2 ; Platzzustand; (siehe FB WZV)
N490 $TC_MPP5[NUM_MAG,PLACE]= PLACE ; Platzartindex
N500 endfor
N510 STOPRE
;N520 ; Definition Zwischenspeichermagazin (immer Nummer 9998)
;N530 $TC_MAP1[9998]=7 ; Magazinart: 7: Zwischenspeicher
;N540 $TC_MAP2[9998]="Buffer"<N550 $TC_MAP3[9998]=17 ; Magazinzustand
N560 $TC_MAP6[9998]=1 ; Anzahl Zeilen
N570 $TC_MAP7[9998]=NUM_BUFFER ; Anzahl Plaetze
; Plaetze des Zwischenspeichers
;Spindel
N580 $TC_MPP1[9998,1]=2 ; Platzart (hier Spindel)
N590 $TC_MPP2[9998,1]=0 ; Platztyp (hier immer 0)
N600 $TC_MPP3[9998,1]=0 ; Nebenplatzbetrachtung aus
N610 $TC_MPP4[9998,1]=2 ; Platzzustand
N620 $TC_MPP5[9998,1]=1 ; Platzartindex
;N630 ;Greifer
N640 FOR PLACE=2 to NUM_BUFFER
N650 STOPRE
N660 $TC_MPP1[9998,PLACE]=3 ;(hier Greifer)
N670 $TC_MPP2[9998,PLACE]=0 ;(hier immer 0)
N680 $TC_MPP3[9998,PLACE]=0 ;Nebenplatzbetrachtung aus
N690 $TC_MPP4[9998,PLACE]=2 ;Platzzustand
N700 $TC_MPP5[9998,PLACE]=PLACE ;Platzartindex
N710 endfor
N720 STOPRE
;N730 ; Definition Belademagazin (immer Nummer 9999)
;N740 $TC_MAP1[9999]=9 ; Magazinart: 9: Belademagazin
;N750 $TC_MAP2[9999]="BELADEMAGAZIN"<N760 $TC_MAP3[9999]=17 ; Magazinzustand
N770 $TC_MAP4[9999]=-1
N780 $TC_MAP5[9999]=-1
N790 $TC_MAP6[9999]=1 ; Anzahl Zeilen
N800 $TC_MAP7[9999]=NUM_LOAD; Anzahl Plaetze
N810 STOPRE;
;N820 ; Belademagazinplaetze
;N830 for PLACE=1 to NUM_LOAD
N840 STOPRE
N850 $TC_MPP1[9999,PLACE]=7 ; Platzart Beladestelle
N860 $TC_MPP2[9999,PLACE]=0 ; Platztyp (hier immer 0)
N870 $TC_MPP3[9999,PLACE]=0 ; Nebenplatzbetrachtung aus
N880 $TC_MPP4[9999,PLACE]=2 ; Platzzustand
N890 $TC_MPP5[9999,PLACE]=PLACE ; Platzartindex
N900 endfor
N910 STOPRE
N920 ; Offsets (Abstaende) ; Abstaende zum Magazin
Zwischenspeicher
N930 for PLACE=1 to NUM_BUFFER
N940 $TC_MDP2[NUM_MAG,PLACE]=0
N950 endfor
N960 STOPRE
;Beladestellen
N970 for PLACE=1 to NUM_LOAD
N980 stopre
N990 $TC_MDP1[NUM_MAG,PLACE]=0
N1000 endfor
;Spindel-Greifer Zuordnung
;N1010 stopre
N1020 for PLACE=2 to NUM_BUFFER
N1030 stopre
N1040 $TC_MLSR[PLACE,1]=0
N1050endfor
Ende
N1060 M30

admin

³Ð½ÓÖ÷Ìù£º

CYCPE_MA.SPF£º³ÌÐò¶ÎËÑË÷´¦Àí³ÌÐò£º

PROC CYCPE_MA SBLOF DISPLOF

DEF INT _NWT

DEF INT T_Vor,T_Spi,T_active

IF $P_PROG_EVENT==1 ;start part program

ENDIF


IF $P_PROG_EVENT==2 ;end part program


ENDIF


IF $P_PROG_EVENT==3 ;reset


ENDIF


IF $P_PROG_EVENT==4 ;power up


ENDIF


IF $P_PROG_EVENT==5 ;block search


GETEXET(T_active)

GETSELT(T_Vor)

T_Spi=$TC_MPP6[9998,1]

if ((T_Spi<>T_active)and(T_active>0))

T=$TC_TP2[T_active]

L6

Endif

if T_Vor<>T_active

if T_Vor>0

T=$TC_TP2[T_Vor]

Endif

if T_Vor==0

T0

Endif

Endif

ENDIF

EXIT:


RET


M17

ÓÐÁËÈý¸ö×Ó³ÌÐò£¬½ÓÏÂÀ´µÄ²Ù×÷ÊÇ£º½«ÉÏÊö 3 ¸ö×Ó³ÌÐò¿½±´ÖÁ PPU Éϼ´¿É£¬Â·¾­ÈçÏ£º µ÷ÊÔ¡ª¡ªÏµÍ³Êý¾Ý¡ª¡ªNC Êý¾Ý¡ª¡ªÑ­»·¡ª¡ªÖÆÔìÉÌÑ­»·£»

ʹÓ÷½·¨£º


L6£ºÔÚ»»µ¶Ê±ÏµÍ³»á×Ô¶¯µ÷Óã»ÎÞÐèÐ޸ģ» ÐèÒª²ì¿´ÆäʵʱÔËÐÐʱ£¬¿ÉÒÔ½« L6 ¿ªÍ·Óï¾äÖеġ°DISPLOF¡±ÁÙʱɾ³ý£»

MAG_CONF£º³õʼ»¯µ¶¾ß±í£¨Ë¢Ðµ¶¾ß±í£©Îļþ£¬¸ÃÎļþÐèÒª¿½±´ÖÁ¡°³ÌÐò¹ÜÀí¡± ¡ª¡ª¡°Áã¼þ³ÌÐò¡±Ïµ¥¶ÀÖ´ÐУ» Ö´ÐÐÇ°ÇëÈ·±£ MD14510[0]µ¶Î»ÊýÁ¿ÌîдÎÞÎó£» Ö´ÐÐÍê³Éºó£¬µ¶¾ß±í»á±äΪÓëʵ¼Êµ¶¿â¶ÔÓ¦µÄģʽ£¨µ¶Î»ÊýÁ¿¡¢Ö÷ÖáÊýÁ¿¡¢µ¶×¦ÊýÁ¿£© ×¢Ò⣺³õʼ»¯µ¶¾ß±í¿ÉÒÔÔÚÊ״ε¶¿âµ÷ÊÔʱʹÓã»Ò²¿ÉÒÔÔÚµ¶¾ß±íÐèÒªÇå¿ÕʱʹÓã» ÔÚ¡°ÂÒµ¶¡±Ê±£¨¼´µ¶¾ß±íÓëʵ¼Êµ¶¿âλÖò»Ò»ÖÂÇÒÊÖ¶¯µ÷Õû±È½ÏÀ§ÄÑʱ£©Ö´ÐÐÓÃÓÚÇå ¿Õµ¶¾ß±í£»´ËʱעÒâ×öºÃµ¶¾ß¼Ó¹¤ÊôÐÔµÄÓйؼͼ¡£

CYCPE_MA£ºÊ¹ÓöÎËÑË÷¹¦ÄÜʱ£¬»á×Ô¶¯µ÷Óã¬ÎÞÐèÐ޸ģ»

´ËÎı¾£¬Ö÷À´Ô´ÓÚµ¶¿âÓ¦Ó÷¶±¾£¬Êµ¼ÊÓ¦ÓÃÖУ¬Ö»ÒªÁ˽â¸÷³ÌÐòº¬Ò壬ÒѾ­Ó¦Óùý³Ì£¬ÒÔÇ°¹ý³Ì²»Î¨Ò»£»