MACRO PROGRAM YAZMAYI ÖGRENMEK İSTEYENLER

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...

saladin · Nisan 21, 2013, 12:24:45 ÖS

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

saladin · Mayıs 09, 2013, 08:38:27 ÖS

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

Tolhqaa · Ağustos 04, 2013, 01:18:33 ÖÖ

emeginhe saglık usta çok teşekkürler çok istiyorum makro yazmayı ama okumakla zor olcak gibi

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

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.

Boscerceve · Eylül 08, 2013, 07:20:55 ÖS

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 :)

Ali.can · 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

cncmakro · Nisan 14, 2015, 08:33:11 ÖS

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.

Ali.can · 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

cncmakro · Nisan 16, 2015, 03:47:13 ÖÖ

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...

Ali.can · Nisan 16, 2015, 08:20:39 ÖÖ

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.

sartapun · Nisan 25, 2015, 03:21:15 ÖÖ

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.

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
%

CK-53 · Ocak 23, 2017, 07:43:52 ÖS

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.