Zapetlenie programu z przesunieciem osi C w sinumerik 810D

[darmag221]

Witam
Chciałbym wykonać możliwie krótkim programem następująca cześć:
Wywiercenie otworów na czole rozmieszczonych na okręgu?

G18
G54
G94
T1 D1
SPOS=0
S2=2000 M2=3
G0 X200 Z3
G1 Z-20 F100
G0 Z3
SPOS=20
G1 Z-20
G0 Z3
itd

Jak wykonać zapętlenie z przesunięciem osi C o 20stopni? tak aby nie pisać całego programu SPOS=20, SOPS=40 itd?
Dziekuje za wszelka pomoc.

[skapiec1123]

Można również zrobić tak, że obrót wokół osi C normalnie programować w MPF , a samo wiercenie zapisać jako podprogram i wywoływać po obrocie osi...

[gelo]

Moze tak...

DEF INT C_POS ; definicja zmiennej - postep obrotu osi C
G18
G54
G94
T1 D1
SPOS=0 ; wartosc poczatkowa osi C
C_POS=20 ; wartosc postepu obrotu osi C
PETLA: etykieta - poczatek petli
S2=2000 M2=3
G0 X200 Z3
G1 Z-20 F100
G0 Z3
SPOS=SPOS+C_POS ; zwiekszenie pozycji wrzeciona o postep
IF SPOS == 360 ; jezeli po dodaniu postepu wypadnie 360 - koniec petli i skok na koniec
GOTOF KONIEC ; skok do etykiety KONIEC
GOTOB PETLA ; skok do etykiety PETLA
KONIEC:
M30

[darmag221]

WIELKIE DZIEKI !!!
Właśnie o to mi chodziło.

skąpiec1123 napisał:
Można również zrobić tak, że obrót wokół osi C normalnie programować w MPF , a samo wiercenie zapisać jako podprogram i wywoływać po obrocie osi...

Rozwiązanie jest proste lecz dłuższy program do pisania.

gelo napisał:
.........
Właśnie o to mi chodziło.
Jeszcze jedno pytanie jak dopisać na tych pętlach dodatkowe narzędzie np:
T3 D1; fazownik 45stopni do fazowania otworów
tak aby nie pisać tego samego po zmianie narzędzia tylko wykorzystać ta pętle?

PS
w jaki sposób mogę zaznaczyć jako pomógł?

Pozdrawiam

[gelo]

Dopisujac dwie linijki:
DEF INT C_POS ; definicja zmiennej - postep obrotu osi C
DEF INT I =0 ; indeks
G18
G54
G94
T1 D1
MARK2:
SPOS=0 ; wartosc poczatkowa osi C
C_POS=20 ; wartosc postepu obrotu osi C
PETLA: ;etykieta - poczatek petli
S2=2000 M2=3
G0 X200 Z3
G1 Z-20 F100
G0 Z3
SPOS=SPOS+C_POS ; zwiekszenie pozycji wrzeciona o postep
IF SPOS == 360 ; jezeli po dodaniu postepu wypadnie 360 - koniec petli i skok na koniec
GOTOF KONIEC ; skok do etykiety KONIEC
GOTOB PETLA ; skok do etykiety PETLA
KONIEC:
IF I==0
T3D1
I=1 ; zmiana I na 1 spowoduje ze po drugim obiegu petli warunek IF nie zostanie spelniony i program przejdzie dalej
GOTOB MARK2
ENDIF
M30

Pamietaj ze Sinumerik posiada gotowe cykle wiercenia, ktore warto wykorzystac. Zobacz CYCLE81, CYCLE82

[darmag221]

JESZCZE RAZ WIELKIE DZIEKI
Jutro sprawdzę na maszynie i napiszę jak mi poszło.

PS
Mam wrażenie że jesteś "nauczycielem", ponieważ piszesz bardzo zrozumiale (o taką pomoc mi chodziło) za co jeszcze raz DZIĘKI.

[gelo]

Nie jestem nauczycielem . Komentarze zawsze sie przydaja, bo za 2 dni nikt nie bedzie widzial co do czego. Nawet ja sam ;p

Sam jestem ciekaw czy to pojdzie , ale jakby co to na pewno "dopiescimy" to tak, zeby ruszylo..

Powodzenia

P.S. Jeszcze raz przeedytowalem te wypociny wiec zwroc uwage na wszystkie sredniki, kropki i dwukropki

[ao]

Witam.
Dla narzędzia T3 jeszcze wprowadzić inną głębokość np. Z-3 przy fazowaniu.

[darmag221]

Dzieki za wszystkie sugestie lecz:

Sterownik jaki posiadam to Sinumerik 810D MMC 100.(bez nakładek)

w lini

C_POS=20

Wyskakuje błąd, (nie pamiętam dokładnie ale chyba wartość źle zdefiniowana lub brak opcji)

Pewnie "klapa" na brak opcji nic nie poradzę chyba że jest inny sposób?
(pisanie w głównym programie ustawienia wrzeciona i wywoływanie podprogramu co 20stopni-TAKI ZASTOSUJĘ)

DZIEKI
PS
Chyba że z tym coś da się zrobić?

[ao]

Witam.
Nie rezygnuj tak szybko. W głównym programie można ustawiś SPOS=0, a na końcu podprogramu przyrostowo zadać obrót wrzeciona:
G18
G54
G94
T1 D1
SPOS=0
S2=2000 M2=3
G0 X200 Z3
WIERCENIE_Z P17 ; P17 ilość powtórzeń podprogramu

Podprogram o nazwie WIERCENIE_Z
G90 G1 Z-20 F100
G0 Z3
G91 C20
M17