Znaleziono 2 wyniki
- 04 paź 2015, 20:30
- Forum: Siemens Sinumerik CNC
- Temat: PODPROGRAMY
- Odpowiedzi: 3
- Odsłony: 2577
- 03 paź 2015, 10:04
- Forum: Siemens Sinumerik CNC
- Temat: PODPROGRAMY
- Odpowiedzi: 3
- Odsłony: 2577
PODPROGRAMY
Co użytkownicy SINUMERIKA powiedzą na założenie tematu z ciekawymi podprogramami które wykorzystujemy aby ułatwić sobie życie ?
PROGRAM BAZOWY
ZAPIS W PROGRAMIE :
OPIS CYKLU:
PROGRAM BAZOWY
ZAPIS W PROGRAMIE :
_BAZA_XYZ(1,250-3,587,460)
OPIS CYKLU:
_BAZA_XYZ(G54-G57,POZYCJA X MASZYNOWA,POZYCJA Y MASZYNOWA,POZYCJA Z MASZYNOWA)
G54 - 1 , G55 -2 , G56 - 3 , G57 -4
Kod: Zaznacz cały
PROC _BAZA_XYZ(INT _NR_BAZY,REAL _POZ_X,REAL _POZ_Y,REAL _POZ_Z) SAVE DISPLOF SBLOF
;CYKL WPISUJE BAZE DO REJESTROW XYZ DLA KANALU 1
DEF STRING[3] _NAZWA_BAZY
if ($P_SUBPAR[1]==FALSE) OR ($P_SUBPAR[2]==FALSE) OR ($P_SUBPAR[3]==FALSE) OR ($P_SUBPAR[4]==FALSE)
MSG("NIE WPISANO WYMAGANYCH PARAMETROW - WPISZ WSZYSTKIE 4 PAR. CYKLU!")
M0
GOTOF _KONIEC
ENDIF
IF (_NR_BAZY<1) OR (_NR_BAZY>4)
MSG("WPISANO NIEPRAWIDLOWY NR BAZY W PARAMETRZE CYKLU!")
M0
GOTOF _KONIEC
ENDIF
IF _NR_BAZY==1
_NAZWA_BAZY="G54"
ENDIF
IF _NR_BAZY==2
_NAZWA_BAZY="G55"
ENDIF
IF _NR_BAZY==3
_NAZWA_BAZY="G56"
ENDIF
IF _NR_BAZY==4
_NAZWA_BAZY="G57"
ENDIF
MSG("KASUJE ZAWARTOSC BAZY -"<< _NAZWA_BAZY<< "-, TAK-[CYCLE START], NIE-[RESET//] !")
STOPRE
M00
STOPRE
;---------------KASOWANI STARYCH WPISOW-------
$p_uifr[_NR_BAZY,X,tr]=0; baza zgrubna
$p_uifr[_NR_BAZY,X,fi]=0;baza dokladna
$p_uifr[_NR_BAZY,Y,tr]=0; baza zgrubna
$p_uifr[_NR_BAZY,Y,fi]=0;baza dokladna
$p_uifr[_NR_BAZY,Z,tr]=0; baza zgrubna
$p_uifr[_NR_BAZY,Z,fi]=0;baza dokladna
;----------------KONIEC KASOWANIA-------------
STOPRE
;---------WPIS NOWYCH WARTOSCI----------------
$p_uifr[_NR_BAZY,X,tr]=_POZ_X; baza zgrubna
$p_uifr[_NR_BAZY,Y,tr]=_POZ_Y; baza zgrubna
$p_uifr[_NR_BAZY,Z,tr]=_POZ_Z; baza zgrubna
;---------------------------------------------
STOPRE
MSG("BAZA -"<< _NAZWA_BAZY<< "- ZOSTALA WPROWADZONA PRAWIDLOWO!")
_KONIEC:
RET
