Sinumeric 810 zapytanie
: 24 sie 2012, 14:24
Witam
Ja pisze programy w programy w CAD4 Professione 2 ver 4.5 firmy technobox.de i mam takie pytanie bo w programie nie ma takiej chyba opcji. Co dopisać aby po zakończeniu obróbki załadowało mi od nowa program i wysunęło kołki??
%_N_MPF_re1970_MPF
;$PATH=/_N_MPF_DIR
N3 ; rechte Bearbeitungsseite
N6 ; Erstellt am: 2012-06-21 um 07:51:19
N9 ; Trima mit Sinumerik 810D
N12 ; CAD File: C:\CAD4\ZEICHN\RE1970.TCD
N15 ; NC File: re1970.CNC
N18 ; Nullpunktverschiebung: X0.00 Y0.00 Z0.00
N21 ; Ohne Laserschalter
N24 ; Werkzeuge aus Unterprogrammen werden nicht angezeigt !!
N27 ; Werkzeugliste...
N30 ; Bez.: FREZ Tool.: 2 Agg.: 1 ID-Nr.: 2
N33 ; Ende Werkzeugliste
N36 ; Fertigteil: X1500.00 Y500.00 Z43.00
N39 ; Hintere Anschlagreihe rechts
N42 CFTCP
N45 STOPRE
N48 IF $A_IN[7]==FALSE GOTOF EINFELD
N51 IF $A_IN[6]==FALSE GOTOF RECHTS
N54 ;---
N57 LINKS:
N60 MSG (" Abbruch --> Programm fuer rechtes Bearbeitungsfeld, Starttaste druecken !!")
N63 M00
N66 MSG ()
N69 GOTOF MARKE2
N72 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N75 STOPRE
N78 G505 G64 M12
N81 G00 G53 Z=SICH_Z
N84 NULL
N87 G00 G53 X1550.000 Y-530.000
N90 M08
N93 G04 F1
N96 GOTOF BEARB
N99 ;---
N102 RECHTS:
N105 NULL
N108 MSG (" Rechter Arbeitsbereich gewaehlt !!")
N111 R1=$P_UIFR[3,X,TR]
N114 R2=$P_UIFR[3,Y,TR]
N117 R3=$P_UIFR[3,Z,TR]
N120 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N123 STOPRE
N126 G505 G64 M12
N129 G53 G00 Z=SICH_Z
N132 NULL
N135 G00 G53 X1550.000 Y-530.000
N138 M44
N141 M09
N144 G04 F1
N147 GOTOF BEARB
N150 ;---
N153 EINFELD:
N156 R1=$P_UIFR[3,X,TR]
N159 R2=$P_UIFR[3,Y,TR]
N162 R3=$P_UIFR[3,Z,TR]
N165 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N168 G505 G64 M12
N171 STOPRE
N174 G00 G53 Z=SICH_Z
N177 NULL
N180 G53 G00 X2400.000 Y-530.000
N183 M08
N186 G04 F1
N189 M14
N192 MSG ( "EINFELD -> Weiter mit Start ! NPV G56 gewaehlt " )
N195 M00
N198 MSG ()
N201 G04 F1
N204 M18
N207 ;---
N210 BEARB:
N213 STOPRE
N216 ; ** ENDE Programmkopf **
N219 ;---
N222 ; BEARBEITUNG Nr.: 130
N225 ; WZ WECHSEL
N228 G53 G00 Z=SICH_Z T0
N231 M11
N234 M05
N237 G17 M12
N240 ; Fraeser: FREZ
N243 WERKZEUG=0202
N246 WZW
N249 S18000 M03
N252 ; ENDE WZ WECHSEL --> EBENE 0
N255 ;---
N258 TRANS X0.000 Y0.000 Z0.000
N261 G00 X-17.000 Y55.000 Z63.000
N264 G01 G41 X-17.000 Y33.000 F3000
N267 G01 Z18.000
N270 G03 X5.000 Y55.000 CR=22.000
N273 G01 Y455.000
N276 G01 X48.000
N279 G01 Y505.000
N282 G01 X1932.000
N285 G01 Y455.000
N288 G01 X1975.000
N291 G01 Y55.000
N294 G01 X1932.000
N297 G01 Y5.000
N300 G01 X48.000
N303 G01 Y55.000
N306 G01 X5.000
N309 G03 X-17.000 Y33.000 CR=22.000
N312 G01 Z63.000
N315 G01 G40 X5.000 Y33.000
N318 ;---
N321 ; BEARBEITUNG Nr.: 140
N324 TRANS X0.000 Y0.000 Z0.000
N327 G00 X-17.000 Y55.000 Z63.000
N330 G01 G41 X-17.000 Y33.000 F3000
N333 G01 Z-2.000
N336 G03 X5.000 Y55.000 CR=22.000
N339 G01 Y455.000
N342 G01 X48.000
N345 G01 Y505.000
N348 G01 X1932.000
N351 G01 Y455.000
N354 G01 X1975.000
N357 G01 Y55.000
N360 G01 X1932.000
N363 G01 Y5.000
N366 G01 X48.000
N369 G01 Y55.000
N372 G01 X5.000
N375 G03 X-17.000 Y33.000 CR=22.000
N378 G01 Z63.000
N381 G01 G40 X5.000 Y33.000
N384 ; ---
N387 ; ** PROGRAMM ENDE **
N390 M21
N393 TRANS
N396 G00 G53 Z=SICH_Z T0 M5
N399 M28--------------------------------------------------/ Te linijki osuwam aby
N402 G04 F1.0--------------------------------------------/ na koniec nie oddało
N405 WERKZEUG=0--------------------------------------/ narzędzia
N408 WZW------------------------------------------------/
N411 G17-------------------------------------------------/
N414 M12-------------------------------------------------/
N417 STOPRE
N420 IF $A_IN[7]==TRUE GOTOF MARKE1
N423 ;---
N426 G53 G00 X2400.000 Y-530.000
N429 M08
N432 G4 F1.0
N435 GOTOF MARKE2
N438 ;---
N441 MARKE1:
N444 G00 G53 X1550.000 Y-530.000
N447 STOPRE
N450 ;M18
N453 ;---
N456 MARKE2:
N459 M30
Ja pisze programy w programy w CAD4 Professione 2 ver 4.5 firmy technobox.de i mam takie pytanie bo w programie nie ma takiej chyba opcji. Co dopisać aby po zakończeniu obróbki załadowało mi od nowa program i wysunęło kołki??
%_N_MPF_re1970_MPF
;$PATH=/_N_MPF_DIR
N3 ; rechte Bearbeitungsseite
N6 ; Erstellt am: 2012-06-21 um 07:51:19
N9 ; Trima mit Sinumerik 810D
N12 ; CAD File: C:\CAD4\ZEICHN\RE1970.TCD
N15 ; NC File: re1970.CNC
N18 ; Nullpunktverschiebung: X0.00 Y0.00 Z0.00
N21 ; Ohne Laserschalter
N24 ; Werkzeuge aus Unterprogrammen werden nicht angezeigt !!
N27 ; Werkzeugliste...
N30 ; Bez.: FREZ Tool.: 2 Agg.: 1 ID-Nr.: 2
N33 ; Ende Werkzeugliste
N36 ; Fertigteil: X1500.00 Y500.00 Z43.00
N39 ; Hintere Anschlagreihe rechts
N42 CFTCP
N45 STOPRE
N48 IF $A_IN[7]==FALSE GOTOF EINFELD
N51 IF $A_IN[6]==FALSE GOTOF RECHTS
N54 ;---
N57 LINKS:
N60 MSG (" Abbruch --> Programm fuer rechtes Bearbeitungsfeld, Starttaste druecken !!")
N63 M00
N66 MSG ()
N69 GOTOF MARKE2
N72 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N75 STOPRE
N78 G505 G64 M12
N81 G00 G53 Z=SICH_Z
N84 NULL
N87 G00 G53 X1550.000 Y-530.000
N90 M08
N93 G04 F1
N96 GOTOF BEARB
N99 ;---
N102 RECHTS:
N105 NULL
N108 MSG (" Rechter Arbeitsbereich gewaehlt !!")
N111 R1=$P_UIFR[3,X,TR]
N114 R2=$P_UIFR[3,Y,TR]
N117 R3=$P_UIFR[3,Z,TR]
N120 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N123 STOPRE
N126 G505 G64 M12
N129 G53 G00 Z=SICH_Z
N132 NULL
N135 G00 G53 X1550.000 Y-530.000
N138 M44
N141 M09
N144 G04 F1
N147 GOTOF BEARB
N150 ;---
N153 EINFELD:
N156 R1=$P_UIFR[3,X,TR]
N159 R2=$P_UIFR[3,Y,TR]
N162 R3=$P_UIFR[3,Z,TR]
N165 $P_UIFR[5]=CTRANS(X,R1,Y,R2,Z,R3)
N168 G505 G64 M12
N171 STOPRE
N174 G00 G53 Z=SICH_Z
N177 NULL
N180 G53 G00 X2400.000 Y-530.000
N183 M08
N186 G04 F1
N189 M14
N192 MSG ( "EINFELD -> Weiter mit Start ! NPV G56 gewaehlt " )
N195 M00
N198 MSG ()
N201 G04 F1
N204 M18
N207 ;---
N210 BEARB:
N213 STOPRE
N216 ; ** ENDE Programmkopf **
N219 ;---
N222 ; BEARBEITUNG Nr.: 130
N225 ; WZ WECHSEL
N228 G53 G00 Z=SICH_Z T0
N231 M11
N234 M05
N237 G17 M12
N240 ; Fraeser: FREZ
N243 WERKZEUG=0202
N246 WZW
N249 S18000 M03
N252 ; ENDE WZ WECHSEL --> EBENE 0
N255 ;---
N258 TRANS X0.000 Y0.000 Z0.000
N261 G00 X-17.000 Y55.000 Z63.000
N264 G01 G41 X-17.000 Y33.000 F3000
N267 G01 Z18.000
N270 G03 X5.000 Y55.000 CR=22.000
N273 G01 Y455.000
N276 G01 X48.000
N279 G01 Y505.000
N282 G01 X1932.000
N285 G01 Y455.000
N288 G01 X1975.000
N291 G01 Y55.000
N294 G01 X1932.000
N297 G01 Y5.000
N300 G01 X48.000
N303 G01 Y55.000
N306 G01 X5.000
N309 G03 X-17.000 Y33.000 CR=22.000
N312 G01 Z63.000
N315 G01 G40 X5.000 Y33.000
N318 ;---
N321 ; BEARBEITUNG Nr.: 140
N324 TRANS X0.000 Y0.000 Z0.000
N327 G00 X-17.000 Y55.000 Z63.000
N330 G01 G41 X-17.000 Y33.000 F3000
N333 G01 Z-2.000
N336 G03 X5.000 Y55.000 CR=22.000
N339 G01 Y455.000
N342 G01 X48.000
N345 G01 Y505.000
N348 G01 X1932.000
N351 G01 Y455.000
N354 G01 X1975.000
N357 G01 Y55.000
N360 G01 X1932.000
N363 G01 Y5.000
N366 G01 X48.000
N369 G01 Y55.000
N372 G01 X5.000
N375 G03 X-17.000 Y33.000 CR=22.000
N378 G01 Z63.000
N381 G01 G40 X5.000 Y33.000
N384 ; ---
N387 ; ** PROGRAMM ENDE **
N390 M21
N393 TRANS
N396 G00 G53 Z=SICH_Z T0 M5
N399 M28--------------------------------------------------/ Te linijki osuwam aby
N402 G04 F1.0--------------------------------------------/ na koniec nie oddało
N405 WERKZEUG=0--------------------------------------/ narzędzia
N408 WZW------------------------------------------------/
N411 G17-------------------------------------------------/
N414 M12-------------------------------------------------/
N417 STOPRE
N420 IF $A_IN[7]==TRUE GOTOF MARKE1
N423 ;---
N426 G53 G00 X2400.000 Y-530.000
N429 M08
N432 G4 F1.0
N435 GOTOF MARKE2
N438 ;---
N441 MARKE1:
N444 G00 G53 X1550.000 Y-530.000
N447 STOPRE
N450 ;M18
N453 ;---
N456 MARKE2:
N459 M30