SPRAL MAKROSU

[birkan66]

O0012
(SPIRAL INWARD GROOVE MACRO)
(CUTS DECREASING DIAMETERS FROM XLARGE TO X0.0 )
G65P9200 R3 Z-4 I240 K42 D8 E9. F500
(#18 Z RAPID PLANE )
(#26 Z CUT PLANE )
(#4 FINISH DIAMETER )
(#6 START DIAMETER )
(#7 TOOL DIAMETER )
(#8 NUMBER OF PASSES )
(#9 FEEDRATE )
O9200
#24=0.0
#25=0.0
#500= [[#6-#4]/#8]*.25 (BIG)
#501=[[#6-#4]/#8]*.125 (LIT)
#502=[#6-#7]/2 (XPOS)
#503=#502 (IVAL)
#504=0.5 (COUNT)
#505=0.0 (MYEXIT)
#506=#502 (END XPOS )
#9 = [FIX[[[#9*[#4+#7]]/#4]*100]]/100 (ADJUST LINEAR FEED)
G0 X#502 Y#25
G1 Z#26 F50.0
G1 X#503 Y#25 F#9
G02 X[[#502-#500]*-1] I[[#503-#501]*-1] J0.0
#502 = #502 - #500
#503 = #503 - #501
DO1
X[#502-#500] I[#503-#500] J0.0
#502 = #502 - #500
#503 = #503 - #500
#504 = #504 + 0.5
IF [#504 EQ #8] THEN I[[#503 - #501]*-1] J0.0
IF [#504 EQ #8] THEN I[[#503 - #501]*-1] J0.0
IF [#504 EQ #8] THEN #503 = [#503 - #501]/2
IF [#504 EQ #8] THEN G1 X#506 Y#25
IF [#504 EQ #8] THEN GOTO 2
X [[#502 - #500]*-1] I[[#503 - #500]*-1] J0.0
#502 = #502 - #500
#503 = #503 - #500
#504 = #504 + .5
IF [#504 EQ #8] THEN I[#503 - #501] J0.0
IF [#504 EQ #8] THEN I[#503 - #501] J0.0
IF [#504 EQ #8] THEN #503 = [#503 - #501]/2
IF [#504 EQ #8] THEN G1 X#506 Y#25
IF [#504 EQ #8] THEN GOTO 2
END1
N2M99
M30

[uysav]

merhaba benim tezgahım31 i modal a bu proğram çalışmadııacaba neden

[birkan66]

31 i torna  olması gerekir   tornada düzlem degişik oldugu icindir

[CK-53]

Emeğine sağlık.

[uysav]

Merhaba Arkadaşlar Benim tezgahımda o9200 u kabul etmiyor.Sanırım obsiyonu kapalı bu arada emeğinize sağlık proğram tam aradığım gibi böyle spiral işlemeyi isoylada yapabilirmiyiz.Tezgahım fanuc manuel guide ge modal a 31 i 130 bohrwerk.herkese hayırlı işler bol kazançlar dilerim...

[birkan66]

genelde tezgah ureticileri 9000 li programları kendine bırakır oraya o programı yaznak icin  3202 nolu parmatrenin ne9 yazan parametre si once  sıfır yapılır programın nosu o 9200 olarak yazan kısmı oraya yazılır ve tekrar 3202 ne9 1e cevrilir  o kadar.

[uysav]

ben parametrelere girmenin yolunu bulamadım.üzgünüm bu güzel programı deneme şansım olamayacak.Ama benim tezgahım hakkında bilgisi olan arkadaşlar var ise yardımlarını beklerim.ge fanuc manuel guide 31 i modal a 130 bohrwerk herkese bol şanslar ve kazançlar

[birkan66]

bendekide 31i a5 mdi de ofset menusune gir oradan parameter write secenegi olacak onu 1 yaz ve ınput ile gir   ekranınn sagında operator panelinde system diye bir tuş var orayada 3202 yaz search ile parametreye ulaş ne9 0 yap sonra actıgın ışin bitince 0 yaparak kapat .

[uysav]

birkant 66 kardeşim bir sorunla daha karşılaştım o9200 alt proramını yazmak bir yana o9200 diye bir alt program ismini tezgah kabul etmiyor.program korumalı yazısı çıkıyor.o9200 değilde o111 diye alt program içine yazdım ama illa alt program o92oo olacak herhalde ki proğramı kabul ettiremedim.ama azimliyim.sizlerinde yardımlarıyla inşallah bu makroyuda alt edeceğim.bügün parametrelere nasıl girildiğinide buldum.inşallah yanlış bir şey yapmam.

[birkan66]

o 9200 olacak diye bir sey yok 8000 li bir program nosu yaz g64 ile ona gore cagır oda olur

[uysav]

bu gün bir kez daha denedim.g 65 i g 64 yaptım. o 9200 ü 8000 yaptım.alt programda  ilk z#26 f50 satırında hata verdi.Bu programı çalıştırmayı becerebilecekmiyim yardımmmmmm lütfen

[birkan66]

oyle kafan gore degiştiremezsin g65 macro b cagırma komutudur

G65P9200 R3 Z-4 I240 K42 D8 E9. F500

#18 Z de hizlı yaklasılacak nokta    R
#26 Z deki kesme derinligi    Z
#4 bitiş capı    I
#6 baslangıc apı    K
#7 takım capı     D
#8 paso sayısı    K
#9 ilerleme     F

g64 ise surekli kesme g64 g61 in iptalidir diyeyim sana.

[uysav]

İşte arkadaşlar istediğim proğram buydu.Baya uğraştım kendi çabalarımla bu proğramı yaptım.Belki birinizin işine yarar.bu proğramı özellikle kanal çakı ile delik içinde çalışırken kullanmak üzere yaptım.Herkeze hayırlı işler,Birkan66 sanada teşekkür ederim.Ama hala 9200 lü macroyu çalıştıramadım acemilikmi neden proğram korumalı diyor tezgah alt programı yazmak için 0 9200 dedinmi ismi kabul etmiyor.neyse proğramı yaptım ya önemli olan bu inşallah birilerinin işine yarar.



t1 d1
g69
g90g59g17
g0 z300
s1000 f1000 m3
x0 y0
w0 b0
z0
#1=50       (takım çapı)
#2=200     (ilk çap)
#3=[[#2-#1]/2] (çap telafi)
#4=1      (x ekseninde helisel yana kayma miktarı)
#5=0      (x ekseninde ilk çapta yana kayma başlangıcı)
#6=-25   (x ekseninde toplam yarıçapta açılma)
N10
g1 x#3
g2 ı-#3
#5=#5-#4
#3=#3+#4
ıf[#5 GE #6] GOTO 10
G2 I-#3
#9=0           (z başlangıcı)
#10=-30      (z bitiş)
N11
G2 I-#3 F1000 Z#9
#9=#9-1
IF(#9 GE #10] GOTO 11
G2 I-#3
G90 G0 X0 Y0
G0 Z300
M5 M9
M30

[hllbrhmkskn]

G1 X#503 Y#25 F#9
selam arkadaşlar bu satırda formar error ın macro hatası veriyor neden acaba
fanuc 18 imb

[murat51xxx]

illede macromu olacak g16 ile cok daha basit sekilde yapılabilir