ÇALIŞTIRMA KOMUTU

G65 P9021 C3 X-50 Y-100 Z-20 I0 D32 W50 R5 Q2 F500

C ? C3?ise G03 , C2?ise G02 YÖNÜNDE FREZELEME YAPAR .
X - DAİRE MERKEZ KOORDİNATI
Y - DAİRE MERKEZ KOORDİNATI
Z - TOPLAM DERİNLİK
I - İŞLEME YÜZEYİNİN Z0`a OLAN MESAFESİ
D - TAKIM ÇAPI
W - DAİRE ÇAPI
R - YAKLAŞMA MESAFESİ(KORUMA)
Q - DAİRESEL HAREKET YAPARKEN BİR TURDAKİ MESAFESİ
F - İLERLEME

ALT PROGRAM
O9021(DAIRESEL HAREKET ILE FREZELEME)
#500=#24(X)
#501=#25(Y)
#502=#26(Z)
#503=#4(I)
#504=#7(D)
#505=#23((W)
#506=#18(R)
#507=#17(Q)
#508=#9(F)
#520=#3(C)
#509=[#505-#504]/2.
#510=#500-#509(X BASLAMA)
#511=#503+50.(Z YAKLASMA)
IF[#503LE0]GOTO10
GOTO20
N10#512=#506(#512=Z YAKLASMA)
GOTO30
N20#512=#511(#512=Z YAKLASMA)
N30#513=#503+#506(#513=Z YAKLASMA)
#514=#503-#507
G90M3
IF[#503GT0]GOTO40
IF[#503LE0]GOTO50
N40G0X#500Y#501Z#511M8
GOTO60
N50G0X#500Y#501Z50.M8
N60X#510(X DE DAIRE BAS NOK.)
G01Z#513F2000
G01Z#503F100
N70G#520X#510Y#501Z#514I#509J0F#508
IF[#514EQ#502]GOTO90
IF[#514LT#502]GOTO80
#514=#514-#507
IF[#514GT#502]GOTO70
N80G#520X#510Y#501Z#502I#509J0F#508
N90G#520X#510Y#501I#509J0F#508
G01X#500F500
#515=50.
IF[#503GT0]GOTO100
#516=#515
G0Z#516M9
GOTO110
N100#516=[#503+#515]
G0Z#516
N110M9
M99

bilgi notu;bu prog. yazan,kullanan ve kulanmayı düşünene arkadaşlar #5..-#9.. lü değişkenleri kullanmamalarını tafsiye ediyorum cünkü üretici firmaların ihtiyaç duydukları makro programları için kullandıkları parametrelerdir.ör:takım boyu ölçme prog./çubuk sürücülü tezgahlarda parça kesim prog./5 eksenli tezgahların eksen dönüşlerinin hesaplanma prog v.s.:#1-#19 ve #200-299 bizlerin işini görmeye yeteridir.