sitenize yeni üye oldum fanuc sistemi yeni öğreniyorum. bölüm dairesi üzerinde eşit açılrda 6 adet delik işlemek istiyorum yardım bekliyorum .tsk
bunun için polar kordinat kodunu g15-g16 kullanıyorsun
g16 komutunu girdikten sonraki satırlara yazacağın X değeri Çap Y değeri açı olarak işlem görür
mesela bölüm çapı 100 ve çevrede 4 delik dersen
G16
X100 Y90
X100 Y180
X100 Y270
X100 Y360
G15 ile işlemi sonlandırırsın delik delme veya diş çekme döngüsünüde g16 dan sonraki satıra yazabilirsin vb..
çalıştırdığın programda aşağıdaki alt prgramı çağırırsan bölüm dairesi üzerinde istediğin açıdan başlayarak istedin sayıda delik açabilirsin.
çağırma komutu
G98 G81 veya herhangi delik işleme kodu Z..R..F..L0;
G65P9180X..Y..I..D..A...;
G80;
L=0 OLURSA MERKAZE DELIK DELMEZ
Z=DERİNLİK
R=REFERANS
F=İLERLEME
I=BÖLÜM DAİRE YARIÇAPI
D=DELİK SAYISI
A=BAŞLAMA AÇISI
XveY değerlerinede bölüm dairesinin sıfır noktandan olan uzaklıkları yazdınmı tamamdır.
NOT= alt programı tezgahına at hiçbir zaman değiştirme sadece ana programda x,y,ı,d,a,z,r,f değerlerini değiştir.
eğer makıno kullanıyorsan bu alt program orada paket program olarak vardır.
%
:9180(BOLT HOLE)
IF[[#4*#7]EQ0]GOTO990
IF[#24EQ#0]GOTO990
IF[#25EQ#0]GOTO990
IF[#4009EQ80]GOTO10
IF[#19NE#0]GOTO992
N10#31=#4003
#10=1
WHILE[#10LE#7]DO1
#11=#1+360*[#10-1]/#7
#12=#24+#4*COS[#11]
#13=#25+#4*SIN[#11]
G90X#12Y#13
IF[#19EQ#0]GOTO20
G#31
G65P#19
N20#10=#10+1
END1
GOTO999
N990#3000=140(DATA FUSOKU)
N992#3000=142(DATA ERROR)
N999G#31M99
%
g16 bazı fanuc sistemlerde opsıyondur.
G16 sanırım fanuc 21 de kapalı -------Oimc kontrollerde açıktı.
yardımlarınız için teşekkürler
;D
Alıntı yapılan: biga - Şubat 16, 2008, 04:43:37 ÖS
çalıştırdığın programda aşağıdaki alt prgramı çağırırsan bölüm dairesi üzerinde istediğin açıdan başlayarak istedin sayıda delik açabilirsin.
çağırma komutu
G98 G81 veya herhangi delik işleme kodu Z..R..F..L0;
G65P9180X..Y..I..D..A...;
G80;
L=0 OLURSA MERKAZE DELIK DELMEZ
Z=DERİNLİK
R=REFERANS
F=İLERLEME
I=BÖLÜM DAİRE YARIÇAPI
D=DELİK SAYISI
A=BAŞLAMA AÇISI
XveY değerlerinede bölüm dairesinin sıfır noktandan olan uzaklıkları yazdınmı tamamdır.
NOT= alt programı tezgahına at hiçbir zaman değiştirme sadece ana programda x,y,ı,d,a,z,r,f değerlerini değiştir.
eğer makıno kullanıyorsan bu alt program orada paket program olarak vardır.
%
:9180(BOLT HOLE)
IF[[#4*#7]EQ0]GOTO990
IF[#24EQ#0]GOTO990
IF[#25EQ#0]GOTO990
IF[#4009EQ80]GOTO10
IF[#19NE#0]GOTO992
N10#31=#4003
#10=1
WHILE[#10LE#7]DO1
#11=#1+360*[#10-1]/#7
#12=#24+#4*COS[#11]
#13=#25+#4*SIN[#11]
G90X#12Y#13
IF[#19EQ#0]GOTO20
G#31
G65P#19
N20#10=#10+1
END1
GOTO999
N990#3000=140(DATA FUSOKU)
N992#3000=142(DATA ERROR)
N999G#31M99
%
sadece 7 eksenlı makınadamı gecerlı ?
bu programda sadece 3eksen çalışır x y z yatay ve dik işlemelerde kullanabilirsiniz
tşkkurler biga yenı basladım da
M6T1;
M3S2500;
G0G90G54X0Y0;
G43H1;
Z50 M8;
G16X50Y0;
G98G81R2Z-15F100;
G91Y45K5;
G80G15;
GOZ100;
M05;
M30;
Bu program 50 yarı capında 45 derece açıyla 6 delik delmek için yazılmıştır
bunları okudum fakat fazla bi macro program bilen arkadaşa rastlamadım bunlar alıntıdır baştan macro yapabilen varmı? var evet ben örnek vereyim hemen örneğin 100mm boyunda bir parça tarayalım 15 mm talaş alacağız bu parcadan vede her turda 1 mm talaş alalım yazıyorum..:)
#2=15 başlacağı mesafe parcaya uzaklığı yanı
N1G0Z20X0Y0 POZİSYONLUYOR
G1X-100F4000
#2=#2-1 HER TURDA ALACAĞI TALAŞ
IF[#2GE0]GOTO1 EN GİDECEĞİ YER VE HANGİ SATIR ARASINDA ÇALIŞACAĞI...
BU KADAR BASİT DAHA DEĞİŞ ŞEKİLDEDE YAPABİLİRZ MİLYONLARCA ÖRNEK VEREBİLİRM ZAMANLA YAZARIM DAİRESEL HAREKET İLE DELİK BÜYÜLTME YANİ ÇAP BÜYÜYOR ALT PROGRAM YOK BİŞİ YOK SADECE YARI ÇAP EN SON ÇAP DERİNLİK HIZ VS. BUNLARI VERECEĞİM DAHA NELER VAR NELER...BY'RASTLANTİ
NERDEN BİLİYOSUN O MAKRO ÇALIŞMALARININ ALINTI OLDUKLARINI.
BU KÖTÜ BİR İTHAM . KOPYACILIK SUÇLAMASI. AÇIKLIK GETİRİRSEN İYİ OLUR.
YOKSA ÖRNEKLERİN BİR KITAPTANMI ALINTI OLDUĞUNU DÜŞÜNÜYORSUN????
g 16 varsa kolay
yani kendi bilgileriniz kendi ürettikleriniz değil siz başka yerden almışsınız ben kendim macro prog. yaparım diyen kişi arıyorum varmı yok dersen yanılıyorsun ben varım programlama yaparken elle veya manuelguide veyada mastecam ile sadece ve sadece macro kullanıyorum ve böğlecede çalıştığım firmada ve genel olarak bahsediyorum fanuc işletim sistemin de piyasada kendimi ıspatlamış bir kişiyim amacım size bunları çalmışsın veya araklamışsın kopyalayıp yapıştırmışsın demek değil sadece ve sadece kendi ürettiklerin değil diyorum umarım beni yanlış anlamamışsındır....teşekürler..
Alıntı yapılan: Rastlanti - Mart 21, 2008, 09:30:08 ÖS
yani kendi bilgileriniz kendi ürettikleriniz değil siz başka yerden almışsınız ben kendim macro prog. yaparım diyen kişi arıyorum varmı yok dersen yanılıyorsun ben varım programlama yaparken elle veya manuelguide veyada mastecam ile sadece ve sadece macro kullanıyorum ve böğlecede çalıştığım firmada ve genel olarak bahsediyorum fanuc işletim sistemin de piyasada kendimi ıspatlamış bir kişiyim amacım size bunları çalmışsın veya araklamışsın kopyalayıp yapıştırmışsın demek değil sadece ve sadece kendi ürettiklerin değil diyorum umarım beni yanlış anlamamışsındır....teşekürler..
Böyle bir iddiada bulunan yokki.Ben makro biliyorum diyen yok.Yazdıklarını bidaha oku istersen.Ayrıca çok büyük marifette değil.Biyere kadar makro yazarsın.Çok iddalıysan makronla bir kalıp programı yazarmısın bize.
rastlantiiiiiiiiiii birader macro yazmayı bilyor olabilirsin el yumruğunu yemeyen kendi yumruğunu balyoz zannedermiş . yazdıklarımızı iyi okumadın anlaşılan alıntı olanları belirttik hazır olan birşey varken onu yenden yapmanın anlamı yok.yani amerika çoktan keşfedildi yeniden keşfetmeye gerek yok.
biz elimizde olanları paylaşıyoruz.macro yazmaya gelince macro ihtiyaca göre yazılır.herşey hazırda yoktur alıntı yapasın.
al sana alıntı olmayan bir macro.
macro biliyorum diyosan doktor bune demezsin herhalde.
sana bir tavsiye biraz daha fazla alçak gönüllü ol.
bu iş iyi biliyorsan kendini ispatlamaya ihtiyacın yoktur.yaptıklarınla bunu kanıtlarsın. ;D
M01
N1000
CALL OT132
IF[VC132 EQ 1]NVTD1
IF[VC132 EQ 2]NVTD2
IF[VC132 EQ 3]NVTD3
NVTD1
VC131=VTLD8[1]
IF[VC131 GT 65000]NVTC1
IF[VTLCN EQ 1]NSG1
T1M6
NSG1
CALL OSAG2
GOTO NVTC4
NVTD2
VC131=VTLD8[32]
IF[VC131 GT 65000]NVTC2
IF[VTLCN EQ 32]NSL1
T32M6
NSL1
CALL OSOL2
GOTO NVTC4
NVTD3
VC131=VTLD8[15]
IF[VC131 GT 65000]NVTC3
IF[VTLCN EQ 15]NRH1
T15M6
NRH1
CALL ORGH1
GOTO NVTC4
NVTC1
VC132=2
T1M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC2
VC132=3
T32M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC3
VC132=1
T15M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC4
M01
Alıntı yapılan: Rastlanti - Mart 19, 2008, 07:47:59 ÖS
bunları okudum fakat fazla bi macro program bilen arkadaşa rastlamadım bunlar alıntıdır baştan macro yapabilen varmı? var evet ben örnek vereyim hemen örneğin 100mm boyunda bir parça tarayalım 15 mm talaş alacağız bu parcadan vede her turda 1 mm talaş alalım yazıyorum..:)
#2=15 başlacağı mesafe parcaya uzaklığı yanı
N1G0Z20X0Y0 POZİSYONLUYOR
G1X-100F4000
#2=#2-1 HER TURDA ALACAĞI TALAŞ
IF[#2GE0]GOTO1 EN GİDECEĞİ YER VE HANGİ SATIR ARASINDA ÇALIŞACAĞI...
BU KADAR BASİT DAHA DEĞİŞ ŞEKİLDEDE YAPABİLİRZ MİLYONLARCA ÖRNEK VEREBİLİRM ZAMANLA YAZARIM DAİRESEL HAREKET İLE DELİK BÜYÜLTME YANİ ÇAP BÜYÜYOR ALT PROGRAM YOK BİŞİ YOK SADECE YARI ÇAP EN SON ÇAP DERİNLİK HIZ VS. BUNLARI VERECEĞİM DAHA NELER VAR NELER...BY'RASTLANTİ
Selam,
İstediğin herhangi bir Makro varsa söyle..................
Yapmaya çalışırım...........
Kitamura Güney Almanyada Servis Teknisyeniyim.
Ve Talaşlama işlemini (Torna ve Freze) Haziran 1982 yılından beri yapmaktayım.
Ama hala evet *yapabilen ben varım* diye iddia edemiyorum. Çünki hergün yeni bir istek ve problem çözümü ile karşılaşıyorum.
Alıntı yapılan: Rastlanti - Mart 19, 2008, 07:47:59 ÖS
ZAMANLA YAZARIM DAİRESEL HAREKET İLE DELİK BÜYÜLTME YANİ ÇAP BÜYÜYOR ALT PROGRAM YOK BİŞİ YOK SADECE YARI ÇAP EN SON ÇAP DERİNLİK HIZ VS. BUNLARI VERECEĞİM DAHA NELER VAR NELER...BY'RASTLANTİ
Ha bu arada başlangıcı müsaadenle ben yapayım:
O4711
#504=#503
#505=#503
#500=....(YARI ÇAP R )
#501=.... (ILERLEME F )
#502=....(DERINLIK Z)
#503=1 (HER TURDA KATEDILEN Z DERINLIK)
#510=.... (TAKIM)
G1 Z0 F#501 M3
G1 G91 G41 D#510 X#500 Y0 F#501
N100 G3 I-#500 Z-#505
#505=#505+#504
IF [#505LT#502] GOTO 100
IF [#505EQ#502] GOTO 200
IF [#502EQ#505] GOTO 300
N200 G3 I-#500 Z-#502
N300 #505=0
G1 X-#500
Go G9o G40 Z5
M30
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
------------RASLANTİİİİİ BİRADER AL SANA ALINTI OLMAYAN YERLİ PAKET PROGRAM-----------------
bu mesajı daha önce göndermiştim ama senin için bir daha gönderiyorum. burada programın kaynağıda yazıyor insanları suçlamadan önce mesajları iyi okuyup yorumları öyle yapalım.
EMEĞE VE PAYLAŞILANA SAYGI....................
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
%
%
:8014(BOLUM DAIRE ESIT DELIKLER)(DELIK CEVRIMIG81/G83/G84/G76..)
(G81 Z.R.F.L0 VEYA L YOK)
(G65 P8014 X.Y.A.I.D.)
(A=BASLAMA ACISI)
(I=YARI CAP,R,)
(D=DELIK SAYISI)
(X,Y=BOLUM DAIRE MERKEZI)
#10=1
#13=[360/#7]
#11=SIN[#1]*#4
#12=COS[#1]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#1+#13]
WHILE[#10LT#7]DO1
#11=SIN[#14]*#4
#12=COS[#14]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#14+#13]
#10=#10+1
END1
M99
%
buda eşit açılarda delik delmenin başka şekli bunuda kullanarak delikleri işleyebilirsin
Alıntı yapılan: biga - Nisan 07, 2008, 12:06:42 ÖÖ
%
:8014(BOLUM DAIRE ESIT DELIKLER)(DELIK CEVRIMIG81/G83/G84/G76..)
(G81 Z.R.F.L0 VEYA L YOK)
(G65 P8014 X.Y.A.I.D.)
(A=BASLAMA ACISI)
(I=YARI CAP,R,)
(D=DELIK SAYISI)
(X,Y=BOLUM DAIRE MERKEZI)
#10=1
#13=[360/#7]
#11=SIN[#1]*#4
#12=COS[#1]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#1+#13]
WHILE[#10LT#7]DO1
#11=SIN[#14]*#4
#12=COS[#14]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#14+#13]
#10=#10+1
END1
M99
%
buda eşit açılarda delik delmenin başka şekli bunuda kullanarak delikleri işleyebilirsin
G81 Z-20 R3 F400 L0
G65 P8014 X0 Y0 A45 I45 D8
bu programda mavi olan değerleri değiştirerek istenilen sayıda istenilen açıda istenilen bölüm dairesinde
delik işleyebilirsiniz
MACRO DEĞİŞMİYOR TEZGAHTA ALT PROG OLARAK KALIYOR
işleme şeklini görmek için linke tıklayın
http://www.turkeycnc.com/okuma/cnc-okumayi-ogreniyorum-baslangic-t2460.75.html
tesekkur ederim gercekten bilgi dolu bir yer ve yardimlasmak ayri bir guzel yayinda ve yapimda emegi gecen herkese tesekkurler
ya beyler ne diyecegim
öyle makro örnekler yazıyorsunuz ki
hepsini akılda tutmak lazım
sanırım zor olur daha kısa yoldan
yazılmazmı bu
birde
ben 30 yasındayım
27 yasımda kaynak işini bırakıp cnc işine basladım
cnc torna freze beraber ögrendim cimatronda kısmen çizim yapıyorum
programlama yapıyorum
visual basicde yazılım yapıyorum
fotoshop kullanıyorum
flash kullanıyorum
ama bunlar hiç birşey
gelip geçici
üstüne beni övmelerine de fene gıcık oluyorum
övgüye layık olan yalnız Allah (c.c) dır.
evet raslantı bana bu programı
3 satırda yapabilirmisin
ben makroya 5 gun önce bir örnekle basladım
bilgim yok bilgi rica ediyorum
asagıda birseyler yapmaya çalıstım
fanuc ta denedim oldu
ama benim yaptıgım
ekran koruyucu gibi oldu
yan sanayi macro :-\
#1 =0;
#15=10
#3=20
#4=5
#5=15
#6=25
#7=1
#8=20
#9=35
#10=55
#11=10
#12=40
#13=65
#14=64
#16=2
G#1 X#14 Z#15
G71 U2 R1
G71 P1 Q2 U0 W0 F0.20
N1 G#1 X#15
G#7 Z#1
X#3 R#4
Z-#5
X#6 C-#7
Z-#8
X#9
X#10 R10
Z-#12
X#13
N2 G#1 Z#16
G0 X200 Z150
M5
M30
BUNU YAPMANIN KISA YOLU NEDİR
T0101 60 MM ÇAPINDAKİ MALZEMEDE KABA BOSALTMA YAPIP
T0505 İLE FİNİSH ATMAK
G0X62 Z2
FİNİSH VERİYORUM
G1 X10 Z0
X20 R5
Z-15
X25 C-1
Z-20
X35
X55 R10
Z-40
X63
G0 Z2
Ben cimatron programını indirmek istiyorum bana yardım edermisiniz? msnem: ali_574_44@hotmail.com a meyil atarsanız sevinirim.