yüzey tarama
T01M06
S1000M03
G90G54G43H01Z5.
G0X120Y120
G1Z-1F200
G65P9017X200Y200D12Q75F200
G91G28Z0
M30
X200XBOYU
Y200YBOYU
D12TAKIMTAMÇAPI
Q75TAKIM%75TALAŞALSIN
F200İLERLEMESİ
#200=[#7/2]
#100=[#24/2]
#101=[#25/2]+#200
G0X#100Y#101
#102=[#7/100]*#17
#103=#102
G91Y-#102
N1G90G1X-#100F#9
G91Y-#102
G90G1X#100
G91Y-#102
#103=[#103+#102]
G90G1X-#100F200.
IF[#103LT#101]GOTO1
M99
%
Bu programda benim yüzey tarama programım.
Herkez anlayabilsin kullanabilsin diye gayet açık ve net anlatmaya çalıştım. Bu programı kullanmak isteyen ve bir yerde takılan olursa buradan yardım edebiliriz.
1- Parça orijini olarak parça ekseni olmalı. Değilse G52 ile kaydırılmalı.
2- 9105 numaralı programı CNC'ye yüklemelisiniz. 9000 li program numaraları ile kaydedemiyorsanız. herhangi bir program numarası ile kaydediniz.
3- Ana programınız üzerine G65li satırı yazıyorsunuz.
P - Makro programınızı hangi numara ile kaydettiyseniz. Pye o numarayı yazın. (P9105) gibi.
X- Parçanın X eksenindeki boyu.
Y- Parçanın Y eksenindeki boyu.
D- Takım çapı.
S- Devir.
F- İlerleme mm/dk
4- Program Z200'e kalkar ve başlayacağı X- Y+ daki pozisyonunu alır.
5- Z0 da bir paso parçayı temizler. X eksene paralel olarak parçayı temizler. Y ekseninde boşta hareket eder.
6- İşlem bittiğinde Z200 e kalkar ve program ana programa, G65li satırın bir altındaki satırdan başlayarak devam eder.
..
...
G65P9105X840Y620D63S1200F2000
M0
O9105
(X-Y-D-S-F)
(FACE MILL MACRO PROGRAM BY CK53)
IF[#24LE0]GOTO61
IF[#25LT0]GOTO62
IF[#24LE[#7*2]]GOTO63
IF[[#7*#19]GT100000]GOTO64
IF[#19LE0]GOTO65
G80G90Z200.W0
#24=#24(X)
#7=#7(D)
#25=#25(Y)
M3S#19
#101=[#25+10]
#3=FUP[#101/#7](HATVE ADEDI)
#103=FIX[#101/#3](PASO GENISLIK)
#104=[[[#24+#7]/2]+5](X HESABI)
#4=FIX[#3/2]
#5=[#4*2]
IF[#3EQ#5]GOTO42
(TEK)
G0X-#104Y[[[#3-1]/2]*#103]
Z0
#105=0
N30IF[#105EQ#4]GOTO37
G90G1X#104F#9
G91G0Y-#103
G90G1X-#104
G91G0Y-#103
#105=#105+1
GOTO30
N37G90G1X#104
GOTO66
(CIFT)
N42
G0X-#104Y[[[#3-1]/2]*#103]
Z0
#105=1
N46IF[#105EQ#4]GOTO53
G90G1X#104F#9
G91G0Y-#103
G90G1X-#104
G91G0Y-#103
#105=#105+1
GOTO46
N53G90G1X#104
G91G0Y-#103
G90G1X-#104
G0G90Z200.M19
GOTO66
N61#3000=1(X HATALI)
N62#3000=2(Y HATALI)
N63#3000=3(TAKIM BUYUK YADA PASO KUCUK)
N64#3000=4(DEVIR FAZLA)
N65#3000=5(DEVIR YOK)
N66M99
%