macro proğramı satır satır açıklayacak arkadaşlar var mı?

[AHMETahmet]

%
O0001(PALET DEGISTIRME PROGRAMI)
G91G30Z0
G91G30X0Y0
G91G28B0
M60
M462
G4
G4
IF[#100EQ1.]GOTO10
IF[#100EQ2.]GOTO20
IF[#100EQ0]GOTO30
N10
M98P1111(1.PALET PROG.NOSU)
GOTO99
N20
M98P6500(2.PALET PROG.NOSU)
GOTO99
N30
N99
M99
%






%
O6500(#650 MAIN PROGRAM)
M30

G91G30Z0.
G91G30X0.Y0.

M98P6590(WORK ZEROES)

M01

N10(#650 D20 PCD ENDMILL B0)
M479
#3001=0
G65P8500A160.B0.T1.

IF[#501NE0.]GOTO11
G65P6501C11.H1.

N11IF[#502NE0.]GOTO12
G65P6501C12.H1.

N12IF[#503NE0.]GOTO13
G65P6501C13.H1.

N13M478
#531=[#3001/1000]

M01

N10(#650 M6 KLAVUZ B180)
M479
#3001=0
G65P8500A295.B180.T2.

IF[#501NE0.]GOTO11
G65P6502C14.S4000.H2.

N11IF[#502NE0.]GOTO12
G65P6502C15.S4000.H2.

N12IF[#503NE0.]GOTO13
G65P6502C16.S4000.H2.

N13M478
#532=[#3001/1000]

N13M01

N10(#650 D16 KARBUR MATKAP B180)
M479
#3001=0
G65P8500A177.B0.T7.

IF[#501NE0.]GOTO11
G65P6503C11.H7.

N11IF[#502NE0.]GOTO12
G65P6503C12.H7.

N12IF[#503NE0.]GOTO13
G65P6503C13.H7.

N13
G91G30Z0.M319
G91G30X0.Y0.
M661
G91G28B0.
M662
M478
#537=[#3001/1000]
#530=[#531+#532+#537]
M30
%





%
O6501(#650 PCD END MILL)
#10047=10.075(YARICAP TELAFISI)
M462
G04
IF[#100NE2.]GOTO97(PALLET KONTROLU)
IF[#5024NE0.]GOTO98(B EKSEN KONTROLU)
M464
G04
IF[#1032NE1]GOTO99(TAKIM KONTROLU)
M8M26
G90G17G00G54.1P#3G43X-15.Y67.Z75.H#11S12000M303
T2
G00Z0.M302
G41G01X-5.Y47.D47F4800
G01X0.F2000
G02J-47.F4800
G01X5.
G40G01X15.Y67.
G00G49Z[#[10000+#11]+140.]
M919
M99
N97#3000=1(PALLET HATASI)
N98#3000=1(B EKSEN HATASI)
N99#3000=1(TAKIM HATASI)
%




%
O6502(#650 M6*1 KLAVUZ)
M462
G04
IF[#100NE2.]GOTO97(PALLET KONTROLU)
IF[#5024NE180.]GOTO98(B EKSEN KONTROLU)
M464
G04
IF[#1032NE2.]GOTO99(TAKIM KONTROLU)
M8
G90G17G00G54.1P#3G43X-22.Y0.Z200.H#11S#19M5

G0Z150.
S#19M135
G98G84R2.Z-19.6F[#19*1.]
X22.Y0.
G80G00G49Z[#[10000+#11]+180.]
M919S2
M99
N97#3000=1(PALLET HATASI)
N98#3000=1(B EKSEN HATASI)
N99#3000=1(TAKIM HATASI)
%




%
O6503(#650 D16 MARKING)
M462
G04
IF[#100NE2.]GOTO97(PALLET KONTROLU)
IF[#5024NE0.]GOTO98(B EKSEN KONTROLU)
M464
G04
IF[#1032NE#11]GOTO99(TAKIM KONTROLU)
M8M26
T8

(ISTASYON MARK)

IF[#3EQ11.]GOTO91
IF[#3EQ12.]GOTO92
IF[#3EQ13.]GOTO93

GOTO95

N91(ST 1 MARKING)
G90G17G00G54.1P#3G43X-7.Y59.Z70.H#11S8000M303
G98G81R2.Z-0.7F1600M302
GOTO95

N92(ST 2 MARKING)
G90G17G00G54.1P#3G43X0.Y65.Z70.H#11S8000M303
G98G81R2.Z-0.8F1600M302
GOTO95

N93(ST 3 MARKING)
G90G17G00G54.1P#3G43X-1.Y59.Z70.H#11S8000M303
G98G81R2.Z-0.65F1600M302

N95G80G00G49Z[#[10000+#11]+130.]
M186S3
M919
M99
N97#3000=1(PALLET HATASI)
N98#3000=1(B EKSEN HATASI)
N99#3000=1(TAKIM HATASI)
%




%
O6590(#650 WORK ZEROS CAVITY-1)

(G53   X   B=0)#5201=0.
(   Y   B=0)#5202=0.
(   Z   B=0)#5203=0.
(   B   B=0)#5204=0.

(G54.1P11 X   B=0 )#7201=-150.28
(         Y   B=0 )#7202=-91.32
(         Z   B=0 )#7203=-657.0
(         B   B=0 )#7204=0.

(G54.1P12 X   B=0 )#7221=-0.1
(         Y   B=0 )#7222=-91.32
(         Z   B=0 )#7223=-657.0
(         B   B=0 )#7224=0.

(G54.1P13 X   B=0 )#7241=149.69
(         Y   B=0 )#7242=-91.30
(         Z   B=0 )#7243=-656.95
(         B   B=0 )#7244=0.


(G54.1P14 X   B=180 )#7261=150.710
(         Y   B=180 )#7262=#7202
(         Z   B=180 )#7263=-679.5
(         B   B=180 )#7464=0.

(G54.1P15 X   B=180 )#7281=0.61
(         Y   B=180 )#7282=#7222
(         Z   B=180 )#7283=-679.5
(         B   B=180 )#7284=0.

(G54.1P16 X   B=180 )#7301=-149.90
(         Y   B=180 )#7302=#7242
(         Z   B=180 )#7303=-679.5
(         B   B=180 )#7304=0.
M99
%



%
O8500(TAKIM DEGISTIRME)
T#20
G91G30Z0.M319
G91G30X0.Y0.
M661
B#2
M662
G04
G04
G65P8100A#1B1.
M99
%

[CK-53]

     Program açıklamaları Türkçe olduğuna göre, bu programı Türk bir arkadaş yazmıştır inşallah. Bu konuda değil program, eğitici bir kaynak bile bulmak zor. Bunu yazan arkadaş sitemize teşrif etse bize de bildiklerini öğretse (tabi ki Türk ise) ne güzel olurdu.
     Programa gelirsek; Benim anladığım. Çift paletli bir yatay işleme merkezinde, iki palette farklı fixtürler var. Fixtürler paletlere pimle yada kama ile kaçıklık olmadan bağlanabiliyor ki; ilk olarak iş parçası ofsetleri otomatik olarak yerlerine yazılıyor (O6590).
Bu ilk bağlandığında operatör tarafında manuel sıfırlanmış ve ofset değerleri O6590 nolu programa yazılmış. Fixtür sökülüp yeniden bağlandığında tekrar sıfırlama yapmamıza gerek yoktur. Bu değerleri elle de girebiliriz. Elle girmemek içinde, bu değerlerin yerine yazılma işlemini O6590 nolu program gerçekleştirmektedir.
     Programın en başında o an tezgahta hangi palet olduğu kontrol ediliyor ve o paletin programı çağırılıyor. Başta anlattığım gibi parça ofsetleri yerine yazılıyor. !BURADA BİR EKSİK VAR 1.PALETİN O1111 NOLU PROGRAMI YOK! bu sebeple 1. palette ne olduğunu anlayamadım. Parça sıfırlama işlemine göre; 2. palette 6 adet parça sıfırlanmış. Şimdilik bu kadar çözebildim. Daha sonra tekrar inceleyebilirim. Tabi tezgahın M kodlarını da bilmediğimiz için program içindeki bir çok M kodunun tezgahı nasıl hareket ettirdiğini bilemiyoruz.

[AHMETahmet]

yazdıkların hepsi doğru..

AMA BEN ŞU ŞEKİLDE İSTEMİŞTİM TABİ MÜMKÜNSE  ::)

N11IF[#502NE0.]GOTO12                (eğer #502 eşit değilse 0'a (GOTO12) N12. satıra git)     (yani  #502 nolu paraametreyi 0'dan farklı yazarsak
                                                                                                                                                                   N12'YEATLIYO
G65P6501C12.H1.                           ( G65 proğram çağırma yani P6501'i çağırıyo.. C12..? NE DEMEK.   H1...? NE DEMEK..



N12IF[#503NE0.]GOTO13        ((eğer #503 eşit değilse 0'a (GOTO13) N13. satıra git)     (yani  #503 nolu paraametreyi 0'dan farklı yazarsak
                                                                                                                                                                   N13'e atlıyo..)
G65P6501C13.H1.                     ( G65 proğram çağırma yani P6501'i çağırıyo.. C13..? NE DEMEK.   H1...? NE DEMEK..

[CK-53]

        Takıldığın yerler çok temel bilgi ile çözebileceğin yerler. Bu bilgide forumda mevcut. Benim bir milyon kere okuduğum, fanuc kitabından alıntı dokümanı okumanı tavsiye ederim. Takıldığın yerleri de burada sor cevaplamaya çalışırız.
       
        #502 nolu parametre demişsin mesela bunun parametre değil değişken olduğunu anlatmak bile sayfalar dolusu yazı demek. Fakat konu ile ilgili birazcık altyapın olsa çoğunu kendin çözebilirsin. Birde öyle bir bakışta anlaşılacak bir olay değil. Ben kendi yazdığım makrolar da bile kaybolup gidiyorum çoğu zaman. Son olarak;
         Bu program şu an kullanılıyor mu? Bunu kim yazdı? Tezgahın kontrol ünitesi nedir? Bunları merak ediyorum.


http://www.turkeycnc.com/sifirdan-baslayanlar-icin-makro-t5628.0.html
       

[AHMETahmet]

tezgah: makino a51 profesyonel (yatay işleme merkezi)
evet kullanaılıyo   hatta çift palet kullanılıyo ben tek proğramını kopyaladım buraya..
proğramı yazan kişide bizim işleme müdürümüz.. adam iş konusunda çok iyi ama aramız açık soru sormuyorum.

[Ersin KIZIL]

tezgah: makino a51 profesyonel (yatay işleme merkezi)
evet kullanaılıyo   hatta çift palet kullanılıyo ben tek proğramını kopyaladım buraya..
proğramı yazan kişide bizim işleme müdürümüz.. adam iş konusunda çok iyi ama aramız açık soru sormuyorum.

aranızın açık olması kötü o programı yazan adamdan çok şeyler öğrenilebilir

[yaman]

ahmetim böyle kafan karışır forum bak iyice macro hakkında baya paylaşım var....

[AHMETahmet]

serdar zaten forma bakabaka baya bişeler öğrendim anlamadığım..

G80G00G49Z[#[10000+#11]+180.] 
  hadi G80 G0 G49 ANLIYORUM DA SONRASINI ANLAMIYAORUM. NİYE PARENTEZ AÇMIŞ, NİYE 10000 YAZMIŞ 1000 YAZSA OLMUYO MU V.S İŞTE..

[cncmakro]

Merhabalar,

G65P6501C12.H1.   satırında C harfi 3 numaralı değişkeni (#3), H harfi ise 11 numaralı değişkeni (#11) tanımlıyor.

Dolayısıyla yukarıdaki ifadede 3 numaralı değişkenin değeri 12, 11numaralı değişkenin değeri ise 1 dir.

Daha detaylı bilgi için web sitemi (www.cncmakro.com) ziyaret edebilir, ya da benimle iletişime geçebilirsiniz.

[CK-53]

serdar zaten forma bakabaka baya bişeler öğrendim anlamadığım..

G80G00G49Z[#[10000+#11]+180.] 
  hadi G80 G0 G49 ANLIYORUM DA SONRASINI ANLAMIYAORUM. NİYE PARENTEZ AÇMIŞ, NİYE 10000 YAZMIŞ 1000 YAZSA OLMUYO MU V.S İŞTE..

Matematikte parantezlerin görevi nedir? En içteki parantezlerden başlanarak hesaplama yapılır.

5 x  2 + 3  = ? parantez olmadığında hangi işlemi önce yapacağımızı bilemeyiz ve sonuçlar farklı olur.

5 x ( 2 + 3 ) = 25  -  önce 2 + 3 toplanır, sonra 5 ile çarpılır, sonuç 25 olur.
( 5 x 2 ) + 3 = 13  -  önce 5 x 2 çarpılır, sonra 3 ile toplanır, sonuç 13 olur.

Bir örnek daha   ((10+3)x2)+6=32

Burada en içteki parantezdeki işlem ((10+3)x2)+6=32     -  10+3 sonuç 13'tür
Bir sonraki işlem ((10+3)x2)+6=32    - 13x2 sonuç 26'dır
ve en son işlemde bütün sonuçların 6 ile toplanmasıdır.

Buradaki parantez mantığı da budur. Fakat CNC de matematik işlemleri için köşeli parantez [] kullanılır.



Şimdi şu takıldığın satıra gelirsek:

G80G00G49Z[#[10000+#11]+180.] Bir delik çevrimi bitirilmiş, Hızlı ilerleme ile takım boy telafisi iptal edilerek Z ekseni hareket ettirilmiş. Ama nereye.

G80G00G49Z[#[10000+#11]+180.]  Buradaki bütün hesaplamaların sonucu Z değerini belirlemektedir.

#11 - H değişkenini okumak için kullanılır. Mesela takım H2

Z[#[10000+#11]+180.]  -  Z[#[10000+2]+180.] sonuç Z[#10002+180.]

Z[#10002+180.] Şimdi elimizdeki sonuçlara bakarak #10002 değişkeni ile 180 nin toplamı Z değerini verecek.

#10001 = Tezgahımızın boy ofsetlerini yazdığımız 1 nolu bölümdeki değerdir.  #10002 - 2 nolu bölüme yazılan değer, #10003 - 3 nolu,   #10099 - 99 nolu değeri okumak için kullanılır. örneğin H2 bölümündeki değer 151.000 olsun.

Z[151+180.] sonuç Z 331 olur.

ve tezgahımız bu hesapları yaparak Z331'e gider.


İnşallah anlaşılır olmuştur.