|
|
 |
Eşit aralıklarla dairesel delik büyütme |
:
Arkadaşlar bu macro ile dairesel şekildeki deliklere büyütme işlemi yapılıyor
DİYELİM Kİ 300 ÇAPINDA EŞİT ARALIKLARLA 6ADET DELİK VAR VE BUNU ÇAKIYLA VEYA KAFAYLA DAİRESEL OLARAK ALMAMIZ LAZIM
BU PROGRAMLA SADECE ÖLÇÜLERİNİ GİREREK RAHAT Bİ ŞEKİLDE İŞLEYEBİLİRİZ
DELİK ARALARINDAKİ AÇIYI(B) DELİĞİN BAŞLANGIÇ AÇISINI(A) İŞLEYECEYİĞİMİZ DELİĞİN ÇAPINI AYARLAYABİLİRİZ(J)
VE DERİNLİĞİNİ(Z) GÜVENLİ YANAŞMASINI(R) TALAŞI KAÇ KAÇ ALACAĞINI(W) İŞLEME NEREDEN BAŞLAYACAĞINI(V) VE ÇIKIŞ NOKTASINI(C) YAZIYORUZ DELİĞİN KAÇ ADET OLDUĞUNUN ÖNEMİ YOK BİZİM YAZACAKLARIMIZ İKİ OLSA 10DA OLSA AYNI
ilk alt pogramı herhangi bi program numarasına yazıyoruz
ikinci alt programı farklı bi program numarasına yazıyoruz
alttaki gibi
O9020(ALT PROGRAM 1)
#500=#18(R)
#501=#23(W)
#502=#26(Z)
#503=#22(V)
#504=#5(J)
#505=#24(X)
#506=#9(F)
#507=#25(Y)
#508=#7(D)
#509=#3(C)
Z#500
G91Y-#504
G90
#10=#503
N10G#508J#504Z#10F#506
#10=#10-#501
IF[#10GE#502]GOTO10
J#504Z#502
J#504
G91G1Y#504
G90G0Z#509
M99
O9021(ALT PROGRAM 2)
#3=#4003
IF[#3EQ90]GOTO1
#24=#5001+#24
#25=#5002+#25
N1WHILE[#11GT0]DO1
#5=#24+#4*COS[#1]
#6=#25+#4*SIN[#1]
G90X#5Y#6
#1=#1+#2
#11=#11-1
END1
G#3G0
M99
ALT PRORAM 1 AÇIKLAMA
(R) işleme başlamadan önce yaklaşmA MESAFESİ
(Z)TOPLAM DERİNLİK
(W) TALAŞI KAÇ KAÇ ALACAĞI
(D) İŞLEME YÖNÜÜ D2 G2 İLE D3 G3 İLE İŞLEME
(F) İLERLEME HIZI
(J) YARIÇAP
(V) İLK TURDA GİDECEĞİ DERİNLİK
(C) İŞLEM BİTTİKTEN SONRAKİ GERİ ÇEKİLME NOKTASI
G66 P5050 R1 Z-25 V-0.8 D2 F1500 C10 J50 W1 (ALT PROGRAM 1)
G65P9051 X200 Y300I200A45 B120 H3 (ALT PROGRAM 2)
G67
ALT PROGRAM2 AÇIKLAMA
(I) DELİK MERKEZLERİ YARI ÇAPI
(A) İLK DELİĞİN BAŞLANGIÇ AÇISI
(B) DELİK ARALARINDAKİ AÇI
(H) DELİK ARALARINDAKİ AÇI
|
|
 |
|
|
|
|