Reklamlar

reklam reklam

Gönderen Konu: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER  (Okunma sayısı 90152 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı cncturk

  • http://www.facebook.com/cncturkmakina
  • USTA
  • ****
  • İleti: 368
  • +16/-0
  • Cinsiyet: Bay
    • CNCTURK MAKİNA
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #15 : Şubat 11, 2008, 09:17:32 ÖS »
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.  ;)

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #16 : Şubat 12, 2008, 11:43:21 ÖÖ »
ö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... :)

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #17 : Şubat 12, 2008, 01:16:23 ÖS »
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.

Çevrimdışı biga

  • #2#4G#1
  • USTA
  • ****
  • İleti: 319
  • +17/-2
  • Cinsiyet: Bay
  • kendine rakip kendin ol sürekli onla yarış
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #18 : Şubat 12, 2008, 07:44:59 ÖS »
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
%
You are not allowed to view links. Register or LoginYou are not allowed to view links. Register or Login
YAŞAMAK İÇİN ÇALIŞMAK

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #19 : Şubat 13, 2008, 12:21:07 ÖS »
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
 :)

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #20 : Şubat 13, 2008, 01:40:02 ÖS »
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

Çevrimdışı biga

  • #2#4G#1
  • USTA
  • ****
  • İleti: 319
  • +17/-2
  • Cinsiyet: Bay
  • kendine rakip kendin ol sürekli onla yarış
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #21 : Şubat 13, 2008, 11:15:20 ÖS »
  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
%
« Son Düzenleme: Şubat 13, 2008, 11:19:03 ÖS Gönderen: biga »
You are not allowed to view links. Register or LoginYou are not allowed to view links. Register or Login
YAŞAMAK İÇİN ÇALIŞMAK

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #22 : Ş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
%

Çevrimdışı kadır kıran

  • Programcı
  • ***
  • İleti: 61
  • +4/-7
  • Cinsiyet: Bay
  • 90 yılarda avrupa cnc kullanırken biz nerdeydik??
    • BiLginin sınırLarını zorLayın!!
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #23 : Şubat 18, 2008, 01:50:08 ÖÖ »
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ı ??
90 yıllarda  avrupa cnc ustune cnc degiştirirken biz nerdeydik ama ben yeni dogmuştum siz nerdeydiniz neden  geri kalmış türkiye neden  ???

Çevrimdışı service

  • service
  • Operatör
  • **
  • İleti: 39
  • +3/-0
  • Cinsiyet: Bay
  • ABDULLAH
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #24 : Şubat 24, 2008, 11:26:04 ÖS »
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

Çevrimdışı ( bora )

  • USTA
  • ****
  • İleti: 462
  • +53/-3
  • Cinsiyet: Bay
  • Unutmayın!! Bilgi,paylaşıldıkça değerlidir...
    • CNC PROGRAMCI
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #25 : Şubat 28, 2008, 06:30:50 ÖS »
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.
Hiçbir şeye ihtiyacımız yok,yalnız bir şeye ihtiyacımız vardır;çalışkan olmak!

K.Atatürk

Çevrimdışı ergenekon34

  • Operatör
  • **
  • İleti: 17
  • +0/-0
  • Cinsiyet: Bay
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #26 : Mart 02, 2008, 07:12:26 ÖS »
ellerine bilgine sağlık onnumara
<<>d<<;

Çevrimdışı kalyoncu

  • Programcı
  • ***
  • İleti: 124
  • +0/-0
  • Cinsiyet: Bay
  • Kerem Kalyoncu
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #27 : Mart 12, 2008, 04:12:55 ÖS »
hocam c eksenlı bir torna tezgahı içinde bu tarz bir ornekle acıklama yapabılırsenız sevinirim.

Çevrimdışı ismeterol

  • Operatör
  • **
  • İleti: 36
  • +7/-6
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #28 : Mart 13, 2008, 10:02:34 ÖS »
You are not allowed to view links. Register or Login
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

Çevrimdışı scorpionteam

  • Forum Sorumlusu
  • *****
  • İleti: 588
  • +70/-2
  • Cinsiyet: Bay
Ynt: MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER
« Yanıtla #29 : 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
YÜKSELMEK İSTEYEN YERİNE ADAM YETİŞTİRSİN