macro ile slot açma

[asigen]

ASİGEN
arkadaşlar verdiğim bu macro ile istediğimiz boyutta ve genişlikte slot açabiliriz
ve istediğimiz kadar slotu tekrar tekrar yazmadan yapabiliriz altaki örmekteki gibi

G90 G54 X0 Y0 S1500 M3
G43 Z5 H1 M8
G66 P5025 Z-10 R1 V0 J40 K100 D10 W-1 C10 F1500
X20 Y20
X200 Y20
X300 Y20
G67
G0Z200
M30
BU VERMİŞ OLDUĞUM ÖRNEKTE 3 ADET 100 UZUNLUĞUNDA 40 GENİŞLİĞİNDE SLOT AÇTIK
AÇIKLAMASI
G66 MACRO ALT PROGRAM ÇAĞIRMA
P ALT PROGRAM NUMARASI
V SLOTUN İLK TURDAKİ DERİNİĞİ
Z SLOTUN DERİNLİĞİ
R GÜVENLİ YAKLAŞMA
J SLOTUN GENİŞLİĞİ
K SLOYUN BOYU
D ÇAKININ ÇAPI
W DERİNLİĞE KAÇ KAÇ İNECEĞİ
C SLOT BİTTİKTEN SONRAKİ ÇIKIŞ NOKTASI
F İLERLEME


ALT PROGRAMIDA HERHANGİ Bİ PROGRAMA YAZABİLİRSİNİZ
ALT PROGRAM
O5025

#100 =#5-#7 (SLOT CAPINDAN TAKIÖM CAPINI CIKARTIYOR CIKAN SONUCU #100 BAĞLIYOR)
#101 =#100/2(SLOTUN YARISINI HESAPLAR ÇIKAN SONUCU #101 YE BAĞLAR)
#102 =#18-#18+#22-#23(toplam derinlik için başlangıcı hesaplar)
Z#18 (R GÜVENLİ YAKLAŞMA #18 R ANLAMINA GELİYOR)
G91 G1 Y#101 F#9(SLOTUN YARINI Y OLARAK KAÇAR)
G90 Z#102
#10 =#22
N10 G91 G1 X#6 Z#23 F#9 (SLOTUN X OLARAK HAREKETİNİ YAPAR)
G91 G2 Y-#100 R#101( SLOTUN Y HAREKETİNİ YAPAR)
G91 G1 X-#6(SLOYUN X HAREKETİNİ GERİYE DOĞRU YAPAR)
G91 G2 Y#100 R#101( SLOTUN Y HAREKETİNİ GERİYE DOĞRU YAPAR)
#10 =#10+#23( TUR SAYISINI DÜSER
IF[#10 GE#26]GOTO19 (TURUN KAÇTA TAMAMLAYACAĞINI BELİRTİR)
G91 G1 X#6 F#9(SLOTTA KALAN FATURYI ALIR)
G91 Y-#101(ÇAKI FAZLA SÜRTMESİN DİYE SLOTUN ORTASINA GELİR)
G90 G0 Z#3(GERİ ÇEKİLME NOKTASI)
M99

ARKADAŞLAR 15 EKİM DE PROGRAMDA DÜZENLEMELER YAPTIM BAZI SORUNLAR OLDUĞUNU SÖYLEDİLER DÜZELTİLDİ SLOT DERİNLİĞİNİN KAÇTAN BAŞLAYACAĞINI YAZMAMIŞIM HEPSİ DÜZELTİLDİ

[ercan_3589]

Aşkın abi süpersin

TEŞEKKÜRLER  EMEĞİNE SAĞLIK

[asigen]

ercan sende dene bi bakalım sorun olcaakmı  ben denedim çalışıyor

[ercan_3589]

akşama denerim sağol

[ercan_3589]

IF[#10 GT#26]GOTO19
goto10 olması gerekmiyormu?

[asigen]

IF[#10 GT#26]GOTO19
goto10 olması gerekmiyormu?

evet kardeşim yanlış yazmışım kusura bakma

[fatih_88]

Asigen abi emeğine sağlık

[scorpionteam]

tebrikler asigen çok güzel olmuş.......

[asigen]

sağol pako swenin yorum yazman beni ayrı bi sevindiriyor

[taşkaya]

PARMAKLARINA EMEĞİNE SAĞLIK KARDES

[asigen]

forum sorumlularından alınan teşekkür ayrı bir mutlu ediyor beni sizde sağolun sizler sayesinde bildiiğim sandığım cnc nin daha bana baya yabancı olduğunu gördüm artık forum sayesinde cnc nin özellikleriyle tanışmaya başladım sağolun

[Rastlanti]

katılımların için teşekürler kardeşim.  Rastlanti

[asigen]

sağolasın rastlantı kardeşim

[vadaro12]

aşkın kardesım gercekten harıka olmus elıne saglık volkan

[sinan]

IF[#10 GT#26]GOTO19
goto10 olması gerekmiyormu?

indirdiğimde hata vermişti şimdi bu mesajı görünce yeniden deniycem düzeltmene ve paylaşıı yapan arkadaşa teşekkür ederim