''Macro'' işlem merkezi ve yatay işlem ile ilgili her şey...

astarabistaa · Temmuz 29, 2008, 04:17:24 ÖS

asigen borverkte böle bi programla diş çektinmi hiç

astarabistaa · Temmuz 29, 2008, 04:20:14 ÖS

%
:9980(OZEL DIS ACMA)
(G65P9980 X-Y-Z-I-R-D-T-U-A-H-F-K-B)
(X = PARCA MERKEZINE UZAKLIK)
(Y = PARCA MERKEZINE UZAKLIK)
(Z = GİRİLECEK DERİNLİK)
(I = DIS USTU CAPIN YARISI)
(R = EMNIYETLI YAKLASMA MESAFESI)
(D = TAKIM YARI CAPI)
(T = DIS ADIMI mm )
(U = IKI DELIK ARA MESAFE)
(A = SIRALI DIS ACMA DOGRUSAL ACISI)
(H = DELIK SAYISI)
(F = KESME ILERLEMESI)
(K = DELIKTEKRAR SAYISI)
(B = ADIM ATLATMA SAYISI)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60#1=-#1
IF[#11EQ0]GOTO62
IF[#11GT1]GOTO64
N62#11=1
GOTO65
N64IF[#21EQ#0]GOTO993(U)

N65IF[#18LE#0]GOTO991(R)
IF[#20LE#0]GOTO992(T)
IF[#7LE#0]GOTO994(D)
IF[#4LE#0]GOTO995(I)
IF[#6LE#0]GOTO70
GOTO80
N70#6=1
N80#100=1
WHILE[#100LE#11]DO1
#10=#4-#7
#14=[0.64*#20]
#27=[#100-1]*#21
#28=0
#16=[#27*COS[#1]+#28*SIN[#1]+#24]
#30=[#28*COS[#1]-#27*SIN[#1]+#25]
G0G90Z#32
X#16Y#30
G52X#16Y#30
Z#18
G01Z#26F[#9*2]
#101=1
WHILE[#101LE#6]DO2
G0G90X[[#10-#14]-0.5]
G1X#10F[#9/4]
G91G03I-#10Z#20F#9
IF[#2GT1]GOTO85
GOTO90
N85G0G90X0.Y0.
G91Z[#20*#2]
N90G90G0X0.Y0.
#101=#101+1
END2
G90G00X0.
G52X0.Y0.
Z#32
#100=#100+1
END1
N400G00G90Z#32
G#31G#33F#9
GOTO999
N990#3000=81(HATALI BILGI GIRISI-H.)
N991#3000=82(HATALI BILGI GIRISI-R.)
N992#3000=83(HATALI ADIM GIRISI-T.)
N993#3000=84(HATALI DELIK MESAFESI-U.)
N994#3000=85(HATALI YARI CAP-D.)
N995#3000=86(HATALI YARI CAP-I.)
N999M99
%
bunun diş tarağı değişik bisey böyle örnek program varsa paylasalım

asigen · Temmuz 29, 2008, 10:11:37 ÖS

yok görmedim nasıl bi şey bu örnek yazarmısın

astarabista · Temmuz 30, 2008, 05:21:37 ÖÖ

O1000(DIS CEKME PROGRAMI )
G0G90G55
G0Z100X-607.5Y90S1800M03
G65P9980X-607.5Y90I24.05Z-35R5.D14.5H1U0T2.309A0B5K2F100
M30
anlamları yazıyo diş 1 1/2

Rastlanti · Ağustos 03, 2008, 08:29:34 ÖS

o dediğin macro için değil tüm paket programlar içinde geçerli sen G81 G83 G84 G85 G71 VS. nların yanınada kordinatları yazarsan oda o şekilde olur örnek G81 Z-10 F100 X32,25 Y26,44 R5 ;

asigen · Ağustos 09, 2008, 06:54:28 ÖS

Alıntı yapılan: Rastlanti - Ağustos 03, 2008, 08:29:34 ÖS
o dediğin macro için değil tüm paket programlar içinde geçerli sen G81 G83 G84 G85 G71 VS. nların yanınada kordinatları yazarsan oda o şekilde olur örnek G81 Z-10 F100 X32,25 Y26,44 R5 ;

kardeşim devamlı kullandığım macro banamı söylüyorsun X0 Y0 MERKEZSE YAZMANA GEREK YOK AMA KOORDİNAT DEĞİŞİK İSE YAZMAN LAZIM Bİ DENE GÖR

Rastlanti · Ağustos 09, 2008, 10:10:31 ÖS

sakin ol bebişim sen benim ustamsın unutma bunu sana saygım ve sevgim sonsuzdur kardeşim benim...sen nedersen o olsun ayıp ettin.

karadaglı61 · Ağustos 10, 2008, 10:48:21 ÖÖ

raslatı emegıne saglık tesekkurler ..

temur · Aralık 19, 2008, 08:01:29 ÖS

Alıntı yapılan: crisis - Haziran 17, 2008, 10:22:16 ÖS
arkadaşım verdiğin macroları denedim hepsi çalışıyor ellerine sağlık
Q2.5 i de unutmamak gerekiyor dediğin gibi.

bide bişey sorcam
biz normalde macro kullanmadığımız için eklemiş olduğum resimlerdeki satırlar boştu
bu programları denedikten sonra bu değerleri girdi
bu sayfanın amacını bana açıklayabilirmisin acaba?

Kardeş odeğerleri tezgah otomatik atar oralara macro programda tezgah gideceği noktaları kendi hesaplar ondan yani.

sinan · Aralık 30, 2008, 04:34:19 ÖS

paylaşmak güzel şey emeginize sağlık

kaya029 · Şubat 04, 2009, 05:59:17 ÖS

Alıntı yapılan: Rastlanti - Haziran 13, 2008, 08:41:12 ÖS
selamlar yine ben Rastlanti arkadaşlar sözümde duruyorum Fanuc hakkında bildiklerimin hepsini en kısa sürede bu siteye aktaracağım umarım sizlere yardımcı oluyorumdur...
Basit konulardan başlayım Macro olarak en fazla kullandığımız ve en çok gerekli olan bir kaç konuyu aktarayım ilk olarak

arkadaşlar G16 deyince aklınıza gelen eşit aralıklı delik delme bu komutu yavaş yavaş tarihe karıştıralım aşağıda vereceğim paket programları kullanarak bunları daha çabuk daha güvenli ve neredeyse hesap yapmadan eşit aralıkı delik:G81 eşit aralıklı gagalayarak delmeG83 veya G73 klavuz çekme:G84 hepsi aşağıda

ilk olarak tezgahımızı pozisyonluyoruz

G90G54G0X0Y0S1000M3;
G43Z3H1;
G65P9100Z-25.F100R3.I75.B120.A90.H3; (AÇIKLAMASI AŞARIDA)
G0Z200.
G91G28Y0Z0;
M30;

G65: macro program çağırma
P9100: macro program numarası
Z-25.: delik derinliği
F100: ilerleme
R3. : emliyetli nokta
I75.: delecek olduğumuz deliklerin toplam çapnın yarısını yazıyoruz
B120: iki delik arasındaki açı
A90: ilk delik başlama açısı
H3 : delik sayısı arkadaşlar H değerine nokda koymuyoruz buna dikkat edin
hepsi bu bu deerleri yazıyoruz olay bitiriyoruz tabiki ilk olarak macro alt programları tazgaha yazmamız gerek bunun içinde aşağıda programlar yazıyor P9100:G81
P9200:G84
P9300:G83
P9400:G73
P940 ve P9300 kullanırken G65'deki satıra Q ekliyoruz Örnek:Q2.5
P9200kullanırken G65 satırının bir üst satırına fener milini kilitlememiz gerek onun için M29S200 komutunu yazıyoruz şimdi vereceğim alt programları tzgaha yazalım ama yazamazsınız nedeni 9000'li programlar korumada olduğu için ilk önce parametresini açmamız gerek onun için şunu yapın

(OFSET SETTİNG:PARAMETRE Yİ 1 YAP PARAMETRELERE GEL
3202 YAZ NO SRH YE BAS NE09 YAZAN YERİ SIFIR YAP AÇILIR)

programları yazdıkdan sonra parametreyi eski haline geterin...

programlar

O9100(DAİRESEL DELİK DELME)
#3 =#4003
G81 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

O9200(DAIRESEL KLAVUZ CEKME)
#3 =#4003
G84 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

O9300(G83GALAMA DAIRESEL DELIK DELME)
#3 =#4003
G83 Q#17 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

O9400(G73GAGALAMA DAİRESEL DELİK DELME)
#3 =#4003
G73 Q#17 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

Rastlantı kardeşim bu yazdığın paket programları kontrol ettinmi acaba
çünkü ben bu programların hepsini çalıştırdım fakat daireye eşit aralıklarla delik delmiyor
farklı noktalara gidiyor.Aynen aşağıdaki gibi çalıştırdım acaba bende mi hata var
programını kontrol edersen sevinirim
ayrıca çok yararlı bilgiler veriyorsun ayrıca teşekkür ederim

T1M6(1SK 25788 BUCHSE)
G90G54G0X0Y0S3000M3;
G43Z3H1;
G65P9100Z-22.F500R3.I24.5B60.A0.H6;
G0Z200.
G91G28Y0Z0;
T2M6
G90G54G0X0Y0S1000M3;
G43Z3H1;
G65P9200Z-17.F1.25R3.I24.5B60.A0.H6;
M30;

ALT PRG

O9100(6.85 MATKAP)
#3 =#4003
G81 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

O9200(M8 KILAVUZ)
#3 =#4003
G84 G98 Z#26 R#18 F#9 K0
IF[#3 EQ90] GOTO1
#24 =#5001+#24
#25 =#5002+#25
N1 WHILE[#11 GT 0] DO1
#5 =#24+#4*COS[#1]
#6 =#25+#4*SIN[#1]
G90 X#5 Y#6
#1 =#1+#2
#11 =#11-1
END1
G#3 G80
M99

Gelişim avcısı · Şubat 21, 2009, 06:01:09 ÖS

arkadaşlar hepinizin emegine saglık

Rastlanti · Şubat 22, 2009, 10:33:36 ÖÖ

KARDESIM SENIN VERDIGIN PROGRAMDA 49 CAPINDA 60 DERECE ACI ILE 25 MM DERINLIGINDE 6 ADET DELIKDELIYOR SUNUDA DENEMENI ISTIYORUM G65 SATIRINA ILK POZISYONLAMAYIDA YAZ YANI
G65 P9100 R5. Z-25. F100 I24.5 B60. A0. H6 X0. Y0. ;
BIRDE YUKARIDAKI GIBI DENE MUTLAKA OLUCAKDIR. SONUCU ILETIRSEN SEVINIRIM TESEKURLER

kaya029 · Şubat 23, 2009, 04:06:55 ÖS

ok rastlantı kardeşim
denedim program çalışıyor problem yok
tekrar eline sağlık

bilgehan · Şubat 23, 2009, 07:23:04 ÖS

gerçekten de bu makro olayı mükemmel bir şey. bilgisini paylaşan arkadaşlara teşekkürler...
benim bir sorum olacak macro yazarken örneğin 10^#1 nasıl yazarız. yani demek istediğim
"10 üzeri bir değişken" yazma imkanımız varmı?