meraklısına işleme merkezinde makro ile küre yapma

Başlatan burhansezen, Temmuz 30, 2013, 03:33:55 ÖS

« önceki - sonraki »

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.

burhansezen

takım çapı 10mm, düz parmak freze
iş 20 çapında yarım küre işleme

program:

G0 X0 Y0
S3000 M3
G43 Z2 H1
#1=0
N10 #2=SIN[#1]*10
#3=COS[#1]*10
#4=5+#2
#5=#3-10
G1 X#4
Z#5
G3 I-#4
#1=#1+1
IF[#1LT90]GOTO 10
G0 Z100
M30

20 mm çapındaki mil malzemeyi en az 15 mm ayna yada mengeneden çıkararak bağlayın
X ve Y ekseni mil eksenine sıfırlanacak Z ise mil yüzeyine sıfır

iyi seyirler.



CK-53

Eline sağlık güzel olmuş. Ben simüle ettim sorunsuz çalışıyor. Yalnız F belirtilmemiş. Çalıştırmak isteyen arkadaşlar olursa, ilk G1 satırına F belirtmeyi unutmasınlar.



G0 X0 Y0
S3000 M3
G43 Z2 H1
#1=0
N10 #2=SIN[#1]*10
#3=COS[#1]*10
#4=5+#2
#5=#3-10
G1 X#4F500
Z#5
G3 I-#4
#1=#1+1
IF[#1LT90]GOTO 10
G0 Z100
M30

Aynası iştir kişinin lafa bakılmaz..!

burhansezen


sezer izin

denedim sorunsuz çalıştı bu erkek küre-birde bunun dişi küre makrosunu yazarmısın -küre çaplarını değiştirmek için ana proğ.yazarsan sevinirim teşekkürler

Atar


uysav


burhansezen


burhansezen

Alıntı yapılan: burhansezen - Temmuz 30, 2013, 03:33:55 ÖS
takım çapı 10mm, düz parmak freze
iş 20 çapında yarım küre işleme

program:

G0 X0 Y0
S3000 M3
G43 Z2 H1
#1=0    kürenin başlama açısı
N10 #2=SIN[#1]*10    10 yapacağın kürenin yarıçapı
#3=COS[#1]*10    10 yapacağın kürenin yarıçapı
#4=5+#2    5 kullandığın takımın yarıçapı
#5=#3-10   10 yapacağın kürenin yarıçapı
G1 X#4
Z#5
G3 I-#4
#1=#1+1    1 yüzey kalitesini verir merkezden gördüğü açı olarak.
IF[#1LT90]GOTO 10    90 bürenin bitiş açısı
G0 Z100
M30

20 mm çapındaki mil malzemeyi en az 15 mm ayna yada mengeneden çıkararak bağlayın
X ve Y ekseni mil eksenine sıfırlanacak Z ise mil yüzeyine sıfır

iyi seyirler.