PARALEL THERAD MİLLİNG(FANUC KONTROL)
%
O0025
(DIŞ ÇAPA DİŞ AÇMA M20*1,5)
(DİŞ BOYU 13MM)
(TAKIM TİPİ 14I 1,5 ISO)
(TAKIM RADYUS KOMP.D=0)
T1 M6
G90 G0 G54 G43 H1 X0 Y0 Z15 S3000 M03
G01 Z-13.187 F5000 M08
G91 G41 D1 X1.375 Y-1.375 Z0 F85
G03 X1.375 Y1.375 Z0.187 R1.375
G03 X0 Y0 Z1.5 I-2.75 J0
G03 X-1.375 Y1.375 Z0.187 R1.375
G01 G40 X-1.375 Y-1.375Z0
G90X0 Y0 Z15 F5000
M30
%
Alıntı yapılan: admin - Kasım 13, 2007, 05:55:23 ÖS
PARALEL THERAD MİLLİNG(FANUC KONTROL)
%
O0025
(DIŞ ÇAPA DİŞ AÇMA M20*1,5)
(DİŞ BOYU 13MM)
(TAKIM TİPİ 14I 1,5 ISO)
(TAKIM RADYUS KOMP.D=0)
T1 M6
G90 G0 G54 G43 H1 X0 Y0 Z15 S3000 M03
G01 Z-13.187 F5000 M08
G91 G41 D1 X1.375 Y-1.375 Z0 F85
G03 X1.375 Y1.375 Z0.187 R1.375
G03 X0 Y0 Z1.5 I-2.75 J0
G03 X-1.375 Y1.375 Z0.187 R1.375
G01 G40 X-1.375 Y-1.375Z0
G90X0 Y0 Z15 F5000
M30
%
bu programda takım nasıl hesaplanıp neye göre hareket ediyor açıklayabilirmisiniz şimdiden çok teşekkürler
Programın içerisinde () işaretli yerler de açıklamışıtım ama
takım tipi dış çapı 14 mm olan hatveside 1.5mm olan bir diş kateri ile açılmaktadır
hocam bunu alt programla yazmak daha kolay oluyo
bunu ben şu şekilde çeksem olmazmı
g17g40g49g80
g91g28z0
t1m6
m3s2000
g0g90g54x20y0
g43h1z50
g1z-13
g1x16,25f100
g3 ı-16,25 z-11,5f200
g3ı-16,25 z-11 f500
.
.
.
g3ı-16,25z0
hocam ben bi makro yaptım buna istediğin hatvede istediğin buyda ve istediğin kadar tekrarlat çapta çokta anlaşılır.kısmet olursa paylaşırım
oncelıkler bn kalıpcı operatoruyum yanı bıldıgınzı gıbı bole cok dugmeelrel ısım olmuyoo bagla sık calısıtır.SIZNDN BI RICAM VAR yardım olursanızmı cok sevınırım normall bı delıge nasıl dıs cekılırrr mesela m12 ye cnc de nasıl dıs cekebılrım otomatık olarak bunu ayrıntılı olarak yazabılrısmınz lutfen bıde ornek bıu progmaram yazarsanızn cok sevınırım
Kılavuzla diş çekimi örnek program mesala çapı 100 mm olsun 4 ADET DİŞ ÇEK
00011
G17G40G49GG80
G91G28Z0
T1M6
M3S200
G0G90G54 X50 Y0 M8
G43H1Z50
G16
G84 Z-30 R5 Q5 F350
G91 Y90 K3
G15
G80GG90
G91G28Z0M9
M30
G91G28Y0M5
bu ne ya cocuk oyuncagi basit işler uraşmayın :P
G00 G90 G59
G43 H7 Z150.0 S5500 M03
G00 X0.0 Y0.0 M08
G00 Z2.0
G01 Z-6.2 F250
#500=0.025
#501=1.0
#502=1.27
#503=0.5
WHİLE[#=501LE502]
G03G91X#501R#503Z0.25
G03I-#501 Z1.0
G03X-501R#503Z0.25
G01G90X0.0 Y0.0F100
G01Z-6.2
#501=#501+#500
#503=#503+#500
N1END1
G00Z100.0
G00Y350.0
M30 VİDA FRZ ÇEKİLİR BOYLE İŞLER KAFA YORUN 8)
ARKADAŞLAR LEADWELL V40 M21 Sİ MODEL MARKA TEZGAH PARAMETRE LAZİM NERDEN BULA BİLİRİMİ
:-[
dumrul kardes al bıde bunu dene ıstersen ...adam ne guzel paylasmıs
ANA PROGRAMI:
O1000(DIS CEKME PROGRAMI )
G0G90G55
G0Z100X-607.5Y90S1800M03
G65P9980X-607.5Y90I24.05Z-35R5.D14.5H1U0T2.309A0B5K2F100
M30
ALT PROG:
%
:9980(OZEL DIS ACMA)
(G65P9980 X-Y-Z-I-R-D-T-U-A-H-F-K-B)
(X = PARCA MERKEZINE UZAKLIK)
(Y = PARCA MERKEZINE UZAKLIK)
(Z = GİRİLECEK DERİNLİK)
(I = DIS USTU CAPIN YARISI)
(R = EMNIYETLI YAKLASMA MESAFESI)
(D = TAKIM YARI CAPI)
(T = DIS ADIMI mm )
(U = IKI DELIK ARA MESAFE)
(A = SIRALI DIS ACMA DOGRUSAL ACISI)
(H = DELIK SAYISI)
(F = KESME ILERLEMESI)
(K = DELIKTEKRAR SAYISI)
(B = ADIM ATLATMA SAYISI)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60#1=-#1
IF[#11EQ0]GOTO62
IF[#11GT1]GOTO64
N62#11=1
GOTO65
N64IF[#21EQ#0]GOTO993(U)
N65IF[#18LE#0]GOTO991(R)
IF[#20LE#0]GOTO992(T)
IF[#7LE#0]GOTO994(D)
IF[#4LE#0]GOTO995(I)
IF[#6LE#0]GOTO70
GOTO80
N70#6=1
N80#100=1
WHILE[#100LE#11]DO1
#10=#4-#7
#14=[0.64*#20]
#27=[#100-1]*#21
#28=0
#16=[#27*COS[#1]+#28*SIN[#1]+#24]
#30=[#28*COS[#1]-#27*SIN[#1]+#25]
G0G90Z#32
X#16Y#30
G52X#16Y#30
Z#18
G01Z#26F[#9*2]
#101=1
WHILE[#101LE#6]DO2
G0G90X[[#10-#14]-0.5]
G1X#10F[#9/4]
G91G03I-#10Z#20F#9
IF[#2GT1]GOTO85
GOTO90
N85G0G90X0.Y0.
G91Z[#20*#2]
N90G90G0X0.Y0.
#101=#101+1
END2
G90G00X0.
G52X0.Y0.
Z#32
#100=#100+1
END1
N400G00G90Z#32
G#31G#33F#9
GOTO999
N990#3000=81(HATALI BILGI GIRISI-H.)
N991#3000=82(HATALI BILGI GIRISI-R.)
N992#3000=83(HATALI ADIM GIRISI-T.)
N993#3000=84(HATALI DELIK MESAFESI-U.)
N994#3000=85(HATALI YARI CAP-D.)
N995#3000=86(HATALI YARI CAP-I.)
N999M99
%
DUMRUL SANA BI GUZELLIK DAHA YAPAYIM
İSTERSEN TAPİNG YOLUYLA DİŞ ÇEK
%
O5002(TAPING YOLUYLA DIS ACMA)
#14=0
#16=0
#20=2(T = ADIM)
#26=-18(Z = DERINLIK)
#4=10.(I = KABA YARI CAP)
#5=10.5(J = FINIS YARI CAP)
#17=2(Q = TEKRAR SAYISI)
#6=5(K = DIS ATLAMA SAYISI)
N4
N5G0G90Z10.
X0.Y0.
Z#26
#16=0
N10
G1X#4F300
G91G3I-#4Z#20F600
G40G0G90X0.
#16=#16+1
IF[#16EQ#17]GOTO100
#27=[#5003+[#20*#6]]
G0Z#27
GOTO10
N100#4=#5
#14=#14+1
#16=0
IF[#14EQ2]GOTO200
GOTO5
N200G0G90X0.
Z100.
M99
PAYLASIMLARA SAYGI GOSTERELIM DUMRUL KARDEŞ
ellerine sağlık astarabista
Alıntı yapılan: astarabista - Ağustos 04, 2010, 10:35:01 ÖS
IF[#20LE#0]GOTO992(T)
IF[#7LE#0]GOTO994(D)
IF[#4LE#0]GOTO995(I)
IF[#6LE#0]GOTO70
Merhaba Astarabista,
Bu "IF" satırlarının anlamını açıklarmısınız lütfen?
Ben işleme merkezinde yeni çalışmaya başladım ve bu IF satırlarından,
Matsuura H.Plus-405 yatay işleme tezgahında çok görüyorum.
Programını yazan kişiye, bunu sorabilecek fırsatım olmuyor ne yazıkki.
Esenlikle
hocam tam olarak bılmıyorum ama sınan abı ve crısıs onlar macrocular onlara danısmak lazım
İF ; eğer...
goto ; git
eğer parantez içindeki şart oluşursa eğer goto satırındakı işlemi yap...
Alıntı yapılan: Bmp61 - Ağustos 06, 2010, 03:53:54 ÖS
Alıntı yapılan: astarabista - Ağustos 04, 2010, 10:35:01 ÖS
IF[#20LE#0]GOTO992(T)
IF[#7LE#0]GOTO994(D)
IF[#4LE#0]GOTO995(I)
IF[#6LE#0]GOTO70
Merhaba Astarabista,
Bu "IF" satırlarının anlamını açıklarmısınız lütfen?
Ben işleme merkezinde yeni çalışmaya başladım ve bu IF satırlarından,
Matsuura H.Plus-405 yatay işleme tezgahında çok görüyorum.
Programını yazan kişiye, bunu sorabilecek fırsatım olmuyor ne yazıkki.
Esenlikle
IF[#20LE#0]GOTO992
IF(eger&şayet) #20 deki değer #0 daki değere
eşit&küçük(LE) ise N992 ye
git(GOTO) ve o satırdan devam et,
eşit&küçük(LE) değil ise alt satırdan devam et
saol arkardaşimi konik diş çekme ile bilgi wr mi ?
tornayla varda dık işlemde yok yayınlarsan sevınırız
M33X2 DİŞ AÇALIM.
T1 M6
G0 G90 G54 X0 Y0
G43 Z50 H1 D1 S1500 M3
M8 F100
G0 Z5
G1 Z0
M98 P2 L1
G0 Z50 M9
G91 G28 Z0
G91 G28 Y0
M30
ALT PROGRAM (O2)
G1 G42 X16,5F300
G2 I-16,5 Z-2
G2 I-16,5 Z-4
G2 I-16,5 Z-6
....
.....
...
....
G40 G1 X0
M99
Alıntı yapılan: astarabista - Ağustos 04, 2010, 10:38:31 ÖS
PAYLASIMLARA SAYGI GOSTERELIM DUMRUL KARDEŞ
aynen katılıyorum sana kardeşim
Alıntı yapılan: DUMRUL - Ağustos 04, 2010, 10:05:34 ÖS
G00 G90 G59
G43 H7 Z150.0 S5500 M03
G00 X0.0 Y0.0 M08
G00 Z2.0
G01 Z-6.2 F250
#500=0.025
#501=1.0
#502=1.27
#503=0.5
WHİLE[#=501LE502]
G03G91X#501R#503Z0.25
G03I-#501 Z1.0
G03X-501R#503Z0.25
G01G90X0.0 Y0.0F100
G01Z-6.2
#501=#501+#500
#503=#503+#500
N1END1
G00Z100.0
G00Y350.0
M30 VİDA FRZ ÇEKİLİR BOYLE İŞLER KAFA YORUN 8)
sende çok kafa yormuşsun ama bu programı ben tek satırda yazıyorum ve gayet sağlıklı diş çekiyorum macroya gerenk yok paşa selametle
kare bir parcaya 100x100 ortasına 25 capında daire yapıcaz bunu nasıl hesaplıyoruz acaba yardımcı olurmusunuz...
Alıntı yapılan: admin - Kasım 13, 2007, 05:55:23 ÖS
PARALEL THERAD MİLLİNG(FANUC KONTROL)
%
O0025
(DIŞ ÇAPA DİŞ AÇMA M20*1,5)
(DİŞ BOYU 13MM)
(TAKIM TİPİ 14I 1,5 ISO)
(TAKIM RADYUS KOMP.D=0)
T1 M6
G90 G0 G54 G43 H1 X0 Y0 Z15 S3000 M03
G01 Z-13.187 F5000 M08
G91 G41 D1 X1.375 Y-1.375 Z0 F85
G03 X1.375 Y1.375 Z0.187 R1.375
G03 X0 Y0 Z1.5 I-2.75 J0
G03 X-1.375 Y1.375 Z0.187 R1.375
G01 G40 X-1.375 Y-1.375Z0
G90X0 Y0 Z15 F5000
M30
%
üstat ya ben anlayamadım bu programı yada hatalı gibi geliyor bana bu yuzden bazı sorular sorucam,
bu cap 20 malzemenin merkezi sanki Y ekseni orta X ekseni sol uç nokta, ?
takım telafi ters çalısıyor g3 ve g41 dış çap için ters bir telafi, yada takım yarı çapını eksi olarak belirtmişsin yada hiç takım yarı çapı belirtmemişsin, ?
I değeri cok düşük takım telafi ters olusundan olabilir, ?
yani üstat karısık gibi geldi bana zahmet olmassa tek tek satırların karsısına ne yaptıgını acıklarmısın muhtemelen calısmış bir programdır o yuzden merak ettim yanlıs anlasılmasın merakımdan soruyorum kafama takıldı. iyi forumlar
Ustacım yazdığın kullandığın bir programsa ilerleme çok yavaş bizde S3000 devir ilerleme F1300 hızda takımlar var.M14 x 1,5 diş açıyoruz.
Buda bnm actıgım dış çap M18X1,5 diş boyu 17.5 torna diş kateri ile çalışmış programdır.
DİŞ KATERİNİN TAMÇAPI 32 BULDUM, MALZEME ZAMAK.
G15 G17 G40 G49 G80
T1 M6
G90 G54 G0 X28 Y0 S1200 M3
G43 Z10 H1
G1 Z-17.5 F1600 M8
G42 D1 X8.25 F300
G91 G3 I-8.25 Z1.5 F1600
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
I-8.25 Z1.5
G0 G90 G40 X28
Z100 M9
G91 G30 Z0 Y0 M5
M30
alt program yapmadım çünki program başa aldıgında duraklama oluyor buda iz yapıyor maksat güzel işçilik.
Dış çaplarda boy çok uzun değilse Bell tipi denen takımlar tercih edin.(Bell thread milling)
çok daha kısa sürede diş açıyor.yukarıdaki bir çok örnek programda yumuşak yaklaşma yok.
buda dişlerde form bozukluğu yapar.Alttaki programda yumuşak yaklaşma sonrası 1,5 hatve yaptığını ve sonra yumuşak yaklaşma ile çıkıyor.
O543
( FANUC I&J, LH, CONVENTIONAL, EXTERNAL THREAD MILLING )
( TOOL - MTSLE0030D21 - 3, INSERT - MT21 E 1.5 ISO )
( THREAD - PITCH :1.50 MM, DIAMETER 20 MM, DEPTH 1.5 MM )
( TOOL RADIUS COMPENSATION D1=0 )
N1 T1 M06
G90 G00 G54 G40 G17 G94 X0.000 Y0.000 S1379 M04
G43 H1 Z50.000 M08
( PASS NUMBER - 1 )
G90 G01 Z-1.688 F5000
G91 G01 G42 D1 X2.960 Y2.960 Z0.000 F176
G02 X2.960 Y-2.960 Z0.188 I0.000 J-2.960 F118
G02 X0.000 Y0.000 Z1.500 I-5.920 J0.000
G02 X-2.960 Y-2.960 Z0.188 I-2.960 J0.000
G01 G40 X-2.960 Y2.960 Z0.000 F5000
G90 G00 Z50.000
M30
G90G54G0X16.25Y0
G43Z10H1S1500M3
Z2
G1Z0F150M8
G2I-16,25Z-20P13,333f200
G0X25
G0Z150,M9
G91G28Z0
M30
ben mıtsubişi m70 de böle yazıyorum oluyor