ALT PROGRAM

[maspe]

selamün aleyküm arkadaşlar bir konuda yardımlarınızı isteyecektim özellikle bora dostum senden en son zımba işleminde konu yarım kaldı tabiki hata benim özürlerimi iletirim ama işlerin yogunlugundan zımbaya geri dönemedim ama en kısa zamanda seni zımba işleminde rahatsız edecegim şimdiki sorum biraz farklı aşagıdaki programda kırmızı ile işaretlenmiş yerde tezgah duracak tambur(palet)dönecek
ve program m45x1 kılavuz işleminden devam edecek tezgahtan biraz bilgi vereyim 2 yatay ünüteli 5 eksenli bir tambur(palet) üzerinde 4 adet cenesi olan özel yapım bir cnc tezgahı siemens 840d tezgah iatalyan yapımı birde aşagıdaki satırın bana bir açıklamasını yapabilirmisin şimdiden teşekkür ederim çalışmalarınızda başarılar

m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
m30


%_N_TEKGOVDE707770_2_MPF
;$PATH=/_N_WKS_DIR/_N_TEKGOVDE707770_WPD

star:
t="cap9matkap"
m6
t="kartusyard"
m60
stopre
sif1
msg("acili cap9 delme islemi")
g0 b=dc(260)
g0 g54 g95 g17 x0 y0 z5
g0 z-63 m3 s2150 m8 f0.1
g1 z-80
g0 z50 m9
g0 b=dc(290)
t="kartusyard"
m6
t="kartuscaki"
sif1
msg("kartus yard caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-40 m3 s965 m8 f0.12
g1 z-47 m3 s800 m8 f0.03
g0 z10 m9
t="kartuscaki"
m6
t="m45x1kilavuz"
sif1
msg("kartus caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-47.3 m3 s895 m8 f0.12
g0 z10 m9
m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
----------------------------------tambur döndükten sonra program m45x1 kılavuz işleminden devam edecek program bu halde iken tambur dönmeden m45x1 den devam ediyor
t="m45x1kilavuz"
m6
t="cap8delik"
sif1
msg("45 kilavuz islemi")
g0 g56 g95 g17 x0 y0 z10
g331 k1 z-15 s358 m8
g332 k1 z5
g1 m3 s100 f150 z15 m9
t="cap8delik"
m6
t="cap9matkap"
sif1
msg("cap8 delik islemi")
g0 g56 g95 g17 x-5 y7 z5
g0 z-43
g1 z-69 m3 s2459 m8 f0.1
g0 z-43
g0 y-7
g1 z-69 m3 s2459 m8 f0.1
g0 z70 m9
g0 b=dc(0)
m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
m30

[( bora )]

selamün aleyküm arkadaşlar bir konuda yardımlarınızı isteyecektim özellikle bora dostum senden en son zımba işleminde konu yarım kaldı tabiki hata benim özürlerimi iletirim ama işlerin yogunlugundan zımbaya geri dönemedim ama en kısa zamanda seni zımba işleminde rahatsız edecegim şimdiki sorum biraz farklı aşagıdaki programda kırmızı ile işaretlenmiş yerde tezgah duracak tambur(palet)dönecek
ve program m45x1 kılavuz işleminden devam edecek tezgahtan biraz bilgi vereyim 2 yatay ünüteli 5 eksenli bir tambur(palet) üzerinde 4 adet cenesi olan özel yapım bir cnc tezgahı siemens 840d tezgah iatalyan yapımı birde aşagıdaki satırın bana bir açıklamasını yapabilirmisin şimdiden teşekkür ederim çalışmalarınızda başarılar

m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
m30


%_N_TEKGOVDE707770_2_MPF
;$PATH=/_N_WKS_DIR/_N_TEKGOVDE707770_WPD

star:
t="cap9matkap"
m6
t="kartusyard"
m60
stopre
sif1
msg("acili cap9 delme islemi")
g0 b=dc(260)
g0 g54 g95 g17 x0 y0 z5
g0 z-63 m3 s2150 m8 f0.1
g1 z-80
g0 z50 m9
g0 b=dc(290)
t="kartusyard"
m6
t="kartuscaki"
sif1
msg("kartus yard caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-40 m3 s965 m8 f0.12
g1 z-47 m3 s800 m8 f0.03
g0 z10 m9
t="kartuscaki"
m6
t="m45x1kilavuz"
sif1
msg("kartus caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-47.3 m3 s895 m8 f0.12
g0 z10 m9
m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
----------------------------------tambur döndükten sonra program m45x1 kılavuz işleminden devam edecek program bu halde iken tambur dönmeden m45x1 den devam ediyor
t="m45x1kilavuz"
m6
t="cap8delik"
sif1
msg("45 kilavuz islemi")
g0 g56 g95 g17 x0 y0 z10
g331 k1 z-15 s358 m8
g332 k1 z5
g1 m3 s100 f150 z15 m9
t="cap8delik"
m6
t="cap9matkap"
sif1
msg("cap8 delik islemi")
g0 g56 g95 g17 x-5 y7 z5
g0 z-43
g1 z-69 m3 s2459 m8 f0.1
g0 z-43
g0 y-7
g1 z-69 m3 s2459 m8 f0.1
g0 z70 m9
g0 b=dc(0)
m6
m22
m61
gotof fine
fine: stopre
if $a_in[1]gotof fin
gotob star
fin:m05 m09
m30

Vay kardeşim nerelerdesin.
Yeter ki işlerin açık olsun istersen hiç cevap yazma :D :D

Programında,işleme alanındaki paleti görüp işlesin istemişsin.Ama hatalı yazılmış.
Doğrusu şöyle olmalı.


%_N_TEKGOVDE707770_2_MPF
;$PATH=/_N_WKS_DIR/_N_TEKGOVDE707770_WPD

Maspe kardeşim geçen ilk yazdığım düzeltmede ,if$a_in[1]gotof star diye belirtmiştim.Ama ne yazık ki eksik yazmışım kusura bakma.Dorusunu şimdi aşağıda belirttim.if $a_in[1]==1 gotof star olacak.
Burada yaptığımız şu;içeri giren paleti gördüğünde "1" sinyali gönderen sivici check etmiş oluyoruz.Bu sivicin numarası her tezgahta farklı.
Mesela benim kullandığım Chiron tezgahta 1.palet 25 , 2.palet 26 numaralı siviclerdi.

if $a_in[1]==1 gotof star             (birinci palet içerideyse star: a atla)
if $a_in[2]==1 gotof star2           (ikinci palet içerideyse star2: ye atla)

star:
t="cap9matkap"
m6
t="kartusyard"
sif1
msg("acili cap9 delme islemi")
g0 b=dc(260)
g0 g54 g95 g17 x0 y0 z5
g0 z-63 m3 s2150 m8 f0.1
g1 z-80
g0 z50 m9
g0 b=dc(290)
t="kartusyard"
m6
t="kartuscaki"
sif1
msg("kartus yard caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-40 m3 s965 m8 f0.12
g1 z-47 m3 s800 m8 f0.03
g0 z10 m9
t="kartuscaki"
m6
t="m45x1kilavuz"
sif1
msg("kartus caki islemi")
g0 g55 g95 g17 x0 y0 z5
g1 z-47.3 m3 s895 m8 f0.12
g0 z10 m9
m22
m5 m9
[color=red]M62 İkinci paleti içeri alır.[/color]       (sen programında bu palet değişim kodunu unutmuşsun)

star2:
t="m45x1kilavuz"
m6
t="cap8delik"
sif1
msg("45 kilavuz islemi")
g0 g56 g95 g17 x0 y0 z10
g331 k1 z-15 s358 m8
g332 k1 z5
g1 m3 s100 f150 z15 m9
t="cap8delik"
m6
t="cap9matkap"
sif1
msg("cap8 delik islemi")
g0 g56 g95 g17 x-5 y7 z5
g0 z-43
g1 z-69 m3 s2459 m8 f0.1
g0 z-43
g0 y-7
g1 z-69 m3 s2459 m8 f0.1
g0 z70 m9
g0 b=dc(0)
m22
fin:m05 m09
M61
m30

[maspe]

eyvallah kardeşim bora teşekkür ederim yardımların için problemi çözdük sagol şimdi bir tek zımba işlemi kaldı onada işallah el atarız bir ara benden sana bol bol [move]TEŞEKKÜRLER[/move]

[aytekin keskin]

arkadaşlar selam siemens 840d için R PARAMETRESİYLE NASIL TAKIM ÖMRÜ YAPABİLİRİZ