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

[yurigagari]

emegine saglık kardes

[yalovalı_77]

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.

[yurigagari]

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

[Aptullah]

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

[bahadır_86]

Parça resmini atarsan belki
makroya gerek kalmadan halledebiliriz.