BANA İŞTE KULLANDIGINIZ MANUEL İSO CODLU PROGRAMLARDAN ÇOK KULLANDIGINIZ AYAR YAPARKEN HEP AYNI DEGERLERİ DEGİŞTİREREK AYAR YAPTIGINIZ BİR PROGRAMI GÖNDERİN MACROYA ÇEVİRELİM SİZDE SADECE PROGRAMIN BAŞINA KOYACAGIMIZ DEGİŞKENLERLE OYNAYARAK 100 LERCE SATIRLIK BİR PROGRAMI YENİ İŞE 30 SANİYEDE AYARLAMIŞ OLUN HATA VEGÖZDEN KAÇİRMA İHTİMALLERİNİ %1 E DÜŞÜRÜN.... GÖDERDİGİNİZ PROGRAMI TARİF ETMEYİ UNUTMAYIN... BASİT İÇERİKLİ OLSUN Kİ YAPACAGI İŞİ BURADAN HAYAL EDEBİLEYİM...SİZDE BU ÖRNEKLE DİGER TÜM PROGRAMLARINIZI MACRO YAPABİLİRSİNİZ.....................SAYGILAR ;)
tesekkurler.
birde şu bazı terımlerden bahsetmeni ısterim.
ıf
#
whıle
=
gibi ne nerede nasıl kullanılır.
bu büyük hizmet olur.
%
:9001(ATCARM)
#131=#4003
#130=#4006
G91G30Z0.
M6
G#131G#130
M99
%
hocam bu yukarıdaki macro takım değiştirme için konumlama yazılımı olsa gerek fakat #131 yazan satırın içeriği nedir 4003 neyi ifade ediyor G# satırındaki anlam nedir bu basit program üzerinde biraz açıklama yapabilirmisin.
emeğin için tesekkürler.
#131=#4003 (#4003 e son kullanılan yada buradaki gibi bir eşitlikle aktarılmış olan g90 yada g91 kayıtlıdır)
#130=#4006 (#4006 ya enson kullanılan yada buradaki gibi bir eşitlikle aktarılmış olan g20 yada g21 kayıtlıdır)
g91g30z0 burada g91 #4003 e kayıtlandı
m6
g#131g#130 burada ise g#131 ile g91 in makinaya okutulmadan önceki #4003 degeri #131 sayesinde kullanılıyor.. g#130 da aynı şekilde #4006 nın program başında #130 a kaydedilen g20 g21 metrik inch sistemini seçer......
#... arkasına geldigi rakamı parametre yada makro ismi olarak tanıtır
= ... eşittir.
if ... eger.
while ... öyleyse . (if ile aynı gibi olsada farkı while . do ve end kullanılarak tekrarlama şartını oluşturan terimdir)
do... git . do yanına 1.2.3..gibi sayılarla birlikte yazılır.....do1 while koşulu gerçekleşirse tez. sıradaki satırı okuyarak yoluna devam eder koşul gerçekleşmezseend1 e atlar oradan devam eder)
then...ise. IF[#1EQ#2]THEN #1=20 EGER #1 EŞİT #2 İSE #1 KARŞILIGI 20 OLSUN .. GİBİ..
EQ...EŞİTTİR
NE...EŞİT DEGİLDİR
GT...BÜYÜKTÜR
LT...KÜÇÜKTÜR
GE...BÜYÜK EŞİTTİR
LE...KÜÇÜK EŞİTTİR...............
BU KONU GERÇEKTEN ÇOK GENİŞ İÇERİKLİ BİR KONU O SEBEB BU KONUDA DAHA ÇOK ÖRNEKLİ PROGRAMLAR İNCELEYECEGİZ BİRLİKTE :o
süper.
bu forumda pek yorum yapan olmaz. bence buna alışmalısın.
ha ayrıca bu forumda sağ tus,
kopyala çalışmıyo.
belkı ondandır.
gercekten cok güzel hocam...daha acıklamalı bilgilerini bekliyoruz...
Hocam yazdıkların çok güzel,benim merak ettiğim makıno işleme merkezinde kullanılan 9120 nolu daire işleme programı, bu programı makıno tezgaında kullanıyorum,fakat fanuc sistemli başka tezgaha yükledim ofset alarmı verdi.sebebi ise zannedersem programın içinde bulunan 9100 nolu alt program.yüklediğim tezgah morıseıkı.yardımcı olursanız zevinirim teşekkürler
programı ve alt programlarını gönderirsen yardım edbilirim
bi an karışık bişeymiş gibi geldi ama alışık olduğumdan farklı ondan olsa gerek
bunu mutlaka öğrenmek isterim...
sizler gibi insanlarda olmasa ne olur halimiz
teşekkürler
şimdi bir basit program ile makronun faydasını ısbat edelim
misal iş yerinde bize verilen işlerde şöyle bir operasyon devamlı veriliyor diyelim...
işin kaba hali önemli degil diyelim x0 y0 z0 merkez diyelim
bu merkez etrafında çapı degisken bir çap var.
bu çap üzerinde eşit açılara bolunmüş delikler olsun
punta ..delik . delelim
bunlar resim ölçülerine göre degiştirilecek******
*************************
#1=50...daire yarı çapı
#2=0.....delik başlangıcının *z0* daki pozisyanu
#3=50....delik derinligi
#6=10...delikler arsı açı farkı*******
****************************
#5=1...SABİT
#7=[[360-#6]/#6]...SABİT
N01
M6T1.....PUNTA
M03S2500
G54
G0B0 TABLALI DEGİLSE *B* GEREKSİZ
G16
G43X#1Y#6Z100H1
G81Z-[#2+3] R[#2+5] F500
N11
#5=[#5+1]
Y[#6*#5]
IF[#5 EQ #7]GOTO 12
GOTO 11
N12
G15G80
G0Z200
M05
M09
N02
M6T2....ÇAP ? MATKAP
M03S2000
G54
G0B0
G16
G43X#1Y#6Z100H2
#5=1
G83Z-[#2+#3] R[#2+5] Q5 F250
N21
#5=[#5+1]
Y[#6*#5]
IF[#5 EQ #7] GOTO 22
GOTO 21
N22
G15G80
G0Z200
M05
M09
şimdi böyle bir iş geldi size ayarlayın dendi
bu programı açıp sadece degiskenler dedigim kısmı degistiriyorsunuz
ve ana programdan M98 P... DİYORSUNUZ AYAR 1 DAKİKA ANCAK SURER..
BU PROGRAM BENİM İŞİME YARAR AMA TAM ANLAMADIM DİYEN VARSA DAHA AYRINTILI ANLATIRIM ;)
ellerine sağlık güzel bir çalışma olmuş fakat hiç bilgisi olmayan biri için zor olsa gerek bu kadar detaya girmeden yüzeysel basit donelerle anlatabilirsen öncelikle temel olarak macro mantığını anlamış oluruz işin doğrusu ben anlamadım
macro temel denemeler
iso cod yazım MACRO YAZIM
#1=50 (X DEGERİ)
#2=90 (Y DEGERİ)
#3=30 (Z DEGERİ)
G0X50Y-90Z50M08 G0X#1Y-#2Z50M08
G81Z-30R5F300 G81Z-#3R5F300
X-50 X-#1
Y90 Y#2
X50 X#1
G80 G80
G0Z200 G0Z200
M05 M05
M09 M09
SOLDA İSO CODLARI İLE BİR DİKDÖRTGENİN DÖRT KÖŞEŞİNE DELİK DELDİK.....
SAGDA İSE #1. #2. #3 DEGİŞKENLERİNİ DEGİŞTİREREK AYNI İŞİ YAPTIK........
FARKI NE?
MAKRO DEGİŞKELERE DEGERLERİ YERLEŞTİREREK AYARI HEM HIZLI HEMDE
DEFALARCA ELLE RAKAMLAR YAZARKEN GÖZDEN KAÇMALAR VE HATALAR ORDADAN KALKTI. ;D
ellerine sağlık.
Programlama haricinde servis ile ilgili takım veya palet değiştirme macroları haricinde bildiğiniz kullanım alanı varmı? Fanuc kitabında rastladım bir kaç konuda veri ve kordinat değerleriyle ilgili rs 232 kullanarak pc ye aktarım vardı buna benzer !!!
ellerine sağlık.
Programlama haricinde servis ile ilgili takım veya palet değiştirme macroları haricinde bildiğiniz kullanım alanı varmı? Fanuc kitabında rastladım bir kaç konuda veri ve kordinat değerleriyle ilgili rs 232 kullanarak pc ye aktarım vardı buna benzer !!!
**************************************************************************
sırasıyla *ofset*seting*1/0 chanel=(buraya 1 yanarsan rs 232 baglantısına baglanmış bir bilgisayar varsa
program çagırdıgında gönderdiginde yada program içinde m98 ile degilde m198 ile alt program yazarsan bilgisayardaki programı kullanırsın*** =4 dersen hafıza kartı ile aynı şekilde***=5 dersen HDIR ile gene aynı şekilde veri aktarımı yaparsın böyle :D
bunları kasdetmedim mesela burda vermiyelim ama elimde kısa bir macro yazılım var bunu kullanıp parametrelerini configrasyon ederek işleme merkezinin 3 boyutlu kordinat ölçme cihazı gibi kullanılabiliyor bir çok yerde kuruldu ve çalışıyor bu tarzda aklımıza gelmeyen bilmediğimiz bişeyler varmı diye merak ettim sormak istediğim buydu. ;)
öncelikle özürdilerim 1/0 chanel=0 olmalı rs232 baglantısı için. :)
bahsettiginiz üçboyut ölçüm yapan mazaklar kullanmıştım aynı model tezgahlarda olmayan bi sistemdi çünkü sonradan istege baglı takılmış profesyonel bır cihazdı.ölçü parça ofsetine göre yapıyordu..
eger bana msn yoluyla elinizde ki programı gönderirseniz nasıl bi prob ile neşekilde yapıldıgını belki çözebiliriz... :)
CAPPSNC_ÖLÇME PROGRAMI
TAKIM TEZGAHLARINDA 3 BOYUTLU ÖLÇÜM:
Direkt olarak isleme makinesinde ölçüm artik mümkün.
CAPPSNC, islenmekte olan parçayı çok çabuk olarak ve kolaylıkla ölçüp gerekli boyut ve tolerans raporlarını çıkartır.
Parçayı ekstra bir CMM gerekmeden kritik ölçümler alınabilir.
Parça hataları makine üzerinde düzeltilerek ve ofsetliyerek, hatasız parça imalatı gerçekleşebilir.
CAD model üzerinden istenilen ölçümler makine G/M koduna çevrilip çabuk ölçüm programı haline dönüştürülür.
YCM, MAKINO, OKUMA, HAAS, MORI, SIEMENS, HEIDENHAIN, SELCA, FANUC ve diğer birçok tezgahta çalışır.
Her türlü ölçüm makinesinde, en kolay ölçüm.
DEA, COORD3, LK, WENZEL, MORA, ROMER, FARO, MITUTOYO, ve birçok başka makinelere uyumlu.
DMIS, IGES, CATIA, UG, PRO-E, STEP, VDA dosyaları ile çalışır.
İHTİYACA GÖRE ÜÇ AYRI ÇÖZÜM:
CAPPS-PS, CAPPS-BASIC+, CAPPS- ADVANCEDKALIP, MOLD, DÖKÜM, SAÇ PARÇA, SPC, GAGE R&R, DMIS PROGRAMLAMA, ARAÇ BODY IN WHITE, TARAMA, OTOMASYON, GRAFİK RAPORLAR.
hocam sana makıno tezgahlarında kullandığım programları gönderiyorum .bunların çalışma şekli
ana programa aşağıdaki gibi yazılıyor.
G65P9120 X0 Y0 I100 D61 Z-20 R2 Q2 F200 H10 S100 M0;
D=TAKIM YARIÇAP DEĞERİNİN YAZILDIĞI OFSET
I=DAİRENİN YARI ÇAPI
Z=DERİNLİK
R=REFERANS İŞLEMEYE BAŞLAYACAĞI NOKTA
Q=Z EKSENİNDE BİR SEFERDE GİDECEĞİ MESAFE
H=X EKSENİNDE BİR SEFERDE GİDECEĞİ MESAFE
F=XY EKSENİNDE KESME İLERLEMESİ
S=Z EKSENİNDE KESME İLERLEMESİ
M=0 SABİT DEĞER
Yukardaki programda 100 yarıçaplı daireyi ofset 61'de kayıtlı olan 20 çaplı takımla zekseninde 2mm xekseninde 10mm G03 yönünde hareketle işlemektedir.
yukardaki değerler değiştirilerek istedin çapta istediğin derinlikte'teki daireyi makro programları değiştirmeden yapabilirsin.
benin öğrenmek istediğim fanuc sistemli bir başka tezgahta vrediği ofset alarmı.
alarmdan sonra yeni bir macro yaptım henüz denemedim. kesin sonuçtan sonra arkadaşlarla paylaşıcam. saygılar kolay gelsin.
%
:9120(CIRCLE POCKET)
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
#31=#4003
M98P9100
IF[#4LE#30]GOTO991
IF[#11NE#0]GOTO120
#11=#30*1.2
N120IF[#19NE#0]GOTO10
#19=#9/2
N10IF[#13EQ1]GOTO20
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
GOTO30
N20#5=ABS[#18]
#6=ABS[#26]
N30IF[#17NE#0]GOTO40
#17=#6
N40#17=ABS[#17]
#8=#4-#30
#10=#6
G91G00G17Z-#5
IF[#10LE#17]GOTO50
DO1
#12=#11
G01Z-#17F#19
WHILE[#12LT#8]DO2
G01X#11F[#9/2]
G03I-#12F#9
#12=#12+#11
END2
#14=#8-[#12-#11]
G01X#14F[#9/2]
G03I-#8F#9
G01X-#8F#9
#10=#10-#17
#10=ROUND[#10*1000]/1000
IF[#10LE#17]GOTO50
END1
N50G01Z-#10F#19
#12=#11
WHILE[#12LT#8]DO1
G01X#11F[#9/2]
G03I-#12F#9
#12=#12+#11
END1
#14=#8-[#12-#11]
G01X#14F[#9/2]
G03I-#8F#9
G01X-#8F#9
N60G00Z[#5+#6]
GOTO999
N990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99
%
%
:9100(CALC OFFSET & ABSIO Z POS )
#100=10.0( SELECT OF NC/UNIT & OFFSET TYPE )
G4
#100=ROUND[#100]
#101=#100-ROUND[FIX[#100/100]*100]-ROUND[#100-FIX[#100/10]*10]( NC/UNIT )
#102=ROUND[#100-FIX[#100/10]*10]( OFST TYPE )
IF[#102EQ0]GOTO98
IF[#102EQ1]GOTO98
IF[#102EQ2]GOTO98
#3000=143(NC UNIT DATA ERROR #100)
N98IF[#7EQ#0]GOTO94
IF[#102EQ0]GOTO1( TYPE A )
IF[#102EQ1]GOTO2( TYPE B )
IF[#102EQ2]GOTO3( TYPE C )
N1( TYPE A )
IF[#100GE200]GOTO11
#30=#[2000+#7]
GOTO91
N11#30=#[10000+#7]
GOTO91
N2( TYPE B )
IF[#100GE200]GOTO12
#30=#[2000+#7]+#[2200+#7]
GOTO91
N12#30=#[10000+#7]+#[11000+#7]
GOTO91
N3( TYPE C )
IF[#100EQ12]GOTO13
IF[#100GE200]GOTO13
#30=#[2400+#7]+#[2600+#7]
GOTO91
N13#30=#[13000+#7]+#[12000+#7]
N91IF[#30NE0]GOTO94
#3000=141( OFFSET ERROR )
N94( READ Z ABSIO )
IF[#101EQ60]GOTO21( C5 )
( ABSIO )
N20( EXCEPT HD )
#33=#5003
GOTO99
N21( HD )
#33=#5005
N99M99
%
bu tür programları incelerken tezgahta singl modunda satır satır bakıp aynı andada parametreleri takib etmek lazım eger tamamı sana ait bir pırogram ise mükemmel bir çalışma ..
yaptıgı işi ben birkaç ay önce çok daha basit bir şekilde yapmıştım...bir arkadaşımda cycle komutlarıyla yapmıştı ..
verdigin program şeklinde bir programı yapmak hem zor hemde özveri ister ama daha basit bir şekilde bu işi yapacak basit bir program yazabiliriz .. bunu sende yapabilirsin istersen bende sana yapıp gönderebilirim
:)
BU PROGRAMI BAŞKA BİR KAYNAKTAN ALDIM
OKUDUM SANIRIM ÇALIŞIR
YANLIZ BU PROGRAM DELİGİ TEK SEFERDE BÜYÜTÜYOR AMA ONU KADEMELİ BÜYÜTME PROGRAMI YAPMAK KOLAY YANİ WHİLE GOTO KOMUTLARI EKLEYEREK HALLEDEBİLİRİZ... ;)
ÇALIŞTIRMA KOMUTU
G65 P9021 C3 X-50 Y-100 Z-20 I0 D32 W50 R5 Q2 F500
C – C3'ise G03 , C2'ise G02 YÖNÜNDE FREZELEME YAPAR .
X - DAİRE MERKEZ KOORDİNATI
Y - DAİRE MERKEZ KOORDİNATI
Z - TOPLAM DERİNLİK
I - İŞLEME YÜZEYİNİN Z0'a OLAN MESAFESİ
D - TAKIM ÇAPI
W - DAİRE ÇAPI
R - YAKLAŞMA MESAFESİ(KORUMA)
Q - DAİRESEL HAREKET YAPARKEN BİR TURDAKİ MESAFESİ
F - İLERLEME
ALT PROGRAM
O9021(DAIRESEL HAREKET ILE FREZELEME)
#500=#24(X)
#501=#25(Y)
#502=#26(Z)
#503=#4(I)
#504=#7(D)
#505=#23((W)
#506=#18(R)
#507=#17(Q)
#508=#9(F)
#520=#3(C)
#509=[#505-#504]/2.
#510=#500-#509(X BASLAMA)
#511=#503+50.(Z YAKLASMA)
IF[#503LE0]GOTO10
GOTO20
N10#512=#506(#512=Z YAKLASMA)
GOTO30
N20#512=#511(#512=Z YAKLASMA)
N30#513=#503+#506(#513=Z YAKLASMA)
#514=#503-#507
G90M3
IF[#503GT0]GOTO40
IF[#503LE0]GOTO50
N40G0X#500Y#501Z#511M8
GOTO60
N50G0X#500Y#501Z50.M8
N60X#510(X DE DAIRE BAS NOK.)
G01Z#513F2000
G01Z#503F100
N70G#520X#510Y#501Z#514I#509J0F#508
IF[#514EQ#502]GOTO90
IF[#514LT#502]GOTO80
#514=#514-#507
IF[#514GT#502]GOTO70
N80G#520X#510Y#501Z#502I#509J0F#508
N90G#520X#510Y#501I#509J0F#508
G01X#500F500
#515=50.
IF[#503GT0]GOTO100
#516=#515
G0Z#516M9
GOTO110
N100#516=[#503+#515]
G0Z#516
N110M9
M99
Değerli dostum gönderdiğim programlar bana ait değildi o programlar makıno işleme merkezinde bulunan standart paket programlardı makınoya ait olduğu için zannedersem başka fanuc sistemde çalışmadı.
tüm fanuc sistemlerde çalışacak olan macroyu yaptım denedim çalıştı gönderiyorum.
9120 nolu programdan farkı D hanesine takım yarıçapının bulunduğu ofseti değil takım yarıçapının kendisini yazıyoruz,M hanesini kullanmıyoruz,takım G02 yönünde çalışıyor,daireyi tek seferde veya birkaç seferde işleyebiliyorsun.
macro hakkında fazla bilgsi olmayan arkadaşlar için bu programda G41 , G42 kulanmadan yarıçap telafisi yapabilirsiniz. D hanesindeki takım yarıçap değerini değiştirerek daireyi istediğiniz hassasiyette işleyebilirsiniz.
değerli dostum böyle bir konu başlattığn için çok çok sağol macronun ne kadar faydalı,güvenli,ve zaman kazandıran programlama olduğunu sayende anlayacağız.
saygılar
PROGRAMI ÇALIŞTIRMAK İÇİN ana programda
G65 P7777 X0 Y0 I.. D..Z..R..F..S..Q..H..; yazılıyor
macro sabit kalıp deiştirilmiyor.
D=TAKIM YARIÇAP DEĞERİ
I=DAİRE YARIÇAP DEĞERİ
Z=DERİNLİK
R=REFERANS YÜZEYİ
F=XY YÖNÜNDE KESME İLERLEMESİ
S=Z YÖNÜNDE KESME İLERLEMESİ
Q=Z YÖNÜNDE BİR SEFERDE GİDECEĞİ MESAFE
H=XY YÖNÜNDE BİR SEFERDE GİDECEĞİ MESAFE
%
:7777(CEP DAİRE İŞLEME PROGRAMI)
#10=#18
#5=#4
G90G0Z#18
#6=#11
#8=#6
N01
IF[#7GE#4]GOTO9000
IF[[#6+#7]GT#5]GOTO02
G01Z#10F#19
G01X#6F#9
G02X#6I[#6-#6*2]F#9
IF[[#6+#7]EQ#5]GOTO03
#6=#6+#11
#8=#6
IF[[#6+#7]GT#5]GOTO02
IF[[#6+#7]LE#5]GOTO01
N02
#6=[#4-#7]
IF[[#6+#7]NE#5]GOTO9000
GOTO01
N03
#6=#11
G01X#24F#9
IF[#10LT#26]GOTO04
IF[#10EQ#26]GOTO05
#10=#10-#17
IF[#10GE#26]GOTO01
N04
#10=[#26]
IF[#10NE#26]GOTO9999
GOTO01
N05
#10=#18
G01X#24Y#25F#9
G91G30Z0M5
GOTON9999
N9000
,,,,(D GE I) (NE),,,,
N9999
M99
%
% takım degiştirme programı
İLGİLENENLER İÇİN TEZGAH PROGRAMLARININ EN BASİTİDİR BAŞLAMAK İÇİN İYİ DİR YANİ ;)
İLGİ OLURSA ANLATIRIM
O9001(TOOL CHANGE)
#1108=0
G04
#105=#4003
M33
G04
G04
G04
IF[#1000EQ1]GOTO100
M22
G91G30X0.Y0.Z0.M19
M06
N100M34
G[#105]
M99
%
cok guzel bır yazısma oldu ama tabıkı bnm gıbı daha yenı baslayan arkadaslar anlayamaz 5 eksenli schneeberger marka taşlama tezgahında çalısıyorum bnm ıcınde gecerlımı ??
arkadaşlar bende bir komut vereyim #3006=1 operatör alarm () parantez içine ne yazarsanız ekranda o mesajı verir ve aynı zamanda M0 ın yaptığı işlemi yapar start tuşuna basarsanız program olduğu yerden devam eder #3000=1 alarm verir makinayı durdurur # işareti çoğu yazılım dillerinde değişken tanımıdır = işareti ise sağdaki veriyi sol tarafa atama yapar yani değiştirir <if> sorgudur verilerle alakalı sorgu yapmak istiyorsanız kullanırsınız yani bu bundan büyükmü,küçükmü,eşitmi vs gibi while döngü yapmak için kullanılır fanucta wh yazmak yeterli örnekleri kitapta mevcut ama ilerki tarihlerde örneklerle açıklarız
Harika olmuş İsmet erol . Ellerine sağlık.Makro programlama , en sevdiğim programlama metodudur.Senin de belirttiğin gibi herşey daha basit ve güvenli.
ellerine bilgine sağlık onnumara
hocam c eksenlı bir torna tezgahı içinde bu tarz bir ornekle acıklama yapabılırsenız sevinirim.
Alıntı yapılan: pako34 - Mart 07, 2008, 11:52:04 ÖS
while ve goto komutlarını tam olarak anlayamadım.örneğin konik bir cep boşaltma yapmak istiyorum.makrolarla yapabilirmiyim.BSU 20 VE SR 20 kayar otomat kulanıyorum.3 farklı programın birbirleriyle haberleşmesi ile çalışıyor.karttan m198 ile programı bu yüzden okumuyor.sekronizenin bozulmaması lazım.cam'den uzun program gelince hafıza almıyor.basit macro programlarla bir nebze kolaylık sağlıyoruz ama macro programı iyi bilmediğimiz için sıkıntı yaşıyoruz.bunun için macro program yapma konusunda yardımlarınızı bekliyorum.özellikle ismeterol kardeş senden bekliyorum.
bir cep birogramı yapacakasan örnegin kare
#1=karenin 1, kenarı
#2=karenin 2, kenarı
#3=her seferinde girecegi derinlik
bu degerle bir kare kap
#4=0
#5=50tooplam derinlik
programın sonuna #4=#4+1 yazpeşinede IF[#4EQ#59]GOTO10 YAZ
PEŞİNE M99
BU KADAR
İsmet erol kardeş ilgin için teşekkürler.20*20*kare 12mm derinlik olan bir parçayı benim için macro yazarmısın.tam olarak anlamam için.acaba 20*20* kare 12mm derinliğe ulaştığında 15*15 yapılabilirmi
Alıntı yapılan: pako34 - Mart 14, 2008, 10:17:40 ÖÖ
İsmet erol kardeş ilgin için teşekkürler.20*20*kare 12mm derinlik olan bir parçayı benim için macro yazarmısın.tam olarak anlamam için.acaba 20*20* kare 12mm derinliğe ulaştığında 15*15 yapılabilirmi
kabamı hassasmı anu söylersen hafta sonu buraya yazarım bide tezgahın kaç eksen yataymı dikeymi parçayı nasıl baglıyorsun ok by....
ısmeterol arkadaşım arkadaşım makro ile bilgine hayran kaldım bende ufak çaplı yazmaya çalışşıyorum yanlız yazdıgım makro programda takıldıgım bir konu var yardım edersen sevinirim. takısawa torna tezgaha fedek magazin beslemeli sürücü taktım makro yazdım makroda otomatik çubuk degiştirme yapıyorum yanlız çözemedigim konu çubuk degiştirirken ayna açık belli bir devir vermek istedim ama olmadı birde son parçanın boyunu dayamaya geliyor işlemeden geri çekiyor bana bu konuda yardım edersen sevinirim bir de eger bilgin varsa benim 9000 li paremetrem kapalı yardım edersen sevirim saygılar mail atmak istersen muratpoyraz78@mynet.com emegine saglık
Alıntı yapılan: ismeterol - Mart 14, 2008, 09:26:30 ÖS
Alıntı yapılan: pako34 - Mart 14, 2008, 10:17:40 ÖÖ
İsmet erol kardeş ilgin için teşekkürler.20*20*kare 12mm derinlik olan bir parçayı benim için macro yazarmısın.tam olarak anlamam için.acaba 20*20* kare 12mm derinliğe ulaştığında 15*15 yapılabilirmi
kabamı hassasmı anu söylersen hafta sonu buraya yazarım bide tezgahın kaç eksen yataymı dikeymi parçayı nasıl baglıyorsun ok by....
Hassas olmasına gerek yok.amacım macro yazmayı iyi bir şekilde öğrenmek.dikey işleme.yada c.y eksenli torna olabilir hangisini istersen.şimdiden çok teşekkür ederim.
Alıntı yapılan: pako34 - Mart 15, 2008, 11:42:34 ÖÖ
Alıntı yapılan: ismeterol - Mart 14, 2008, 09:26:30 ÖS
Alıntı yapılan: pako34 - Mart 14, 2008, 10:17:40 ÖÖ
İsmet erol kardeş ilgin için teşekkürler.20*20*kare 12mm derinlik olan bir parçayı benim için macro yazarmısın.tam olarak anlamam için.acaba 20*20* kare 12mm derinliğe ulaştığında 15*15 yapılabilirmi
kabamı hassasmı anu söylersen hafta sonu buraya yazarım bide tezgahın kaç eksen yataymı dikeymi parçayı nasıl baglıyorsun ok by....
Hassas olmasına gerek yok.amacım macro yazmayı iyi bir şekilde öğrenmek.dikey işleme.yada c.y eksenli torna olabilir hangisini istersen.şimdiden çok teşekkür ederim.
eger kullanmayacaksan programı konik kare yapmayalım bensana bas çalış bir kare cep açayım..
çünkü konik kare cep uzun ve karmaşık bi o kadarda çalışma gerektiriyorbenim a kadar vaktim yok bi ara onuda yayınlarım ok.
KARE CEP PROGRAMI HASSAS
O2012
#1=20 (KENAR UZUNLUGU)
#2=12(DERİNLİK)
#3=2(HER PASODAKİ DERİNLİK)
#4=[#2/#3](SABİT)
#5=0(SABİT)
M6T1
M03S6000
G54
G43X0Y0Z10H10D10M08
N10
#5=[#5+#3]
#4=[4-1]
G01G41X[#1/2]Y[#1/2]F500
G01Z-#5
G01X-[#1/2]
G01Y-[1/2]
G01X[1/2]
G01Y[1/2]
IF[#4NE0]GOTO10
G0Z200
G40X0Y0
M05
M09
M99
BU PROGRAMI TEZGAHINA AT KULLANDIGIN TAKIMIN YARI ÇAPINI OFSETE YAZMAYI UNUTMA BANA ÇALİŞİP ÇALIŞMADIGINI HABER VERİRSİN ÖNCE GRAFİKTE İZLERSİN OK BY İYİ ÇALIŞMALAR
İSMETEROL öncelikle teşekkürler. bu programda Z-12 de durmuyor taaki ben durdurana kadar devam ediyor
Alıntı yapılan: pako34 - Mart 18, 2008, 02:21:36 ÖÖ
İSMETEROL öncelikle teşekkürler. bu programda Z-12 de durmuyor taaki ben durdurana kadar devam ediyor
#4=[4-1] yanlış yazmışım
#4=[#4-1] dorusubu
klavye yatası yapmışım pardon
makro program yazarken hatalar oluyor ya yanlış çalışıyo yada alarm veriyor onu görüp düzeltmek gerekiyor.. :)
verdiğin bilgiler için teşekkürler ismeterol.
pako34 ilgileniyorsan şu sıralar konik kare cep programı hazırlıyorum
çok orjinal bişi olacak cadcamı bile kıskandırır
Alıntı yapılan: ismeterol - Nisan 02, 2008, 01:58:16 ÖS
pako34 ilgileniyorsan şu sıralar konik kare cep programı hazırlıyorum
çok orjinal bişi olacak cadcamı bile kıskandırır
teşekkürler
ismeterol değerli bilgileriniz için ikinizede teşekkür ederim
sayenizde makro yazmayı bayağı öğrendim.değisik çap, boy, delik vs gibi özellikleri olan bir parça gurubumuz var.tam tamına 27 değişik program lazım.ben macroyla yazılmış tek bir programla hepsini işledim.ayar zamanları 30 saniye.gerçi programı yazarken biraz uzun sürdü ama evladiyelik oldu.
çok sağolun................
Alıntı yapılan: tamtam - Nisan 05, 2008, 07:41:31 ÖS
Alıntı yapılan: ismeterol - Nisan 02, 2008, 01:58:16 ÖS
çok orjinal bişi olacak cadcamı bile kıskandırır
hahaha
bu hahaha ne demek oluyor?insanların emeğiyle dalga mı geçiyorsun?ben cam programı kullanıyorum.ama macronun değişken işlerdeki avantajını yukarda anlattım.camde program çıkarsaydım 27 tane resim çizecek, 27 tane takım yolu oluşturacak,27 kere programı yükleyecek ,27 kere parçayı kontrollü işleyecektim.macro sayesinde tüm bunları tek seferde yaptım.burada kimse macro ile cam arasında bir kıyaslama yapmıyor.macronun camden üstün olduğunu idda edende yok.sadece almak isteyene bilgi veriliyor.
emeğe birazcık saygı beyler
Alıntı yapılan: victor - Şubat 08, 2008, 11:30:46 ÖS
tesekkurler.
birde şu bazı terımlerden bahsetmeni ısterim.
ıf
#
whıle
=
gibi ne nerede nasıl kullanılır.
bu büyük hizmet olur.
Selam,
çorbada benimde tuzum olsun:
IF ve WHILE örnekleri
(Bu örnekler Fanuc tan alıntıdır. Örnekler 1den 10a kadar sayıları toplamakla ilgilidir)
IF:
#1=0
#2=1
N1
IF[#2 GT 10]
GOTO2 (
eğer #2 10 veya daha fazla ise
N2 ya git)
#1=#1+#2
#2+1
GOTO1 (N1 e git)
N2M30
***************************************************************************
WHILE:
#1=0
#2=1
WHILE[#2 LE 10]
DO1 #1=#1+#2
#2=#2+1
END1M30
WHILE i şöyle açıklayayım:
Şayet[#2 10dan küçük ise]
DO1ile
END1 arasındaki satırları uygula.
*************************************************************************
IF ve WHILE arasındaki en büyük fark IF komutu GOTO ile geriye dönüşümlü olarak uygulanmaktadır. Ama WHILE,DO ile END arasındaki işlemleri gerçekleştirir. Yani geriye dönüşüm olmayacağından zaman kaybı olmaz.
Kısaca: IF (gerekçeli komut)
WHILE (tekrarlama komutu)
WHILE olmadan DO ve END komutları kullanıldığı takdirde, bu iki komut arasındaki satırlar sonsuz olarak çalışır.
Umarım açıklayabilmişimdir.
Görüşmek üzere.
Herkese merhaba,
Aranıza yeni katıldım.. Muhabbetin kalitesi iyi olunca heyecanlandım doğrusu..
Benim ricam macro konusunda elimizin altında tutabileceğimiz kaynak veya kaynaklar mevcut mu ?.
Paylaşırsanız çok sevinirim.
İsmeterol ve tamtam ın bazı mesajlarını , atışma ve üstünlük kurma çabası şeklinde anlamsız bir hal gördüğüm için sildim.
Sevgili İsmeterol,paylaşımların ve özverin için çok teşekkür ediyorum.Benim gözümde çok değerli bir insan ve teknik adamsın.Ama lütfen gerilmeyelim.
Arkadaşlar bu sitenin kuruluş amacı ve çoğu arkadaşımızın diğerlerine yardımcı olmak amacıyla çırpınması ,
ego tatmini veya hava atma amacıyla değildir...
Bu şekilde yorumlayacağım tüm mesajları sileceğim ve devam eden üyelerin üyelik iptalini sağlayacağım.
Bu sitede bilmeyen,bilene soracak ve imkanlar dahilinde öğrenecek.PAYLAŞIMA DEVAM!!
hayırdır problemmı vardı.
lütfen seviyeleri yuksek tutalım.
Bora beye katılmamak elde değil........
paramameter(custom macro)
(par. no) (m kod)
6071 sub call M,,,,,,,,,,,,,,,6 9001
6072 9002
6073 9003
6074
6075
6076
6077
6078
6079 9009
örnek olarak 6071 nolu parametreye M6 kodunu girdiğinizde bundan sonra gönderilen bütün M6 komutlarında
9001 nolu alt program çalıştırılarak M6 yapar
%
:9001( M06 takım değiştirme)
G91G28Z0M319
G91G30X0Y0
M6
M99
%
Alıntı yapılan: ismeterol - Şubat 17, 2008, 01:36:07 ÖÖ
% takım degiştirme programı
İLGİLENENLER İÇİN TEZGAH PROGRAMLARININ EN BASİTİDİR BAŞLAMAK İÇİN İYİ DİR YANİ ;)
İLGİ OLURSA ANLATIRIM
O9001(TOOL CHANGE)
#1108=0
G04
#105=#4003
M33
G04
G04
G04
IF[#1000EQ1]GOTO100
M22
G91G30X0.Y0.Z0.M19
M06
N100M34
G[#105]
M99
%
bunu biraz açabilirmisin
mesela bu takım değiştirme programı ne gibi bi işe yarayabilir (öğrenmek amaçlı olmanın dışında)
hani
T10080:
M6:
demek varken
karakterleride biraz açıklarmısın lütfen
crisis bu program m6 nın açılımıdır.m kodu ile alt program çağırma diye bir olay var.
bazı paremetreler var örnek 6080 nolu paremetre .buraya m66 dersen(1 ile 9999 arası bir m koduda tayin edebilirsin) 6080 nolu paremetrenin çağırdığı bir alt program var buda O9020 nolu program bu programa ister örnekdeki gibi bir takım değiştirme istersen
senin belirlediğin her hangi bir program yazarsın.sen m66 dersen o programı çağırır işler.
m6 da aslında başka bir program çağırır....
M KODU İLE MACRO PROGRAM ÇAĞIRMA
program no parametre no
O9020 6080
O9021 6081
O9022 6082
O9023 6083
O9024 6084
O9025 6085
O9026 6086
O9027 6087
O9028 6088
O9029 6089
pako34 bildilendirdiğin için saol
çalıştığım yerlerden birinde Quaser marka bir dik işleme vardı
moriseiki lerde takım değiştirmek için referansa yollanıyodu makina
fakat Quaser de
T6;
M6;
dediğimiz zaman ufak bi program açılıyodu
makina takımı değiştirip geri geliyodu
kontrol ünitesi kaç tı hatırlamıyorum ama diğerleriyle kıyaslanamıcak kadar iyiydi
şuan çalıştığım tezgah ta moriseiki fanuc 18-i ve oda referansa gitmeden takım almıyo
şimdi bu durumda macro kullanarak QUASER deki olayın aynını MORİ dede yapabilirmiyim sence?
quaser fanuc31 miş
evet yaparsın sadece takım değiştirme değil hayal gücünü kullanarak farklı şeyler yapabilirsin.
arkadaşlar daha önce açmış olduğum (fanuc M kodu alt programla çalıştırma) adlı konuyu pako 34 'ün bununla ilgili mesajı üzerine buraya taşıdım
Alıntı yapılan: biga - Haziran 20, 2008, 11:33:38 ÖÖ
arkadaşlar daha önce açmış olduğum (fanuc M kodu alt programla çalıştırma) adlı konuyu pako 34 'ün bununla ilgili mesajı üzerine buraya taşıdım
2 şey sorucam
öncelikle makinaların yoğunluğundan bunları deneyemedim ilk fırsatta denicem ve ilgili parametrelerede bakamadım
ilk olarak hazırladığımız programı 6071 nolu parametreye karşılık gelen 9001 nolu programla makinaya girdikten sonra eski haline getirmek istersek nasıl yapıcaz
ikinci olarakta senin verdiğin parametreler
6079 O9009 a kadar
pako34 ün verdikleride
6080 den O9020 ile başlıyo
O9010 ile O9019 ve arasında kalan programları merak ettimde
Alıntı yapılan: crisis - Haziran 23, 2008, 10:35:24 ÖS
Alıntı yapılan: biga - Haziran 20, 2008, 11:33:38 ÖÖ
arkadaşlar daha önce açmış olduğum (fanuc M kodu alt programla çalıştırma) adlı konuyu pako 34 'ün bununla ilgili mesajı üzerine buraya taşıdım
2 şey sorucam
öncelikle makinaların yoğunluğundan bunları deneyemedim ilk fırsatta denicem ve ilgili parametrelerede bakamadım
ilk olarak hazırladığımız programı 6071 nolu parametreye karşılık gelen 9001 nolu programla makinaya girdikten sonra eski haline getirmek istersek nasıl yapıcaz
ikinci olarakta senin verdiğin parametreler
6079 O9009 a kadar
pako34 ün verdikleride
6080 den O9020 ile başlıyo
O9010 ile O9019 ve arasında kalan programları merak ettimde
CRISIS öncelikle sorgulayıcı ve öğrendiğini uygulama noktasındakı gayretinden ötürü tebrik ederim. bir konuyu tam olarak öğrenmeden bırakmıyorsun.
benim verdiğim paremetre ve programlar bir m kodu ile macro program çağırmaya yarar.
biganın verdiği paremetre ve programlar bir m kodu ile alt program çağırmaya yarar.
birde g kodu ile macro program çağırma var.
O9010 6050
O9011 6051
O9012 6052
O9013 6053
O9014 6054
O9015 6055
O9016 6056
O9017 6057
O9018 6058
O9019 6059
PROGRAM VE PAREMETRE İLİŞKİSİ BUDUR.
ÖRNEK
O0001 ;
:
G83 Q3. X10.0 Y20.0 Z-10.0 ;
:
M30 ;
O9010 ;
#100=#17
#101=ABS [#26]
#102=#6
#103=#18
#104=#100
#105=#9
WHILE [#104LT#101] DO1
G1 Z-#104 F#105
G0 Z#103
Z- [#104-#102]
#104=#104+#100
END1
G1 Z-#101
G0 Z#103
;
;
;
N9 M99 ;
Parametre No. 6050 = 83 YAZMIŞSAK G83 İLE BİR MACRO PROGRAM ÇAĞIRMIŞ OLDUK
pako34
usanmadan ve sıkılmadan sorularımı cevapsız bırakmadığın(ız) için ayrıca ben teşşekür ederim.
verdiğin yeni macro örneği içinde ayrıca bir teşekkür
bugün parametrelere baktım ve ikinci sordugumun cevabını kısmen aldım senin yanıtınla emin olup üstüne ekleme bile yaptım
ilgili parametrelere bakıldıgında sayfa basında bir grubun M kodu çağırma diğer parametre grubunun ise MACRO çağırma oldugu belirtiliyor
arada kalanların ise senin söylemenle G kodu çağırma oldugunuda örenmiş oldum(k)
neden bu parametre ve program no larını ardışık yapmayıpta ayrı bir grup yapmışlar demicem mutlak mantıklı bicevabı vardır
en azından sistem böyle denilebilir sanırım
ama her cevap alışımda başka sorular doğuyor
şimdi örnekteki gibi bi durum yaptıgımız takdirde
normalde kullandığımız G83 kademeli delik delme bu durumda iptal(mi) olucak
ki macro olarak zaten yazmış olucaz
ama bunun yerine G90 yazsam mevcut G90 ımı(mutlak kordinat) ya kaybetmiş olucam yada makina alarm vercek
parametreyi eski haline getirdiğimde sorun kalmaz sanırım burayı kavradım
peki şöyle bir durum daha var daha önce RASTLANTI nın verdiği
O9300
O9400
O9100
O9200
gibi delik delme macroları standart programlarmı?
macro ile ilgili eğitim alabileceğimiz bilinen bir yer varmı?
bilen gören duyan...
yada bu eğitimi karşılığı dahilinde ben veririm diyen bir kimse?
Alıntı yapılan: crisis - Temmuz 03, 2008, 10:27:45 ÖS
macro ile ilgili eğitim alabileceğimiz bilinen bir yer varmı?
bilen gören duyan...
yada bu eğitimi karşılığı dahilinde ben veririm diyen bir kimse?
dostum macroda öğrenmek istediklerini sor eğitimi ne yapacaksın sen kendini uyguladıkça yetiştirirsin
sitede macro kullanan arkadaşlar var
örnek
ıf =eğer, şayet
whıle =iken
goto= git
ayrıca macro biryerlere değer kaydedip bu değerleri sonra çağırıp aritmetik ve mantk işlemleri kullanarak uygulamaktır
http://www.turkeycnc.com/index.php?topic=2240.0
buradan bakabilirsin
herkeze merhaba
benim bi programım var ve bu programı macro ile yazarak kısaltabilirmiyiz ben bunu kodlarla yazıyorum bana bunun macrosunu yazar mısınız...
o0001;
G97S1800M3;
T0101;(ÇAP 5 HSS MATKAP)
G0Z30;
X0Z2M8;
G1Z-4F0,03;(MATKABI AĞIZLATTIM)
G74Z-10Q600F0,05;( g74 çevrimini talaşı kırması için kullandım)
G0Z5;(ve her seferinde z5 çıktım talaşı boşaltamak için)
Z-9;(ve 1mm gerisine yakalştım)
G74Z-15Q600;(artık her seferinde bu işlemi tekrarladım Q GAGALAMA MİKTARI)
G0Z5;
Z-14;
G74Z-20Q600;
G0Z5;
Z-19;
G74Z-25Q600;
G0Z5;
Z-24;
G74Z-30Q600;
G0Z5;
Z-29;
G74Z-35Q600;
G0Z5;
X180Z150M9;
M5;
M30;
arakdaşalr matkap çapım küçük olduğu için biz bunu böle yapıyoruz fabrikada bir miktar gidip geri çekip tekrar yanaştırıyoruz matkabı. acaba bunu macro ile kısalta bilir miyiz.bunun aynısını macro ile yazarsanız ve nerde ne yaptığını neden yaptığını anlamlarını açıklayarak yazarsanız sevinirim..şimdiden teşekkurler..
bilgi aktararak çoğalır
teşekkürler
#1=50 (X DEGERİ)
#2=90 (Y DEGERİ)
#3=30 (Z DEGERİ)
G0X50Y-90Z50M08 G0X#1Y-#2Z50M08
G81Z-30R5F300 G81Z-#3R5F300
X-50 X-#1
Y90 Y#2
X50 X#1
G80 G80
G0Z200 G0Z200
M05 M05
M09 M09
daha onceleri çok merakım vardı makro için kaynak bulamadıgım için
vaz geçtim ama yukarıda vermiş oldugunuz
örnek guzeldı
bunun için cevap arıyorum yardımcı olursanız sevınırım
makro
iso makro cinsinden ASAGIDAKİ programı
cevaplarsanız sevınırım
şimdiden tesekkur ederim
PARÇA DAİRESİ 160
M6T1
G0 G54 G90 X80 Y0 M3 S1628
G43 H1 Z10
G81 Z-10 F100
G16Y60
Y120
Y180
Y240
G80
G0 Z250
G91 G28 Z0. Y0.
M5
M30
:)
Alıntı YapIF ve WHILE örnekleri
(Bu örnekler Fanuc tan alıntıdır. Örnekler 1den 10a kadar sayıları toplamakla ilgilidir)
IF:
#1=0
#2=1
N1IF[#2 GT 10] GOTO2 (eğer #2 10 veya daha fazla ise N2 ya git)
#1=#1+#2 (burda belirtilen toplama işleminin görevi tam olarak nedir?)
#2+1
GOTO1 (N1 e git)
N2M30
bir türlü çıkaramadım hiç bir anlamı yok gibi geldi,ki bu döngü bu satır olmadanda çalışır diye düşündüm ve bu satır olmadanda çalıştı ama koyulmasının bir anlamı olmalı fanuc un verdiği bir örnek çünkü
varmıdır bilgisi olan acep?
Alıntı Yapbunun için cevap arıyorum yardımcı olursanız sevınırım
makro
iso makro cinsinden ASAGIDAKİ programı
cevaplarsanız sevınırım
şimdiden tesekkur ederim
PARÇA DAİRESİ 160
M6T1
G0 G54 G90 X80 Y0 M3 S1628
G43 H1 Z10
G81 Z-10 F100
G16Y60Y120
Y180
Y240
G80
G0 Z250
G91 G28 Z0. Y0.
M5
M30
:)
PARÇA DAİRESİ 160
#1=0
#2=10
M6T1
G0 G54 G90 X0 Y0 M3 S1628
G43 H1 Z#2
G16
N1 IF[#1 GT
240] GOTO2
G81 X80 Y#1 Z-#2 F100
#1+60
GOTO1
N2G80G15
G0 Z250
G91 G28 Z0
G91 G28 X0 Y0
M5
M30
bişeyler yapmaya çalıştım işine yararmı bilmiyorum
bende cok iyi değilim bu konuda
(yanlış yapmış olabilirim işlemede kullancak isen dikkatli ol)açı 240 daki son deliği açmazsa
N1 deki 240 ı ,
241 ila 299 arası bir sayı yaparsan onuda açacaktır
bende bu yazdığımı yarın bir deneyeyim
bu olmazsa birde şu linktekine bak
http://www.turkeycnc.com/macro-programlama/dairesel-islem-macro-ile-t2597.0.html
bende macro öğrenmek istiyordum zannediyorum ki tam yerindeyim emeğinize sağlık teşekkürler
Alıntı yapılan: pako34 - Mart 14, 2008, 10:17:40 ÖÖ
İsmet erol kardeş ilgin için teşekkürler.20*20*kare 12mm derinlik olan bir parçayı benim için macro yazarmısın.tam olarak anlamam için.acaba 20*20* kare 12mm derinliğe ulaştığında 15*15 yapılabilirmi
abi sscn de böle bir makro var oim nin içine süper bişey ha sen bende yok diosan macro bölüm sayfasında yeni konu olarak attım birkaçını
Alıntı yapılan: ismeterol - Şubat 08, 2008, 12:42:19 ÖS
BANA İŞTE KULLANDIGINIZ MANUEL İSO CODLU PROGRAMLARDAN ÇOK KULLANDIGINIZ AYAR YAPARKEN HEP AYNI DEGERLERİ DEGİŞTİREREK AYAR YAPTIGINIZ BİR PROGRAMI GÖNDERİN MACROYA ÇEVİRELİM SİZDE SADECE PROGRAMIN BAŞINA KOYACAGIMIZ DEGİŞKENLERLE OYNAYARAK 100 LERCE SATIRLIK BİR PROGRAMI YENİ İŞE 30 SANİYEDE AYARLAMIŞ OLUN HATA VEGÖZDEN KAÇİRMA İHTİMALLERİNİ %1 E DÜŞÜRÜN.... GÖDERDİGİNİZ PROGRAMI TARİF ETMEYİ UNUTMAYIN... BASİT İÇERİKLİ OLSUN Kİ YAPACAGI İŞİ BURADAN HAYAL EDEBİLEYİM...SİZDE BU ÖRNEKLE DİGER TÜM PROGRAMLARINIZI MACRO YAPABİLİRSİNİZ.....................SAYGILAR ;)
benim tezgahımda G1101 W2. F0.1 Q5. P2000 B3 L50: DİYE BİR SAYKIL VAR BU G83 FORMATINDA 5 MM GAGALAYARAK DELİK DELİYOR. BEN BU SATIRLARI 9001 NUMARALI PROĞRAMA YAZDIM VE M66
KODUNU BU PROĞRAMA ATADIM.ŞİMDİ ANA PROĞRAMA DELİK DELMEK İÇİN SADECE M66 DİYORUM ODA GİDİP 9001 UYGULAYIP ANA PROĞRAMA DÖNÜYOR BURAYA KADAR HERŞEY SÜPER AMA OLMASINI
İSTEDİĞİM L BOYUNA BİR BİLİNMEYEN ATAMAK YANİ M66 L100 DEDİĞİMDE O BİLİNMEYENİ CEVAPLAYABİLSEM ALT PROĞRAMA GİRİP DELİĞİN L YANİ Z DERİNLİGİNİ DEĞİŞTİRMEYE GEREK KALMADAN
HALLETSEM SİZCE BU OLABİLECEK BİR ŞEYMİ...
ÖRNEK
PROĞRAM NOSU: 9001
G0XO. Z2.
G1101 W2. F0.1 Q5. P2000 B3 L50:
GOZ25.
G28U.W0.
M30
BENİM YAPTIGIM İSE
PROGRAM NOSU HERHAGİBİR
TO1O1
M66
BU KADAR AMA HEP 50 MM DELMEK ZORUNDAYIM YADA ALT PROĞRAMA GİDİP L BOYUNU DEĞİŞTİRCEM BUNU NASIL ÇÖZERİM
BİR DE AYNI KONU AMA DAHA GELİŞMİŞ BİR SORU
ÖNÜNE GELEN TEZGAH STANDART
T.....
G0X...Z...
G71 U3. R1.
G71P1Q2U0.8W0.2F0.22
N1................
....
...
...
...
...
...
...
N2................
BUNU ARTIK GÜNDE 5 KERE YAZMAYAN YOK OYSA BİR MACRO OLSA SADECE DEGERLERİ GİRSEK
ÖRNEK G76 DA PO2O360
DEMİŞ YAPAN ARKADAŞ bizde böle bir macro yazssak standart degerleri yazmadan sadece ölçüleri verebilsek
örnegin derince bir delik boşaltıyorum paket proğramla çap 200mm derinlik 150 mm
ilk 50 mm 200 çapına boşaltsa sonra z-50 den başlasa z-100 kadar çap 200 boşaltsa sonra z-150 den başlasa z-200 kadar boşaltsa bu şeilde hiç talaş sıkıştırmasa
verilen degeri 20 20 veya 50 50 bölse sizce nasıl olur bu özellik mazakta var fanuc ta neden olmasın
malzemenin kaba ölçülerini versek sonrada hassas ölçülerini kalan arayı eşit pasolarda işlese
g73 de standart 20 mm 30 mm kaç diyebiliyoruz ya malzeme deki paso eşit değilse o zaman gereksiz zaman kaybı oluşuyor
bunu giderecek makro yine mazakta var ama ne mastercamda nede fanucta yine yok neden biz yapamayalım....
şimdiden teşekürler
selamlar macro program bütün tezgahlarda kullanılabiliyormu nasıl programlanıyor mesajları okudum fakat daha önce macro görmediğim için pek bir şey anlamadım yardımcı olurmusunuz.
T0101;
#1= 20;
M66
M30 DESEN NASIL OLUR SİNAN ???
PROĞRAM NOSU: 9001
G0XO. Z2.
G1101 W2. F0.1 Q5. P2000 B3 L#1:
GOZ25.
G28U.W0.
M30
PARDON BÖYLE OLSA
T0101;
#1= 20;
M66
M30 DESEN NASIL OLUR SİNAN
PROĞRAM NOSU: 9001
G0XO. Z2.
G1101 W2. F0.1 Q5. P2000 B3 L-#1:
GOZ25.
G28U.W0.
M30
fanuc oi tc de kullandım
G0 X0 Z2 yerine X5 yazsan bile X0 sıfıra iner bu komutlarla
Alıntı yapılan: cncexpert - Mayıs 10, 2009, 07:52:23 ÖS
PARDON BÖYLE OLSA
T0101;
#1= 20;
M66
M30 DESEN NASIL OLUR SİNAN
PROĞRAM NOSU: 9001
G0XO. Z2.
G1101 W2. F0.1 Q5. P2000 B3 L-#1:
GOZ25.
G28U.W0.
M30
fanuc oi tc de kullandım
G0 X0 Z2 yerine X5 yazsan bile X0 sıfıra iner bu komutlarla
evet ustam haklısın ne yazarsan yaz x0 iniyor sebebi 9000 li bir makro alt proğrama uyması G1120 VE BENZERİ komutlar gizli makro sayfalarına atanmış komutlar bence onları görünür hale getirmeye çalışıyorum ama önce parametrelerin yedegini alma işini aşmam gerekli
ayrıca ilgine teşekkür ederim...
bu konu birazda büyürse tek başına arşiv olucak maşallah ustalar
merhaba ustalarım benim bi bilgiye ihtiyacım var cnc torna kullanıyorum biri gls 200 godway digeri huyundaı-kıa cok adetli parçalar yapıyoruz bu site ile yeni tanıstım en ufak mesela pul kesiyorum ve bunu 5 li 10 lu adetlerle kesmek istiyorum surucude calsıyorum ve program yazmak hesap yapmak zamanlarımı alıp goturuyor ben macro die bişi duydum bunu merak ediyor ve ogrenmek istiyorum alli.basaran@hotmail.com
SENİN işini referans kaydırmak g10 komutu ve 1 adet alt proğram görür makro ögren tabi yardımcı olalım ama ne gibi bir faydası olacak sana mesela şu işim var de biz makroyla proğramlıyalım ve faydasını beraber görelim
örnek burada bir kanal açma makrosu var torna için
http://www.turkeycnc.com/macro-programlama/tornada-kanal-acmak-icin-kullanilan-makro-21made-in-sinan-t3960.0.html
g10 derken abicim
Alıntı yapılan: alli.basaran - Mayıs 28, 2009, 12:23:26 ÖÖ
g10 derken abicim
şöle DİYELİMKİ 3 MM PUL KESİYORSUN KESKİ KATERİNDE 3 MM OLSUN
O0001
G97S1000M03
M98P2L5
G28U0W0
M30
O0002
G10P1L2W-6.
G0X100.Z-6.
G1X0.
G0X100.
G28U0W0
G10P1L2W30.
M99
İKİSİNİDE TEZGAHA YAZ O1 NUMARALI PROĞRAMI GÜVENLİ BİR YERDE GÖRMEK AMAÇLI ÇAIŞTIR SIFIRI GERİYE ALARAK GÖR DİREK MALZEMDE KULLANMA...
Selam millet.
İsmet Erol arkadaş, tebrik ederim. Bu macro konusunda gördüğüm en yetenekli kişisin.
Bilgilerini bizimle paylaşmaya devam edersen sevinirim.
Alıntı yapılan: alli.basaran - Mayıs 28, 2009, 12:23:26 ÖÖ
g10 derken abicim
arkadaşaım ikinci mesajından sonra işine yaradı ise burada belirt işe yaramadı ise farklı şeyler deneyelim ama ölece bi konuyu bırakıp gitme ara sıra gel derim2 sms son ra no sim faunt aaaaa
şimdi arkadaşlar yanlış anlamayın ama okuduklarımdan anladığım kadarıyla konuşuyorum.
ilk başta bazı değerleri parametre yapıyoruz sanırım 1 gibi 2 gibi. önüne #koyarak. ve bunlara değer atıyoruz.ve bu değerlere bakarak programı yazıyoruz.
yani #1 i yap dediğimizde o parametreye verilen değeri yapıyor. sonrasında if[#1 eq #2] goto n20 misal dediğimizde birinci değeri ikinciye eşitlediği zaman n20 satırına gidiyor aşağıda yada yukarıda.sonrasında durum yine aynı devam ediyor. eğer #1 deki değerden farklı bir yere gitmek istiyorsak onu toplama işlemiyle gösteriyoruz makinaya #1 sonra ıf [#1 eq #1] goto n10 sonra [#1+5] diye devam ediyor sanırım. yanlışım varsa düzeltirseniz sevinirim. bi ara basic le uğraştım baya onunla aşağı yukarı aynı. hatta mantığı aynı sanırım. yani bunu yapan bilgisayar programını da yapabilir tabi bence :)
iyi güzel ama daha o her numaranında istersen karsılıgı var makina #24 x #25y #26z #9f vb ilerleme anlamına geliyor kitabına bakmadan biraz zor anlarsın mesela bunlara degerverirken otamtik o deger atanabiliyot G65 P9550 X150 Y50 Z20 DERSEN YUKARDA YAZDIGIM SEYLERE DEGER VERMİŞ OLURSUN
şimdi rakama değer atayabilmek için onu parantez içinde okutmamız gerekmiyor mu yani. şunun gibi mesela [#1=x50] [#2=y20] [#3=z10]. bunu program satırına yazınca belittiğimiz noktaya gitmek için şöyle mi yapıyoruz g65 p2000 misal. p2000 de de ilk satır g0 g90 #1 #2 #3. yani direk bunu yazınca o noktaya gidiyormu onu merak ettim
O 001
#1=50
#2=20
#3=10
G0 G90 X#1 Y#2 Z#3 SEKLINDE YAZMAN GEREKIR
Alıntı yapılan: birkan66 - Temmuz 08, 2009, 04:03:19 ÖS
O 001
#1=50
#2=20
#3=10
G0 G90 X#1 Y#2 Z#3 SEKLINDE YAZMAN GEREKIR
teşekkürler kardeşim. bi denemeye çalışacağım bakalım olacak mı. bi yerden başlamak lazım bunlara
Alıntı yapılan: canip - Temmuz 07, 2009, 09:08:22 ÖS
şimdi arkadaşlar yanlış anlamayın ama okuduklarımdan anladığım kadarıyla konuşuyorum.
ilk başta bazı değerleri parametre yapıyoruz sanırım 1 gibi 2 gibi. önüne #koyarak. ve bunlara değer atıyoruz.ve bu değerlere bakarak programı yazıyoruz.
yani #1 i yap dediğimizde o parametreye verilen değeri yapıyor. sonrasında if[#1 eq #2] goto n20 misal dediğimizde birinci değeri ikinciye eşitlediği zaman n20 satırına gidiyor aşağıda yada yukarıda.sonrasında durum yine aynı devam ediyor. eğer #1 deki değerden farklı bir yere gitmek istiyorsak onu toplama işlemiyle gösteriyoruz makinaya #1 sonra ıf [#1 eq #1] goto n10 sonra [#1+5] diye devam ediyor sanırım. yanlışım varsa düzeltirseniz sevinirim. bi ara basic le uğraştım baya onunla aşağı yukarı aynı. hatta mantığı aynı sanırım. yani bunu yapan bilgisayar programını da yapabilir tabi bence :)
basic le mantık aynı
işleyiş farklı
paylaşım yapan herkesin eline, koluna, aklına ve emeğine sağlık paylaşımlar için çok teşekkürler
O7000 (YAZI YAZMA PROGRAMI)
T1 M06
N10 M03 S8000
G90 G54 G00 X-0.2 Y0. M08
G43 H01 Z3.
#503= 10.
#500= [ #503 / 1.782 ]
#501= 1. (Z YAZMAYA BASLAMA MESAFES])
#502= 3. (EMNIYET MESAFESI Z)
G65 P7001 A1. B-0.02 C15. D40. E1. (A)
G65 P7001 A2. B-0.02 C15. D40. E1. (B)
G65 P7001 A3. B-0.02 C15. D40. E1. (C)
G65 P7001 A4. B-0.02 C15. D40. E1. (D)
G65 P7001 A5. B-0.02 C15. D40. E1. (E)
G65 P7001 A6. B-0.02 C15. D40. E1. (F)
G65 P7001 A7. B-0.02 C15. D40. E1. (G)
G65 P7001 A8. B-0.02 C15. D40. E1. (H)
G65 P7001 A9. B-0.02 C15. D40. E1. (I)
G65 P7001 A10. B-0.02 C15. D40. E1. (J)
G65 P7001 A11. B-0.02 C15. D40. E1. (K)
G65 P7001 A12. B-0.02 C15. D40. E1. (L)
G65 P7001 A13. B-0.02 C15. D40. E1. (M)
G65 P7001 A14. B-0.02 C15. D40. E1. (N)
G65 P7001 A15. B-0.02 C15. D40. E1. (O)
G65 P7001 A16. B-0.02 C15. D40. E1. (P)
G65 P7001 A17. B-0.02 C15. D40. E1. (R)
G65 P7001 A18. B-0.02 C15. D40. E1. (S)
G65 P7001 A19. B-0.02 C15. D40. E1. (T)
G65 P7001 A20. B-0.02 C15. D40. E1. (U)
G65 P7001 A21. B-0.02 C15. D40. E1. (V)
G65 P7001 A22. B-0.02 C15. D40. E1. (W)
G65 P7001 A23. B-0.02 C15. D40. E1. (X)
G65 P7001 A24. B-0.02 C15. D40. E1. (Y)
G65 P7001 A25. B-0.02 C15. D40. E1. (Z)
N20 G28 G91 Z0 (REFERANS NOKTASI)
M30
Program O7000
A=HARF SEÇME
B=Z DERINLIK
C=Z DALMA HIZI
D=KESME HIZI
E=BASKA HARF VARMI (1.=EVET,0.=HAYIR)
#503 YAZI BOYU
HARF SEÇME KODLARI
BOSLUK=0. A=1. B=2. C=3. D=4. E=5. F=6.
G=7. H=8. I=9. J=10. K=11. L=12. M=13.
N=14. O=15. P=16.Q=17. R=18. S=19. T=20.
U=21. V=22. W=23. X=24. Y=25. Z=26.
%
O07001
IF [ #1 EQ 0. ] GOTO100
IF [ #1 EQ 1. ] GOTO1
IF [ #1 EQ 2. ] GOTO2
IF [ #1 EQ 3. ] GOTO3
IF [ #1 EQ 4. ] GOTO4
IF [ #1 EQ 5. ] GOTO5
IF [ #1 EQ 6. ] GOTO6
IF [ #1 EQ 7. ] GOTO7
IF [ #1 EQ 8. ] GOTO8
IF [ #1 EQ 9. ] GOTO9
IF [ #1 EQ 10. ] GOTO10
IF [ #1 EQ 11. ] GOTO11
IF [ #1 EQ 12. ] GOTO12
IF [ #1 EQ 13. ] GOTO13
IF [ #1 EQ 14. ] GOTO14
IF [ #1 EQ 15. ] GOTO15
IF [ #1 EQ 16. ] GOTO16
IF [ #1 EQ 17. ] GOTO17
IF [ #1 EQ 18. ] GOTO18
IF [ #1 EQ 19. ] GOTO19
IF [ #1 EQ 20. ] GOTO20
IF [ #1 EQ 21. ] GOTO21
IF [ #1 EQ 22. ] GOTO22
IF [ #1 EQ 23. ] GOTO23
IF [ #1 EQ 24. ] GOTO24
IF [ #1 EQ 25. ] GOTO25
IF [ #1 EQ 26. ] GOTO26
(A )
N1 G91 G00 X [ #500 * 0.2203 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 0.7796 ] Y [ #500 * 1.782 ] F#7
X [ #500 * 0.7796 ] Y - [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.4018 ] Y [ #500 * 0.9186 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.7554 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.6222 ] Y - [ #500 * 1.0366 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(B )
N2 G91 G00 X [ #500 * 0.1923 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 1.041 ]
G02 R [ #500 * 0.4179 ] J - [ #500 * 0.4179 ] Y - [ #500 * 0.8358 ]
G01 X - [ #500 * 1.041 ]
G90 G00 Z#502
G91 G00 Y - [ #500 * 0.9462 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 1.1422 ] F#7
G03 R [ #500 * 0.4731 ] J [ #500 * 0.4731 ] Y [ #500 * 0.9462 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.3345 ] Y - [ #500 * 1.0642 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(C )
N3 G91 G00 X [ #500 * 1.3288 ] Y [ #500 * 0.1719 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01
G02 R [ #500 * 0.891 ] I - [ #500 * 0.3288 ] J [ #500 * 0.828 ] Y [ #500 * 0.828 ] X - [ #500 * 1.2198 ] F#7
G02 R [ #500 * 0.891 ] I [ #500 * 0.891 ] X [ #500 * 1.2198 ] Y [ #500 * 0.828 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.3288 ] Y - [ #500 * 1.828 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(D )
N4 G91 G00 X [ #500 * 0.1129 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 0.633 ]
G02 R [ #500 * 0.891 ] J - [ #500 * 0.891 ] Y - [ #500 * 1.782 ]
G01 X - [ #500 * 0.633 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.1129 ] Y - [ #500 * 0.118 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(E )
N5 G91 G00 X [ #500 * 1.5895 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 1.1791 ] F#7
Y [ #500 * 1.782 ]
X [ #500 * 1.1791 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.4535 ] Y - [ #500 * 0.8319 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.7256 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.4104 ] Y - [ #500 * 1.068 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(F )
N6 G91 G00 X [ #500 * 0.2474 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 1.5051 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.7306 ] Y - [ #500 * 0.891 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.7744 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.2474 ] Y - [ #500 * 1.009 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(G )
N7 G91 G00 X [ #500 * 1.4273 ] Y [ #500 * 1.009 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 0.4636 ] F#7
G02 R [ #500 * 0.891 ] X - [ #500 * 1.782 ] I - [ #500 * 0.891 ]
G02 R [ #500 * 0.891 ] I [ #500 * 0.891 ] X [ #500 * 1.2891 ] Y [ #500 * 0.797 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.3981 ] Y - [ #500 * 1.806 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(H )
N8 G91 G00 X [ #500 * 0.2587 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X [ #500 * 1.4825 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y - [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 Y [ #500 * 0.891 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 1.4825 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.2587 ] Y - [ #500 * 1.009 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(I )
N9 G91 G00 X [ #500 * 0.4908 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 1.0182 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.5091 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.5091 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 1.0182 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 1.5091 ] Y - [ #500 * 1.8999 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(J )
N10 G91 G00 X [ #500 * 0.9405 ] Y [ #500 * 1.9 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 0.7128 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.3564 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y - [ #500 * 1.3067 ] F#7
G02 R [ #500 * 0.4752 ] I - [ #500 * 0.4752 ] X - [ #500 * 0.9504 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.3465 ] Y - [ #500 * 0.5932 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(K )
N11 G91 G00 X [ #500 * 0.4174 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 Y - [ #500 * 0.891 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 1.0145 ] Y [ #500 * 0.891 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.7972 ] Y - [ #500 * 0.7001 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 0.9478 ] Y - [ #500 * 1.0818 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 1.5825 ] Y - [ #500 * 0.118 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(L )
N12 G91 G00 X [ #500 * 1.4625 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.9251 ] F#7
Y [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.5374 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(M )
N13 G91 G00 X [ #500 * 0.3317 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 0.6682 ] Y - [ #500 * 1.782 ]
X [ #500 * 0.6682 ] Y [ #500 * 1.782 ]
Y - [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.6682 ] Y - [ #500 * 0.118 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(N )
N14 G91 G00 X [ #500 * 0.2705 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 1.4589 ] Y - [ #500 * 1.782 ]
Y [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.7294 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(O )
N15 G91 G00 X [ #500 * 1.6364 ] Y [ #500 * 0.7544 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 0.5091 ] F#7
G03 R [ #500 * 0.6364 ] I - [ #500 * 0.6364 ] X - [ #500 * 1.2728 ]
G01 Y - [ #500 * 0.5091 ]
G03 R [ #500 * 0.6364 ] I [ #500 * 0.6364 ] X [ #500 * 1.2728 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.6364 ] Y - [ #500 * 0.7544 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(P )
N16 G91 G00 X [ #500 * 0.4918 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 0.5722 ]
G02 R [ #500 * 0.4440 ] J - [ #500 * 0.4440 ] Y - [ #500 * 0.8880 ]
G01 X - [ #500 * 0.5722 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.4918 ] Y - [ #500 * 1.0119 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(Q )
N17 G91 G00 X [ #500 * 1.714 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.4700 ] Y [ #500 * 0.4700 ] F#7
G90 G00 Z#502
G91 G00 X [ #500 * 0.3923 ] Y [ #500 * 0.1664 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 0.5091 ] F#7
G03 R [ #500 * 0.6364 ] I - [ #500 * 0.6364 ] X - [ #500 * 1.2728 ]
G01 Y - [ #500 * 0.5091 ]
G03 R [ #500 * 0.6364 ] I [ #500 * 0.6364 ] X [ #500 * 1.2728 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 1.6364 ] Y - [ #500 * 0.7544 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
( R )
N18 G91 G00 X [ #500 * 0.4129 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
X [ #500 * 0.7934 ]
G02 R [ #500 * 0.3807 ] J - [ #500 * 0.3807 ] Y - [ #500 * 0.7614 ]
G01 X - [ #500 * 0.7934 ]
G90 G00 Z#502
G91 G00 X [ #500 * 0.6739 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 0.5001 ] Y - [ #500 * 1.0205 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 1.5870 ] Y - [ #500 * 0.118 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(S )
N19 G91 G00 X [ #500 * 1.6543 ] Y [ #500 * 1.6772 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91
G03 R [ #500 * 0.891 ] I - [ #500 * 0.5929 ] J - [ #500 * 0.6650 ] X - [ #500 * 0.6682 ] Y [ #500 * 0.2227 ] F#7
G03 R [ #500 * 0.4455 ] J - [ #500 * 0.4455 ] Y - [ #500 * 0.891 ]
G01 X [ #500 * 0.2572 ]
G02 R [ #500 * 0.4469 ] I - [ #500 * 0.0359 ] J - [ #500 * 0.4455 ] X [ #500 * 0.4109 ] Y - [ #500 * 0.4455 ]
G02 R [ #500 * 0.4469 ] I - [ #500 * 0.4469 ] X - [ #500 * 0.4109 ] Y - [ #500 * 0.4455 ]
G01 X - [ #500 * 0.3100 ]
G02 R [ #500 * 0.891 ] I [ #500 * 0.0263 ] J [ #500 * 0.8906 ] X - [ #500 * 0.5877 ] Y [ #500 * 0.2450 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.3456 ] Y - [ #500 * 0.3630 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(T )
N20 G91 G00 X [ #500 * 1. ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.891 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 1.891 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(U )
N21 G91 G00 X [ #500 * 1.7637 ] Y [ #500 * 1.9 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 Y - [ #500 * 1.0182 ] F#7
G02 R [ #500 * 0.7637 ] I - [ #500 * 0.7637 ] X - [ #500 * 1.5274 ]
G01 Y [ #500 * 1.0182 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.2362 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(V )
N22 G91 G00 X [ #500 * 1.6682 ] Y [ #500 * 1.9 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.6682 ] Y - [ #500 * 1.782 ] F#7
X - [ #500 * 0.6682 ] Y [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.3317 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(W )
N23 G91 G00 X [ #500 * 1.8591 ] Y [ #500 * 1.9 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.3500 ] Y - [ #500 * 1.782 ] F#7
X - [ #500 * 0.5091 ] Y [ #500 * 1.782 ]
X - [ #500 * 0.5091 ] Y - [ #500 * 1.782 ]
X - [ #500 * 0.3500 ] Y [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.1408 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(X )
N24 G91 G00 X [ #500 * 1.8909 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 1.782 ] Y [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X [ #500 * 1.782 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 1.782 ] Y - [ #500 * 1.782 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.109 ] Y - [ #500 * 0.118 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(Y )
N25 G91 G00 X [ #500 * 1.6615 ] Y [ #500 * 1.9 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.6615 ] Y - [ #500 * 0.882 ] F#7
Y - [ #500 * 0.8909 ]
G90 G00 Z#502
G91 G00 Y [ #500 * 0.8909 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 0.6615 ] Y [ #500 * 0.882 ] F#7
G90 G00 Z#502
G91 G00 X - [ #500 * 0.3385 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(Z )
N26 G91 G00 X [ #500 * 1.891 ] Y [ #500 * 0.118 ]
G90 G00 Z#501
G90 G01 Z#2 F#3
G91 G01 X - [ #500 * 1.782 ] F#7
X [ #500 * 1.782 ] Y [ #500 * 1.782 ]
X - [ #500 * 1.782 ]
G90 G00 Z#502
G91 G00 X - [ #500 * 0.109 ] Y - [ #500 * 1.9 ]
IF [ #8 EQ 1. ] GOTO100
IF [ #8 EQ 0. ] GOTO200
(HER HARFTEN SONRA SICRADIGI YER)
N100 G90 G00 Z#502
G91 G00 X[#500 *2.0000] (BOSLUK BIRAKIYOR)
N200 M99
%
arkadaslar makro programı lazım pc de kurmak icn yenym yardımcı olsanız cokiyi olur tesekürler simdiden
macro temel denemeler
iso cod yazım MACRO YAZIM
#1=50 (X DEGERİ) buradaki bu degerleri neye gore buldunuz acaba #1=50 mesela yardimci olursaniz sevinirim
#2=90 (Y DEGERİ)
#3=30 (Z DEGERİ)
G0X50Y-90Z50M08 G0X#1Y-#2Z50M08
G81Z-30R5F300 G81Z-#3R5F300
X-50 X-#1
Y90 Y#2
X50 X#1
G80 G80
G0Z200 G0Z200
M05 M05
M09 M09
alinti ismeterol
aynen o degerleri neye gore verdınız x-50. neye gore x-#1 oluyo.
bu aralar pek giren olmuyo sanırım cevap vermediklerine göre...
slm herkese ben de macroyu yenı ogrenıyorum emegınıze tsk
programları inceleyip öğrenmeye çalışıyorum.
hepinize teşekkür ediyorum
usta (neden makro program) bize verecegi avantajlar nedır nasıl bır kolaylık saglar şu şu işe yarar bu şu işe tarar deyilde şu bizim NE İŞİMİZE yarar diye başlamak istiyorum saygılar
örnek macro programlara bakarsan anlarsın.ne işimize yaradıgını ne kolaylıklar sagladıgını
hocam macroyu ögrenmek iştiyorum ama tezgahı bozarım diye tereddüt ediyorum bunları ben solidde çizim solidcam de işleerek yapsam macroya ihtiyaç kalmıyor sanırım ...
macro uzun programları kısa bir programla yapabiliyorsun degişken kullanarak alt program kullanmana gerek kalmıyo daha bir çok özellikleri var....
ya cam programın varsa hiç makro programla uğraşma .Nedi ne gelirsek; Cam programınla ileriye dönük güncellemeler,değişik işlemler yapabilirsin amma makro sadece yapabildiği işi yapar.Kısıtlamış olur bizleri,bunun yanında makro o anlık pratik çözümler üretebilir amma,benim kendi görüşüm;farklı ,işlemler yapacağımız zaman kafa karıştırıcı oluyor.Makro programın g65 li satırı her zaman yeni değerlere göre güncelleniyor örnek;özel bir takım kullandınız ve çapını da deneme yanılmayla buldunuz.Bunu cam programıyla yapsaydınız cam verileri değişmeyecekti ve tekrardan aynı sürece katlanmayacaktınız.Bakın nu örnek çok minik konunun anlaşılması için verilen bir örnekti,saptırmayalım.
Alıntı yapılan: temur - Ağustos 15, 2012, 05:32:57 ÖS
ya cam programın varsa hiç makro programla uğraşma .Nedi ne gelirsek; Cam programınla ileriye dönük güncellemeler,değişik işlemler yapabilirsin amma makro sadece yapabildiği işi yapar.Kısıtlamış olur bizleri,bunun yanında makro o anlık pratik çözümler üretebilir amma,benim kendi görüşüm;farklı ,işlemler yapacağımız zaman kafa karıştırıcı oluyor.Makro programın g65 li satırı her zaman yeni değerlere göre güncelleniyor örnek;özel bir takım kullandınız ve çapını da deneme yanılmayla buldunuz.Bunu cam programıyla yapsaydınız cam verileri değişmeyecekti ve tekrardan aynı sürece katlanmayacaktınız.Bakın nu örnek çok minik konunun anlaşılması için verilen bir örnekti,saptırmayalım.
Öyle anlar gelir ki; herşeyin bittiğini sandığınız yerde makro programlar devreye girer. Burada anlatılmayan o kadar çok şey var ki makroların kabiliyetleri hakkında. Basitçe anlatayım. Makro programlar içinde tezgahla ilgili bir çok veriyi okuyabilir o şartlara göre tezgahınıza hareket verebilirsiniz. O anda tezgahınızın makine sıfırına göre konumu , parça sıfırına göre konumu, takım boy ofsetleri, takım numarası, o anki tarih, saat, saniyesine kadar aklınıza gelebilecek daha bir çok veri okutulabilir ve yazılabilir.
Çok basit ve komik bir örnekle;
Yeni tezgahımızın takım değiştirme makrosununda bazı düzenlemeler yapmıştım. Bu arada komedi olsun diye makro programın başına birkaç satır ekledim. Şöyle bir şart koydum. Saat 15:00 ile 16:00 arasında magazin çalışmıyor ve ekranda şu mesaj çıkıyor "GREVDEYIM CALISMIYORUM" İyi de gülmüştük hani. :)
Herkez makro bilmeli mi? Herkez bilecek diye birşey yok. Ama bilene çok ama çoooooooook şey kattığı kesin.
çap programı macro
G80 G40 G49 G90 G15 G17
T1 M6 (20 TARAMA)
G0 G90 G54 X0 Y0
G43 Z10 H01
S1500 M3
G0 Z0
G1 X-30 F600
#1=0
N20 IF [#1EQ35] GOTO 21 (35 tekrar sayısı)
G03 G91 I30 Z-2 F500 (alt program)
#1=#1+1
GOTO20
N21
G0 G90 Z50
M5
G91 G28 Z0
M30
KISA VE BASİT BİR MACRO AMA ÇOK KULLANIŞLI
Alıntı yapılan: arifbanabak - Şubat 09, 2013, 12:32:51 ÖS
çap programı macro
G80 G40 G49 G90 G15 G17
T1 M6 (20 TARAMA)
G0 G90 G54 X0 Y0
G43 Z10 H01
S1500 M3
G0 Z0
G1 X-30 F600
#1=0
N20 IF [#1EQ35] GOTO 21 (35 tekrar sayısı)
G03 G91 I30 Z-2 F500 (alt program)
#1=#1+1
GOTO20
N21
G0 G90 Z50
M5
G91 G28 Z0
M30
KISA VE BASİT BİR MACRO AMA ÇOK KULLANIŞLI
***************************
Usta Eline sağlık
arkadaşlar hepinizden allah razı olsun bu verdiginiz bilgiler paha biçilmez ama bazı cevap bulamadıgımız konular var örnegin küre makrosunda SQRT ne anlama geliyo ve başlayacagı nasıl ayarlarız şimdiden teşekkürler
çap programı macro
G80 G40 G49 G90 G15 G17
T1 M6 (20 TARAMA)
G0 G90 G54 X0 Y0
G43 Z10 H01
S1500 M3
G0 Z0
G1 X-30 F600
#1=0
N20 IF [#1EQ35] GOTO 21 (35 tekrar sayısı)
G03 G91 I30 Z-2 F500 (alt program)
#1=#1+1
GOTO20
N21
G0 G90 Z50
M5
G91 G28 Z0
M30
KISA VE BASİT BİR MACRO AMA ÇOK KULLANIŞLI
[/quote]
***************************
Usta Eline sağlık
[/quote]
çok saol güzel paylaşım
Alıntı yapılan: ismeterol - Şubat 08, 2008, 12:42:19 ÖS
BANA İŞTE KULLANDIGINIZ MANUEL İSO CODLU PROGRAMLARDAN ÇOK KULLANDIGINIZ AYAR YAPARKEN HEP AYNI DEGERLERİ DEGİŞTİREREK AYAR YAPTIGINIZ BİR PROGRAMI GÖNDERİN MACROYA ÇEVİRELİM SİZDE SADECE PROGRAMIN BAŞINA KOYACAGIMIZ DEGİŞKENLERLE OYNAYARAK 100 LERCE SATIRLIK BİR PROGRAMI YENİ İŞE 30 SANİYEDE AYARLAMIŞ OLUN HATA VEGÖZDEN KAÇİRMA İHTİMALLERİNİ %1 E DÜŞÜRÜN.... GÖDERDİGİNİZ PROGRAMI TARİF ETMEYİ UNUTMAYIN... BASİT İÇERİKLİ OLSUN Kİ YAPACAGI İŞİ BURADAN HAYAL EDEBİLEYİM...SİZDE BU ÖRNEKLE DİGER TÜM PROGRAMLARINIZI MACRO YAPABİLİRSİNİZ.....................SAYGILAR ;)
bu formda buldum bunu
G17G80G40
T1 M6
G90G54 G0 X15 Y25
G43 H1 Z50
M3 S2000
G1 Z0 F500
#1=0
N500 IF[#1EQ20] GOTO501
X100
Y100
X-100
Y-100
#1=#1+1
GOTO500
N501
G91G28Z0
M5
M9
M30
Q20 TEKRAR SAYISI...
burda hatve değeri hangisi bulamadım yani Q tekrar ama hep Z0 da dönüyor
Birde bu programın takım yarıçap telafili olanı(G41) nasıl olur en çok bu proğram tarzı kullanıyorum
şimdiden teşekkürler
Alıntı yapılan: saladin - Nisan 17, 2013, 10:22:37 ÖÖ
Alıntı yapılan: ismeterol - Şubat 08, 2008, 12:42:19 ÖS
BANA İŞTE KULLANDIGINIZ MANUEL İSO CODLU PROGRAMLARDAN ÇOK KULLANDIGINIZ AYAR YAPARKEN HEP AYNI DEGERLERİ DEGİŞTİREREK AYAR YAPTIGINIZ BİR PROGRAMI GÖNDERİN MACROYA ÇEVİRELİM SİZDE SADECE PROGRAMIN BAŞINA KOYACAGIMIZ DEGİŞKENLERLE OYNAYARAK 100 LERCE SATIRLIK BİR PROGRAMI YENİ İŞE 30 SANİYEDE AYARLAMIŞ OLUN HATA VEGÖZDEN KAÇİRMA İHTİMALLERİNİ %1 E DÜŞÜRÜN.... GÖDERDİGİNİZ PROGRAMI TARİF ETMEYİ UNUTMAYIN... BASİT İÇERİKLİ OLSUN Kİ YAPACAGI İŞİ BURADAN HAYAL EDEBİLEYİM...SİZDE BU ÖRNEKLE DİGER TÜM PROGRAMLARINIZI MACRO YAPABİLİRSİNİZ.....................SAYGILAR ;)
bu formda buldum bunu
G17G80G40
T1 M6
G90G54 G0 X15 Y25
G43 H1 Z50
M3 S2000
G1 Z0 F500
#1=0
N500 IF[#1EQ20] GOTO501
X100
Y100
X-100
Y-100
#1=#1+1
GOTO500
N501
G91G28Z0
M5
M9
M30
Q20 TEKRAR SAYISI...
burda hatve değeri hangisi bulamadım yani Q tekrar ama hep Z0 da dönüyor
Birde bu programın takım yarıçap telafili olanı(G41) nasıl olur en çok bu proğram tarzı kullanıyorum
şimdiden teşekkürler
Bu program Z0 da 20 kere dolanıyor. Herhangi bir dalma yapılmamış.
sitede buldugunuz program mı ben yazdım sadece sadece bir örnek verdim alt programdan daha iyi ve basit oldugu için sizin dediginiz şekilde yazmışdım ben telafi kullanarak....
T1 M6(20.parmak.freze)
G90 G0 G54 X-25 Y-30
G43 H1 Z50
M3 S1500
G1 Z0 F200
#1 =0
N111[#1 EQ 20] GOTO222 (20 TEKRAR)
G91 G1 Z-1 F1500
G90 G01 G42 X0 D1 (TAKIM YARI CAP OKUTTUK)
G1 Y-100
X100
Y0
X0
Y20
X-20
G91 G0 Z100
G90 G0 G40 X-25 Y-30
G91 G0 Z-100
#1=#1+1( SATIRIN BİTİGİ YER )
GOTO111
N222
G90 G0 Z100 M5
M30
burda GOTO111 ve N222 aynı program içinde bir kere kullanabilirsiniz ana program içine birden fazla macro yazıcaksanız GOTO555 N666 olmalı bu satır numaraları birbiriyle aynı olmamalı...
Yaman usta saol eline sağlık birde ricam örneğin bir plaka üzerinde aynı çapta 10 delik var bunları macro kullanarak tek programda nasıl çap işleriz
ben normalde her delik kordinatına ayrı ayrı başlıkla program yazıyordum bu macro beni baya bir iştahlandırdı benim yaptığım zormuş..
Öğrenecek çok şey var
şimdiden teşekkürler emeği geçenlere
1-(DELİK)
T1 M6(16.PARMAK.FREZE)
G90 G54 G0 X7.0 Y0
G43 H1 Z50
M3 S2000
G0 Z2
G1 Z0 F200
#1 =0
N111 IF[#1 EQ 10] GOTO222
G91 G3 I-7 Z-1 F2000
#1=#1+1
N222
GOTO111
G90 G0 Z50
2-(DELİK)
G52 X50 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N333 IF[#1 EQ 10] GOTO444
G91 G3 I-7 Z-1 F2000
#1=#1+1
N444
GOTO333
G90 G0 Z50
3-(DELİK)
G52 X100 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N555 IF[#1 EQ 10] GOTO666
G91 G3 I-7 Z-1 F2000
#1=#1+1
N666
GOTO555
G90 G0 Z50
4-(DELİK)
G52 X150 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N888 IF[#1 EQ 10] GOTO777
G91 G3 I-7 Z-1 F2000
#1=#1+1
N777
GOTO888
G90 G0 Z50
5-(DELİK)
G52 X200 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N750 IF[#1 EQ 10] GOTO850
G91 G3 I-7 Z-1 F2000
#1=#1+1
N850
GOTO750
G90 G0 Z50
6-(DELİK)
G52 X250 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N650 IF[#1 EQ 10] GOTO660
G91 G3 I-7 Z-1 F2000
#1=#1+1
N660
GOTO650
G90 G0 Z50
7-(DELİK)
G52 X300 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N789 IF[#1 EQ 10] GOTO456
G91 G3 I-7 Z-1 F2000
#1=#1+1
N456
GOTO789
G90 G0 Z50
8-(DELİK)
G52 X350 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N963 IF[#1 EQ 10] GOTO852
G91 G3 I-7 Z-1 F2000
#1=#1+1
N852
GOTO963
G90 G0 Z50
9-(DELİK)
G52 X400 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N147 IF[#1 EQ 10] GOTO159
G91 G3 I-7 Z-1 F2000
#1=#1+1
N159
GOTO147
G90 G0 Z50
10-(DELİK)
G52 X450 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N753 IF[#1 EQ 10] GOTO357
G91 G3 I-7 Z-1 F2000
#1=#1+1
N357
GOTO753
G0 G90 Z100
G52 X0 Y0
M5
M30
bu programda 10 adet delik var eksen ölcüleri 50 mm 10 mm kalınlıgında bir malzeme ve 10 tekrar (EQ10 TEKRAR) ve 16 freze ile delikleri 30 capında işledik hepsine ayrı ayrı sıfır belirtmene gerek yok G52 komutunu kullanarak yapabilirsin G52 X50 Y30 diye yazarsan tezkah orayı sıfır kabul eder iptal etmeyi unutma ;) iptali G52 X0 Y0...
Alıntı yapılan: yaman - Nisan 20, 2013, 11:58:31 ÖS
1-(DELİK)
T1 M6(16.PARMAK.FREZE)
G90 G54 G0 X7.0 Y0
G43 H1 Z50
M3 S2000
G0 Z2
G1 Z0 F200
#1 =0
N111 IF[#1 EQ 10] GOTO222
G91 G3 I-7 Z-1 F2000
#1=#1+1
N222
GOTO111
G90 G0 Z50
2-(DELİK)
G52 X50 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N333 IF[#1 EQ 10] GOTO444
G91 G3 I-7 Z-1 F2000
#1=#1+1
N444
GOTO333
G90 G0 Z50
3-(DELİK)
G52 X100 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N555 IF[#1 EQ 10] GOTO666
G91 G3 I-7 Z-1 F2000
#1=#1+1
N666
GOTO555
G90 G0 Z50
4-(DELİK)
G52 X150 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N888 IF[#1 EQ 10] GOTO777
G91 G3 I-7 Z-1 F2000
#1=#1+1
N777
GOTO888
G90 G0 Z50
5-(DELİK)
G52 X200 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N750 IF[#1 EQ 10] GOTO850
G91 G3 I-7 Z-1 F2000
#1=#1+1
N850
GOTO750
G90 G0 Z50
6-(DELİK)
G52 X250 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N650 IF[#1 EQ 10] GOTO660
G91 G3 I-7 Z-1 F2000
#1=#1+1
N660
GOTO650
G90 G0 Z50
7-(DELİK)
G52 X300 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N789 IF[#1 EQ 10] GOTO456
G91 G3 I-7 Z-1 F2000
#1=#1+1
N456
GOTO789
G90 G0 Z50
8-(DELİK)
G52 X350 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N963 IF[#1 EQ 10] GOTO852
G91 G3 I-7 Z-1 F2000
#1=#1+1
N852
GOTO963
G90 G0 Z50
9-(DELİK)
G52 X400 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N147 IF[#1 EQ 10] GOTO159
G91 G3 I-7 Z-1 F2000
#1=#1+1
N159
GOTO147
G90 G0 Z50
10-(DELİK)
G52 X450 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N753 IF[#1 EQ 10] GOTO357
G91 G3 I-7 Z-1 F2000
#1=#1+1
N357
GOTO753
G0 G90 Z100
G52 X0 Y0
M5
M30
bu programda 10 adet delik var eksen ölcüleri 50 mm 10 mm kalınlıgında bir malzeme ve 10 tekrar (EQ10 TEKRAR) ve 16 freze ile delikleri 30 capında işledik hepsine ayrı ayrı sıfır belirtmene gerek yok G52 komutunu kullanarak yapabilirsin G52 X50 Y30 diye yazarsan tezkah orayı sıfır kabul eder iptal etmeyi unutma ;) iptali G52 X0 Y0...
güzel paylaşım saol eline sağlık
benim tezgahta g25 kodu çalışmıyor opsiyonel olduğu içinmiş :(
buna macro program yapabilirmiyiz dahada kolay olur belki !
örneğin 150*100 dikdörtgen derinlik 20 mm 20 lik düz takımla cep boşaltmasını kademeli sadece kenar ölçülerini vererek kısa bir program yapılabilirmi
en çok kullanılan program tarzı makinemde
birde dikkat ettimde burda satın alınamayacak bilgi birikimi tecrübe paylaşılıyor
emeği geçen tüm ustalarıma
yardımlarınız için saolun emeğinize sağlık
emeginhe saglık usta çok teşekkürler çok istiyorum makro yazmayı ama okumakla zor olcak gibi
ofset settıngden gırdıkten sonra macro kısmındakı degerlerı degıstırmeye calıstıgımda wrie protecet alarm mı alıyorum nedne acaba
Alıntı yapılan: Boscerceve - Eylül 05, 2013, 08:06:07 ÖS
ofset settıngden gırdıkten sonra macro kısmındakı degerlerı degıstırmeye calıstıgımda wrie protecet alarm mı alıyorum nedne acaba
Değiştirmek istediğin değişken numarası örneğin 100, girmek istediğin değerde 3 olsun diyelim.
MDI modunda #100=3 deyip START'a bastığında #100 nolu değişken 3 olacaktır.
Alıntı yapılan: CK-53 - Eylül 07, 2013, 04:02:24 ÖS
Alıntı yapılan: Boscerceve - Eylül 05, 2013, 08:06:07 ÖS
ofset settıngden gırdıkten sonra macro kısmındakı degerlerı degıstırmeye calıstıgımda wrie protecet alarm mı alıyorum nedne acaba
Değiştirmek istediğin değişken numarası örneğin 100, girmek istediğin değerde 3 olsun diyelim.
MDI modunda #100=3 deyip START'a bastığında #100 nolu değişken 3 olacaktır.
Cok tesekkur ettım saolasın :)
bir değişken 5 in katlarıysa m100
5 in katları değil ise m101
şeklinde bir döngüyü nasıl yazabiliriz
Alıntı yapılan: tankaya61 - Nisan 14, 2015, 01:03:15 ÖS
bir değişken 5 in katlarıysa m100
5 in katları değil ise m101
şeklinde bir döngüyü nasıl yazabiliriz
O değişkeni 5'e böl. Sonuç tamsayı çıkmışsa
m100'ün olduğu satıra gönder. Tam sayı değise m101'in olduğu satıra gönder.
degisken 102 olsun. 102/5=20.4
sonucun tam sayi ciktiginda islem yapilmasini istiyorum.hangi komutla bunu sorgulatmam gerek
Alıntı yapılan: tankaya61 - Nisan 14, 2015, 09:46:15 ÖS
degisken 102 olsun. 102/5=20.4
sonucun tam sayi ciktiginda islem yapilmasini istiyorum.hangi komutla bunu sorgulatmam gerek
Dün çok yoğundum. Ancak bu saatte cevap yazabiliyorum, kusura bakma.
Burada bir tane 'ara değişkene' ihtiyaç var. Ara değişkenimiz #2 olsun.
#2=FIX[#102];
IF[#2 - #102 NE 0] GOTO 1;
M100;
GOTO 10;
N1 M101;
N10.......;
;
;
Sanırım açıklayıcı olmuştur.
Daha detaylı bilgi için www.cncmakro.com 'u inceleyiniz.
İyi geceler...
ilginiz için teşekkür ederim ancak ilk sorumda 5 in katlarında işlem yapmak istediğimiz yazmıştım. sonrasında tekrarlamadığım için soru biraz evrim geçirmiş oldu : ) işlemi mod alma metodu ile yaptım. tekrar ilginize teşekkür ederim.
Alıntı yapılan: yaman - Nisan 20, 2013, 11:58:31 ÖS
1-(DELİK)
T1 M6(16.PARMAK.FREZE)
G90 G54 G0 X7.0 Y0
G43 H1 Z50
M3 S2000
G0 Z2
G1 Z0 F200
#1 =0
N111 IF[#1 EQ 10] GOTO222
G91 G3 I-7 Z-1 F2000
#1=#1+1
N222
GOTO111
G90 G0 Z50
2-(DELİK)
G52 X50 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N333 IF[#1 EQ 10] GOTO444
G91 G3 I-7 Z-1 F2000
#1=#1+1
N444
GOTO333
G90 G0 Z50
3-(DELİK)
G52 X100 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N555 IF[#1 EQ 10] GOTO666
G91 G3 I-7 Z-1 F2000
#1=#1+1
N666
GOTO555
G90 G0 Z50
4-(DELİK)
G52 X150 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N888 IF[#1 EQ 10] GOTO777
G91 G3 I-7 Z-1 F2000
#1=#1+1
N777
GOTO888
G90 G0 Z50
5-(DELİK)
G52 X200 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N750 IF[#1 EQ 10] GOTO850
G91 G3 I-7 Z-1 F2000
#1=#1+1
N850
GOTO750
G90 G0 Z50
6-(DELİK)
G52 X250 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N650 IF[#1 EQ 10] GOTO660
G91 G3 I-7 Z-1 F2000
#1=#1+1
N660
GOTO650
G90 G0 Z50
7-(DELİK)
G52 X300 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N789 IF[#1 EQ 10] GOTO456
G91 G3 I-7 Z-1 F2000
#1=#1+1
N456
GOTO789
G90 G0 Z50
8-(DELİK)
G52 X350 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N963 IF[#1 EQ 10] GOTO852
G91 G3 I-7 Z-1 F2000
#1=#1+1
N852
GOTO963
G90 G0 Z50
9-(DELİK)
G52 X400 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N147 IF[#1 EQ 10] GOTO159
G91 G3 I-7 Z-1 F2000
#1=#1+1
N159
GOTO147
G90 G0 Z50
10-(DELİK)
G52 X450 Y0 (LOKAL KORDİNATA GECİŞ)
G0 X7 Y0
Z2
G1 Z0 F200
#1 =0
N753 IF[#1 EQ 10] GOTO357
G91 G3 I-7 Z-1 F2000
#1=#1+1
N357
GOTO753
G0 G90 Z100
G52 X0 Y0
M5
M30
bu programda 10 adet delik var eksen ölcüleri 50 mm 10 mm kalınlıgında bir malzeme ve 10 tekrar (EQ10 TEKRAR) ve 16 freze ile delikleri 30 capında işledik hepsine ayrı ayrı sıfır belirtmene gerek yok G52 komutunu kullanarak yapabilirsin G52 X50 Y30 diye yazarsan tezkah orayı sıfır kabul eder iptal etmeyi unutma ;) iptali G52 X0 Y0...
Macro program ne kadar kisa ise o kadar makbuldur kanaatindeyim.zira isimizi kolaylastirmasi icin tercih ederiz.delik aralari kacis mesafeleri esit olduguna gore bir kontur birde kacislar icin iki denklem ile programi bitirebilirdin.
Arkadaşlar bu benim ilk makro programım çevre işleme programı radüs değişkenini sıfır yaparsak köşeleri pah kırarak yapıyor, radüs değişkenine radüs ölçümüzü yazarsak radüs olarak işliyor, yorumlarınız benim için değerli.
O0405(CEVRE.RADUS.PAH.MAC.)
#1=100(PARCA.X.BOYU)
#2=80(PARCA.Y.BOYU)
#3=10(PARCAKALINLIGI)
#4=5000(F.ILERLEME)
#5=16(TAKIM.YARICAPI)
#21=2(TAKIM.OFSET.NO)
#8=0(RADUS)
#9=5(PAH)
#12=0(Z.BASLANGIC.NOKTASI)
#20=2(PASO IKTARI)
#22=0(ELLEME)
#6=[[#1/2]+#5]
#7=[[#2/2]+#5]
#10=[#1/2]
#11=[#2/2]
G80G90G00G54
T#21M6
M3S5000
X-[#6+10]Y-[#7+10]
G43H#21D#21Z100
G1F#4Z0
IF[#8LT0.1]GOTO20
N10G1G91F#4Z-#20
G1G90G41X-#10
Y[#11-#8]
G02Y#11X-[#10-#8]R#8
G1X[#10-#8]
G2X#10Y[#11-#8]R#8
G1Y-[#11-#8]
G2Y-#11X[#10-#8]R#8
G1X-[#10-#8]
G2X-#10Y-[#11-#8]R#8
G1Y-[#11-10]
G40X-[#6+10]Y-[#7+10]
N4#22=#22+#20
IF[#22LT#3]GOTO10
N2G80G90G00Z200M09
M30
N20G91G1F#4Z-#20
G1G90G41X-#10
Y[#11-#9]
Y#11X-[#10-#9]
X[#10-#9]
X#10Y[#11-#9]
Y-[#11-#9]
Y-#11X[#10-#9]
X-[#10-#9]
X-#10Y-[#11-#9]
Y-[#11-10]
G40X-[#6+10]Y-[#7+10]
N5#22=#22+#20
IF[#22LT#3]GOTO20
N3G80G90G00Z200M09
M30
%
Alıntı yapılan: dagcikartal - Ocak 16, 2017, 12:33:34 ÖÖ
Arkadaşlar bu benim ilk makro programım çevre işleme programı radüs değişkenini sıfır yaparsak köşeleri pah kırarak yapıyor, radüs değişkenine radüs ölçümüzü yazarsak radüs olarak işliyor, yorumlarınız benim için değerli.
O0405(CEVRE.RADUS.PAH.MAC.)
#1=100(PARCA.X.BOYU)
#2=80(PARCA.Y.BOYU)
#3=10(PARCAKALINLIGI)
#4=5000(F.ILERLEME)
#5=16(TAKIM.YARICAPI)
#21=2(TAKIM.OFSET.NO)
#8=0(RADUS)
#9=5(PAH)
#12=0(Z.BASLANGIC.NOKTASI)
#20=2(PASO IKTARI)
#22=0(ELLEME)
#6=[[#1/2]+#5]
#7=[[#2/2]+#5]
#10=[#1/2]
#11=[#2/2]
G80G90G00G54
T#21M6
M3S5000
X-[#6+10]Y-[#7+10]
G43H#21D#21Z100
G1F#4Z0
IF[#8LT0.1]GOTO20
N10G1G91F#4Z-#20
G1G90G41X-#10
Y[#11-#8]
G02Y#11X-[#10-#8]R#8
G1X[#10-#8]
G2X#10Y[#11-#8]R#8
G1Y-[#11-#8]
G2Y-#11X[#10-#8]R#8
G1X-[#10-#8]
G2X-#10Y-[#11-#8]R#8
G1Y-[#11-10]
G40X-[#6+10]Y-[#7+10]
N4#22=#22+#20
IF[#22LT#3]GOTO10
N2G80G90G00Z200M09
M30
N20G91G1F#4Z-#20
G1G90G41X-#10
Y[#11-#9]
Y#11X-[#10-#9]
X[#10-#9]
X#10Y[#11-#9]
Y-[#11-#9]
Y-#11X[#10-#9]
X-[#10-#9]
X-#10Y-[#11-#9]
Y-[#11-10]
G40X-[#6+10]Y-[#7+10]
N5#22=#22+#20
IF[#22LT#3]GOTO20
N3G80G90G00Z200M09
M30
%
G41 kullanma makro hesaplasın. Giriş çıkışlarda güzel değil.
Arkadaşlar öncelikle kolay gelsin. Foruma o kadar baktım ama makro programlama ile ilgili baştan itibaren detaylı anlatım yok veya ben bulamadım.
Örnek olarak makro nedir ? Ne işe yarar ? # , IF vs komutları ne işe yarar. Açıklama olarak bu konuda eksiklikler var
elinize saglık ustalar