100*50 dikdörtgen cep boşaltma
derinlik 6mm
%
G91G30Z0
G91G30X0Y0
G90G54G17G0X0Y0
G43Z50.H1S500M3
G65P7001X100.Y50.Z-6.T10.U2.5F500
Z50.
G91G30Z0
G91G30X0Y0
M5
M30
%
---------ALT PROGRAM--------
%
O7001(KARE DIKDORTGEN CEP BOSALTMA)#6=#4001
#7=#4003
#1=#24
#2=#25
#3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
#5=0
IF[#1LT#20]GOTO100
IF[#2LT#20]GOTO101
IF[#21LT#26]GOTO102
IF[#21LE0]GOTO103
IF[#20LE0]GOTO104
IF[#1LE#20]THEN#3=0
IF[#2LE#20]THEN#4=0
G0G90X#3Y#4
N1G0Z3.
#1=#24
#2=#25
#3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
X#3Y#4
G1Z#5F#9
N2 #3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
IF[#1LE#20]THEN#3=0
IF[#2LE#20]THEN#4=0
IF[#3NE0]GOTO3
X#3
Y#4
Y-#4
THEN#4=0
GOTO5
N3IF[#4NE0]GOTO4
Y#4
X#3
X-#3
THEN#3=0
GOTO5
N4X#3Y#4
Y-#4
X-#3
Y#4
X#3
N5 IF[#3EQ0]GOTO6
GOTO7
N6 IF[#4EQ0]GOTO8
N7 #1=#1-[#20*2]
#2=#2-[#20*2]
GOTO2
N8 IF[#5EQ#26]GOTO9
#5=[#5-#21]
IF[#5GE#26]GOTO1
IF[#5NE#26]THEN#5=#26
IF[#26EQ#5]GOTO1
N9 G#6G#7
M99
N100#3000=100(X TAKIMDAN KUCUK OLAMAZ)
N101#3000=101(Y TAKIMDAN KUCUK OLAMAZ)
N102#3000=102(PASO MIKTARI FAZLA)
N103#3000=103(PASO MIKTARI YETERLI DEGIL)
N104#3000=104(TAKIM CAPINI GIRINIZ)
%
7001 nolu alt programı makinanıza yükleyin,ana programda yazılmış olan G65 macro call ile programı cağırın
G65 P7001 X100. Y50. Z-6. T10. U2.5 F500
G65 satırındaki X-Y değerleri yapılacak olan işin (kare-dikdörtgen) uçtan uca tam ölçüleridir (en -boy)
delik çevrimlerindeki gibi deliğin (cebin) açılacağı kordinatlar değildir
bu alt program en son verilmiş olan mutlak kordinatlardaki X-Y sıfırını yani kare yada dikdörtgenin tam ortasını parça sıfırı olarak kabul edecek şekilde yapılmıştır
P7001 çağırılacak alt program numarası
Z-6. istenilen cep derinliği
T10. kullanılacak takımın tam çapı
U2.5 Z de her defasında alınması istenilen paso
F500 F kesme hızı
lütfen örnekte verilmiş olan G65 satırındaki gibi noktaları koymayı unutmayalım
arkadaşlar program gerekli denemeler ve kontrollerden geçmiştir,inşallah birinizin işine yarar
eline saglık ellerin dert gormesin
emegine saglık crisis
Ya arkadaşlar bu dikdörtgen işi çok emek isteyen ve teşekkürü çook çook hakeden bir çalışma bir finiş diş açma olsa nese de yapanı bilir bence bu kadar bakan varken yorumsuz bırakmamız çook ayıp bence ustanın emegine biraz daha önem vermeniz dilegiyle sevgili ziyaretçi kaçak arkadaşlar
N8 IF[#5EQ#26]GOTO9
gerekli denemeyi yaptım deyince biraz çekinerek söylüyorum ama galiba bu satır sıkıntılı arkadaşım bir kaç ufak sıkıntı daha var gibi ama farkedemez isen ben tezgah üzerinde yarın bakar tekrar net olarak dönerim şimdiden teşekkür
eline emeğine sağlık
Alıntı yapılan: sinan - Temmuz 22, 2009, 10:27:03 ÖS
N8 IF[#5EQ#26]GOTO9
gerekli denemeyi yaptım deyince biraz çekinerek söylüyorum ama galiba bu satır sıkıntılı arkadaşım bir kaç ufak sıkıntı daha var gibi ama farkedemez isen ben tezgah üzerinde yarın bakar tekrar net olarak dönerim şimdiden teşekkür
ben baktımda farkedemedim
sorunsuz çalışıyor
ok crisis ben similaasyon üzerinden konuştugum için yanıldım ozaman
DALMA F DEĞERİNİ NASIL VEREBİLİRİZ
BİDE YANA KAÇMAYI TAKIM YARI ÇAPI KADAR YADA 3/4 Ü KADAR NASIL YAPARIZ
Arkadaşlar makroları yazarken kullanılan parentezler hakkında bilgi verebilirmisiniz mesela
IF[#1LT#20]GOTO100
IF(#1LT#20)GOTO100
IF{#1LT#20}GOTO100
PARANTEZLERİ BU 3 SATIRDAN HERHANGİ BİRİNDE OLDUĞU GİBİ KULLANIRSAK UYGULAMADA NE GİBİ BİR HATA YADA DEĞİŞİKLİK OLABİLİR...
YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM.
Alıntı yapılan: crisis - Mayıs 31, 2009, 04:04:57 ÖÖ
100*50 dikdörtgen cep boşaltma
derinlik 6mm
%
G91G30Z0
G91G30X0Y0
G90G54G17G0X0Y0
G43Z50.H1S500M3
G65P7001X100.Y50.Z-6.T10.U2.5F500
Z50.
G91G30Z0
G91G30X0Y0
M5
M30
%
---------ALT PROGRAM--------
%
O7001(KARE DIKDORTGEN CEP BOSALTMA)#6=#4001
#7=#4003
#1=#24
#2=#25
#3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
#5=0
IF[#1LT#20]GOTO100
IF[#2LT#20]GOTO101
IF[#21LT#26]GOTO102
IF[#21LE0]GOTO103
IF[#20LE0]GOTO104
IF[#1LE#20]THEN#3=0
IF[#2LE#20]THEN#4=0
G0G90X#3Y#4
N1G0Z3.
#1=#24
#2=#25
#3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
X#3Y#4
G1Z#5F#9
N2 #3=[[#1/2]-[#20/2]]
#4=[[#2/2]-[#20/2]]
IF[#1LE#20]THEN#3=0
IF[#2LE#20]THEN#4=0
IF[#3NE0]GOTO3
X#3
Y#4
Y-#4
THEN#4=0
GOTO5
N3IF[#4NE0]GOTO4
Y#4
X#3
X-#3
THEN#3=0
GOTO5
N4X#3Y#4
Y-#4
X-#3
Y#4
X#3
N5 IF[#3EQ0]GOTO6
GOTO7
N6 IF[#4EQ0]GOTO8
N7 #1=#1-[#20*2]
#2=#2-[#20*2]
GOTO2
N8 IF[#5EQ#26]GOTO9
#5=[#5-#21]
IF[#5GE#26]GOTO1
IF[#5NE#26]THEN#5=#26
IF[#26EQ#5]GOTO1
N9 G#6G#7
M99
N100#3000=100(X TAKIMDAN KUCUK OLAMAZ)
N101#3000=101(Y TAKIMDAN KUCUK OLAMAZ)
N102#3000=102(PASO MIKTARI FAZLA)
N103#3000=103(PASO MIKTARI YETERLI DEGIL)
N104#3000=104(TAKIM CAPINI GIRINIZ)
%
Kırmızı olarak işaretlediğim satırların ne işe yaradığını anlamadım, programda çalışmadı zaten. Bu satırları sildiğimde çalıştı.
Bu programı yazan arkadaş programın sorunsuz çalıştığını yazmış. Acaba benim çözemediğim bir şey mi var?
bu program malzemeye 90 derece dalıyor plastik ve tahta işlerken kullanınız......
Arkadaslar bu satırı G1 Z#5 F#9/4 seklinde yazarsanız zannedersem F degerini 4 e boler buda yeterli olur sanırım ama F degerini sonra diger satırda f#9 yazarsanız hersey istediginiz gibi olur
crisis çok teşekkürler allah razı olsun.Senden bişi isteyebilir miyim acaba vaktin var ise makro da oğuz nasıl yazabilirim puntoyu ve diğer ölçüleri sen belirleyebilirsin ama işleme çapı 5 olsun vaktin varsa eğer bana bu iyiliği yaparsan minnettar olurum teşekkür ediyorum herkese iyi forumlar
Alıntı yapılan: atomictrio - Aralık 31, 2011, 01:21:22 ÖÖ
crisis çok teşekkürler allah razı olsun.Senden bişi isteyebilir miyim acaba vaktin var ise makro da oğuz nasıl yazabilirim puntoyu ve diğer ölçüleri sen belirleyebilirsin ama işleme çapı 5 olsun vaktin varsa eğer bana bu iyiliği yaparsan minnettar olurum teşekkür ediyorum herkese iyi forumlar
http://www.turkeycnc.com/macro-programlama/macro-ile-yazi-yazma/ (http://www.turkeycnc.com/macro-programlama/macro-ile-yazi-yazma/)
bu linki bir gez