eşit aralıklarla dairesel delik büyütme

[asigen]

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

[ercan_3589]

abi süpersin ya ne zamandır böyle program arıyodum çok ama çok teşekkür ederim

[baynet]

kardeş banada öğret şu makroyu bende istiyorum

[Rastlanti]

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.

[asigen]

kardeş banada öğret şu makroyu bende istiyorum

tamam en kısa sürede bildiklerimi yazayım buraya

[ercan_3589]

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 

[asigen]

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

[ercan_3589]

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...

[asigen]

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

[Ressam]

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...

[vadaro12]

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

[fatih_88]

ASİGEN ABİ BU PROGRAMINI DENEDİM SÜPER ÇALIŞIYOR

ELİNE EMEĞİNE SAĞLIK..

[asigen]

dendiğin için sağol

[maykcnc]

TEŞEKKÜRLER KARDEŞ ELİNE VE KAFANA SAGLIK

[fertay1]

kardeşim süper olmuş çok faydasını gördüm çok teşekkürler