eşit aralıklarla dairesel delik büyütme
arkadaşlar bu macro ile dairesel şekildeki deliklere büyütme işlemi yapılıyor
DİYELİM Kİ 300 ÇAPINDA EŞİT ARALIKLARLA 6ADET DELİK VAR VE BUNU ÇAKIYLA VEYA KAFAYLA DAİRESEL OLARAK ALMAMIZ LAZIM
BU PROGRAMLA SADECE ÖLÇÜLERİNİ GİREREK RAHAT Bİ ŞEKİLDE İŞLEYEBİLİRİZ
DELİK ARALARINDAKİ AÇIYI(B) DELİĞİN BAŞLANGIÇ AÇISINI(A) İŞLEYECEYİĞİMİZ DELİĞİN ÇAPINI AYARLAYABİLİRİZ(J)
VE DERİNLİĞİNİ(Z) GÜVENLİ YANAŞMASINI(R) TALAŞI KAÇ KAÇ ALACAĞINI(W) İŞLEME NEREDEN BAŞLAYACAĞINI(V) VE ÇIKIŞ NOKTASINI(C) YAZIYORUZ DELİĞİN KAÇ ADET OLDUĞUNUN ÖNEMİ YOK BİZİM YAZACAKLARIMIZ İKİDE OLSA 10DA OLSA AYNI
ilk alt pogramı herhangi bi program numarasına yazıyoruz
ikinci alt programı farklı bi program numarasına yazıyoruz
alttaki gibi
O9020(ALT PROGRAM 1)
#500=#18(R)
#501=#23(W)
#502=#26(Z)
#503=#22(V)
#504=[[#5+#21]/2] (J)
#505=#24(X)
#506=#9(F)
#507=#25(Y)
#508=#7(D)
#509=#3(C)
Z#500
G91Y-#504
G90
#10=#503
N10G#508J#504Z#10F#506
#10=#10-#501
IF[#10GE#502]GOTO10
J#504Z#502
J#504
G91G1Y#504
G90G0Z#509
M99
O9021(ALT PROGRAM 2)
#3=#4003
IF[#3EQ90]GOTO1
#24=#5001+#24
#25=#5002+#25
N1WHILE[#11GT0]DO1
#5=#24+#4*COS[#1]
#6=#25+#4*SIN[#1]
G90X#5Y#6
#1=#1+#2
#11=#11-1
END1
G#3G0
M99
ALT PRORAM 1 AÇIKLAMA
(R) işleme başlamadan önce yaklaşmA MESAFESİ
(Z)TOPLAM DERİNLİK
(W) TALAŞI KAÇ KAÇ ALACAĞI
(D) İŞLEME YÖNÜÜ D2 G2 İLE D3 G3 İLE İŞLEME
(F) İLERLEME HIZI
(J) DELİK TAM ÇAPI
(U) TAKIM TAP ÇAPI
(V) İLK TURDA GİDECEĞİ DERİNLİK
(C) İŞLEM BİTTİKTEN SONRAKİ GERİ ÇEKİLME NOKTASI
G66 P5050 R1 Z-25 V-0.8 D2 F1500 C10 J50 U12 W1 (ALT PROGRAM 1)
G65P9051 X200 Y300I200A45 B120 H3 (ALT PROGRAM 2)
G67
ALT PROGRAM2 AÇIKLAMA
(I) DELİK MERKEZLERİ YARI ÇAPI
(A) İLK DELİĞİN BAŞLANGIÇ AÇISI
(B) DELİK ARALARINDAKİ AÇI
(H) DELİK ADEDİ
ARKADAŞLAR ALT PROGRAM 1TAMAMEN BENİM YAPTIĞIM BİR MACRO DENEME YANILMA SAYESİNDE BU HALE GETİRDİM
ALT PRGRAM İKİ FANUC KİTABINDA YAZIYORDU BİRAZ DEĞİŞTİRDİM İNŞAALLAH İŞİNİZİ GÖRÜR
abi süpersin ya ne zamandır böyle program arıyodum çok ama çok teşekkür ederim
kardeş banada öğret şu makroyu bende istiyorum
güzel paylaşım kardeşim tek alt programda yapsak nasıl olur bende deneyim biraz tek alt programda yapmak için paylaşım tşk.
Alıntı yapılan: baynet - Eylül 17, 2008, 09:10:48 ÖS
kardeş banada öğret şu makroyu bende istiyorum
tamam en kısa sürede bildiklerimi yazayım buraya
Alıntı yapılan: asigen - Eylül 16, 2008, 11:44:08 ÖS
eşit aralıklarla dairesel delik büyütme
arkadaşlar bu macro ile dairesel şekildeki deliklere büyütme işlemi yapılıyor
DİYELİM Kİ 300 ÇAPINDA EŞİT ARALIKLARLA 6ADET DELİK VAR VE BUNU ÇAKIYLA VEYA KAFAYLA DAİRESEL OLARAK ALMAMIZ LAZIM
BU PROGRAMLA SADECE ÖLÇÜLERİNİ GİREREK RAHAT Bİ ŞEKİLDE İŞLEYEBİLİRİZ
DELİK ARALARINDAKİ AÇIYI(B) DELİĞİN BAŞLANGIÇ AÇISINI(A) İŞLEYECEYİĞİMİZ DELİĞİN ÇAPINI AYARLAYABİLİRİZ(J)
VE DERİNLİĞİNİ(Z) GÜVENLİ YANAŞMASINI(R) TALAŞI KAÇ KAÇ ALACAĞINI(W) İŞLEME NEREDEN BAŞLAYACAĞINI(V) VE ÇIKIŞ NOKTASINI(C) YAZIYORUZ DELİĞİN KAÇ ADET OLDUĞUNUN ÖNEMİ YOK BİZİM YAZACAKLARIMIZ İKİ OLSA 10DA OLSA AYNI
ilk alt pogramı herhangi bi program numarasına yazıyoruz
ikinci alt programı farklı bi program numarasına yazıyoruz
alttaki gibi
O9020(ALT PROGRAM 1)
#500=#18(R)
#501=#23(W)
#502=#26(Z)
#503=#22(V)
#504=#5(J)
#505=#24(X)
#506=#9(F)
#507=#25(Y)
#508=#7(D)
#509=#3(C)
Z#500
G91Y-#504
G90
#10=#503
N10G#508J#504Z#10F#506
#10=#10-#501
IF[#10GE#502]GOTO10
J#504Z#502
J#504
G91G1Y#504
G90G0Z#509
M99
O9021(ALT PROGRAM 2)
#3=#4003
IF[#3EQ90]GOTO1
#24=#5001+#24
#25=#5002+#25
N12WHILE[#11GT0]DO1
#5=#24+#4*COS[#1]
#6=#25+#4*SIN[#1]
G90X#5Y#6
#1=#1+#2
#11=#11-1
END1
G#3G0
M99
ALT PRORAM 1 AÇIKLAMA
(R) işleme başlamadan önce yaklaşmA MESAFESİ
(Z)TOPLAM DERİNLİK
(W) TALAŞI KAÇ KAÇ ALACAĞI
(D) İŞLEME YÖNÜÜ D2 G2 İLE D3 G3 İLE İŞLEME
(F) İLERLEME HIZI
(J) YARIÇAP
(V) İLK TURDA GİDECEĞİ DERİNLİK
(C) İŞLEM BİTTİKTEN SONRAKİ GERİ ÇEKİLME NOKTASI
G66 P5050 R1 Z-25 V-0.8 D2 F1500 C10 J50 W1 (ALT PROGRAM 1)
G65P9051 X200 Y300I200A45 B120 H3 (ALT PROGRAM 2)
G67
ALT PROGRAM2 AÇIKLAMA
(I) DELİK MERKEZLERİ YARI ÇAPI
(A) İLK DELİĞİN BAŞLANGIÇ AÇISI
(B) DELİK ARALARINDAKİ AÇI
(H) DELİK ARALARINDAKİ AÇI
ARKADAŞLAR ALT PROGRAM 1TAMAMEN BENİM YAPTIĞIM BİR MACRO DENEME YANILMA SAYESİNDE BU HALE GETİRDİM
ALT PRGRAM İKİ FANUC KİTABINDA YAZIYORDU BİRAZ DEĞİŞTİRDİM İNŞAALLAH İŞİNİZİ GÖRÜR
abi ben bu macro programı denedim alarm veriyor
format error in macro diyo
ilk program çalışıyo g65 e geçerken alarm veriyor
kardeşim kusura bakma N12 YAZAN SATIRI N1 OLARAK DEĞİŞTİR O YÜZDEN YAPIYOR BÜYÜK İHTİMALLE ÇÜNKİ DENEDİMDE YAZDIM Bİ ORASINI YANLIŞ YAZMIŞIM KUSURA BAKMA ÖZÜR DİLERİM
Alıntı yapılan: asigen - Eylül 18, 2008, 10:49:15 ÖS
kardeşim kusura bakma N12 YAZAN SATIRI N1 OLARAK DEĞİŞTİR O YÜZDEN YAPIYOR BÜYÜK İHTİMALLE ÇÜNKİ DENEDİMDE YAZDIM Bİ ORASINI YANLIŞ YAZMIŞIM KUSURA BAKMA ÖZÜR DİLERİM
abi sen kusura bakma ben dün programı yanlış yazmışım do1 yazacağıma d01 sıfır yazmışım akşam saati diye aceleden yazdım çalıştırmıştım olmamıştı bu gün dikkatli şekilde kontrol ettim n12 yide değiştirmeden çalıştı
TEŞEKKÜR EDERİM...
Alıntı yapılan: ercan_3589 - Eylül 19, 2008, 08:29:32 ÖS
Alıntı yapılan: asigen - Eylül 18, 2008, 10:49:15 ÖS
kardeşim kusura bakma N12 YAZAN SATIRI N1 OLARAK DEĞİŞTİR O YÜZDEN YAPIYOR BÜYÜK İHTİMALLE ÇÜNKİ DENEDİMDE YAZDIM Bİ ORASINI YANLIŞ YAZMIŞIM KUSURA BAKMA ÖZÜR DİLERİM
abi sen kusura bakma ben dün programı yanlış yazmışım do1 yazacağıma d01 sıfır yazmışım akşam saati diye aceleden yazdım çalıştırmıştım olmamıştı bu gün dikkatli şekilde kontrol ettim n12 yide değiştirmeden çalıştı
TEŞEKKÜR EDERİM...
sorunsuz çalıştığına sevindim
Asigen çok teşekkürler.
Ben makro ile uğraşmaya yeni başladım....
Böyle güzel örnekleri görünce süper oluyo....
Emeğin için çok sağol...
aşkın karedesim ben bu esıt aralıklı makrayu desgısık eksenler olsada coklu delık delımlerınde makro ıle tazgaha komut verıyorum en kısa zamanda sana ve sıtedekı arkadaşlara ıletıcem ama bu programda harıka
ASİGEN ABİ BU PROGRAMINI DENEDİM SÜPER ÇALIŞIYOR
ELİNE EMEĞİNE SAĞLIK..
dendiğin için sağol
TEŞEKKÜRLER KARDEŞ ELİNE VE KAFANA SAGLIK
kardeşim süper olmuş çok faydasını gördüm çok teşekkürler
emegine saglık kardes
selam arkadaşlar öncelikle herkeze pek vakit ayıramadığımdan tam takipte bulunamıyorum bu yazılanlar güzel ama bunun bana göre çok daha basit yolları var bana karışık geldi bunlar belkide macro nun tam manasını bilmediğimden olsa gerek G16 komutuyla yapılan bölüntülü delik komutuyla birtane artımsal değerlerle yapılmış alt prg la bütün sorun çözüle biliyor bilmiyorum bilinen veya konusu geçen birşeymi ama buna göre çok daha basit bence ilgilenenler varsa yardımcı olayım.
Alıntı yapılan: asigen - Eylül 16, 2008, 11:44:08 ÖS
eşit aralıklarla dairesel delik büyütme
arkadaşlar bu macro ile dairesel şekildeki deliklere büyütme işlemi yapılıyor
DİYELİM Kİ 300 ÇAPINDA EŞİT ARALIKLARLA 6ADET DELİK VAR VE BUNU ÇAKIYLA VEYA KAFAYLA DAİRESEL OLARAK ALMAMIZ LAZIM
BU PROGRAMLA SADECE ÖLÇÜLERİNİ GİREREK RAHAT Bİ ŞEKİLDE İŞLEYEBİLİRİZ
DELİK ARALARINDAKİ AÇIYI(B) DELİĞİN BAŞLANGIÇ AÇISINI(A) İŞLEYECEYİĞİMİZ DELİĞİN ÇAPINI AYARLAYABİLİRİZ(J)
VE DERİNLİĞİNİ(Z) GÜVENLİ YANAŞMASINI(R) TALAŞI KAÇ KAÇ ALACAĞINI(W) İŞLEME NEREDEN BAŞLAYACAĞINI(V) VE ÇIKIŞ NOKTASINI(C) YAZIYORUZ DELİĞİN KAÇ ADET OLDUĞUNUN ÖNEMİ YOK BİZİM YAZACAKLARIMIZ İKİDE OLSA 10DA OLSA AYNI
ilk alt pogramı herhangi bi program numarasına yazıyoruz
ikinci alt programı farklı bi program numarasına yazıyoruz
alttaki gibi
O9020(ALT PROGRAM 1)
#500=#18(R)
#501=#23(W)
#502=#26(Z)
#503=#22(V)
#504=[[#5+#21]/2] (J)
#505=#24(X)
#506=#9(F)
#507=#25(Y)
#508=#7(D)
#509=#3(C)
Z#500
G91Y-#504
G90
#10=#503
N10G#508J#504Z#10F#506
#10=#10-#501
IF[#10GE#502]GOTO10
J#504Z#502
J#504
G91G1Y#504
G90G0Z#509
M99
O9021(ALT PROGRAM 2)
#3=#4003
IF[#3EQ90]GOTO1
#24=#5001+#24
#25=#5002+#25
N1WHILE[#11GT0]DO1
#5=#24+#4*COS[#1]
#6=#25+#4*SIN[#1]
G90X#5Y#6
#1=#1+#2
#11=#11-1
END1
G#3G0
M99
ALT PRORAM 1 AÇIKLAMA
(R) işleme başlamadan önce yaklaşmA MESAFESİ
(Z)TOPLAM DERİNLİK
(W) TALAŞI KAÇ KAÇ ALACAĞI
(D) İŞLEME YÖNÜÜ D2 G2 İLE D3 G3 İLE İŞLEME
(F) İLERLEME HIZI
(J) DELİK TAM ÇAPI
(U) TAKIM TAP ÇAPI
(V) İLK TURDA GİDECEĞİ DERİNLİK
(C) İŞLEM BİTTİKTEN SONRAKİ GERİ ÇEKİLME NOKTASI
G66 P5050 R1 Z-25 V-0.8 D2 F1500 C10 J50 U12 W1 (ALT PROGRAM 1)
G65P9051 X200 Y300I200A45 B120 H3 (ALT PROGRAM 2)
G67
ALT PROGRAM2 AÇIKLAMA
(I) DELİK MERKEZLERİ YARI ÇAPI
(A) İLK DELİĞİN BAŞLANGIÇ AÇISI
(B) DELİK ARALARINDAKİ AÇI
(H) DELİK ADEDİ
ARKADAŞLAR ALT PROGRAM 1TAMAMEN BENİM YAPTIĞIM BİR MACRO DENEME YANILMA SAYESİNDE BU HALE GETİRDİM
ALT PRGRAM İKİ FANUC KİTABINDA YAZIYORDU BİRAZ DEĞİŞTİRDİM İNŞAALLAH İŞİNİZİ GÖRÜR
ARKADŞIM PROGRAM CALISIYOR DENEDİM AMA BİR SORUNLA KARSILASTIM TAKIM CAPINI U12 YAZDIGIMIZDA DELİĞİNTAMCAPINI J50 YAZDIGIMIZDA DELİĞİ 12 MM BÜYÜTÜYOR BENDE TAKIMCAPINI U-12 OLARAK YAZDIM SORUN HALLEDİLDİ AMA SEN DÜZELTME YAPABİLİRSE MACRODA DAHA İYİ OLUR GERCEKTEN GUZEL BIR PROGRAM
Makro programla alında geniş kanal açılırmı 10 mm genişlikte 8 mm derinlikte vbmt katerle derinliğe dalarken x ekseninden kaçarak kısa program olurmu tezgah ot serisi
Parça resmini atarsan belki
makroya gerek kalmadan halledebiliriz.