ARKADAŞLAR BUYRUN BIR KAC MACRODA BENDEN.SU ANDA TEZGAHIMDA COGU CALISMAKTADIR.HERKESE KOLAY GELSİN.
İNDİRME ŞİFRESİ: turkeycnc
http://www.MegaShare.com/565235
ooo hocam sağolasın sen :D
SAGOL ARKADASIM YALNIZ BUNLARI CEVİRMEK GEREK BENDE DE VAR BUNLAR HATTA TXT YE CEVİRDİM BİR KISMINI FAKAT UFAK HATALAR OLABİLİR DİYE SİTEYE VERMEDİM YAZMASIDA ZOR .BU PROGRAMLAR SENDE CALISIYORMU.CALISIYORSA BİLGİSAYARA YOLLA TEZGAHTAN HEMDE DOGRU OLUR HATASIZ OLUR DİYECEKTİM ZAHMET OLMAZSA SONRA BURDA PAYLASIRIZ NOT YOLLARKEN 3202 NE9 0 OLACAK KOLAY GELSİN
Hoca bunları nerden buldun sen yaaa süper şeyler geçen paylaşılan program vardıya onun verilmeyen makroları sağolasın ben bunları txt yaparım ve paylaşırım emeğiğne sağlık.
http://www.turkeycnc.com/cnc-kontrollu-makinalar/ynt-cnc-programi-pc-icin-super-t2771.0.html
ellerine sağlık.macro program yazmayı bilen arkadaşlar için çok güzel bi paylaşım fakat benim gibi macrodan anlamayanların sadece sap gibi bakacağı bişey..
semih 77 arkadasım gordugun kitapcıktaki programı boş anların da tezgaha gir program no sunu gore ismi degistirirsin sonra komutları dolduracaksın o kadar sadece ofsett sayfasına duzenlemen gerekir
yok böyle bir şey arkadaşlar.gerçekten 10 numara mocro programlar.teşekkürler balbal.bal yapan arı gibisin........
pako kardeş bunlar yokmuydu sende ben 4 yıl once ugrastım onlarla.tezgaın hafıası yeterli degildi benim elimde hali hazırda mevcut word dosyası olarak onu farklı kaydedip txt yapıp denenecek.oyuzden tezgah uzerinden karta veya dnc ile bilgisayara atıp oyle yayınlarsak daha iyi bence paylasım icin sagolasın
Alıntı yapılan: birkan66 - Ocak 09, 2009, 01:45:35 ÖÖ
pako kardeş bunlar yokmuydu sende ben 4 yıl once ugrastım onlarla.tezgaın hafıası yeterli degildi benim elimde hali hazırda mevcut word dosyası olarak onu farklı kaydedip txt yapıp denenecek.oyuzden tezgah uzerinden karta veya dnc ile bilgisayara atıp oyle yayınlarsak daha iyi bence paylasım icin sagolasın
ben 6 senedir cam programı kullanıyorum.macro programlama ile pek ilgilenmiyordum.siteye üye olduktan sonra ilgilenmeye başladım.ben özellikle açılı cep boşaltmaları beğendim.
arkadaşlar herkese selam.
bunların hemen hepsi tezgahımda su an ıcın faal durumda.ayrıca ek olarak bu programları kendım yazmadım.bu sekılde dusunulmesını ıstemem.sadece elıme gectı bı ara ve denedım kendı tezgahımda. baktım kı calısıyor hemen hepsını yukledım.bunların hepsının txt formatıda mevcuttu elımde fakat bılgısayara format attıgımda yedek almayı unutmusum.ha bu arada soylemem gereken bır sey var.bunları not defterınde, word de veya word pad de yazarken lutfen dıkkat edın hata yaptıgınız taktırde tezgah alarm verıyor.ama olakı alarm vermezse o zaman tezgah ıcın sıkıntı ortaya cıkabılır ;)bunları verdım evet kendımde kullanıyorum.ama lutfen bunları duzgun bır sekılde txt dosyasına cevırın.bırkancım uyarıların ıcın tesekkur ederım.sızlerın ovgulerıne mazhar olmak benım ıcın bır ovunctur.devamı gelecek dıyorum.herkese ıyı calısmalar...
balbal kardesim bende onu diyorum işte ben onları yazdım gayet guzel calısıyor fakat tezgahın hafızası yetmiyordu o iş icin ek hafıza acılmas gerkiyordu.o işi ben beceremedim oprogramları tezgahtan pc ye at ama cf karta at onu burada yayınla odaha makbule gecer her sey icin sagol
eline saglık onun sendeki gibi bendede kitabı var .benim anlatmak istedeigim tezgahta olan arkadas lardan biri onu karta veya pc atıp paylasırsa diger arkadaslar tezgahlarına aktarırken zamet cekmez diye soyledim yoksa benim ihtiyacım yok ben iki tane cadcam programı lile işim zaten goruyorum bilmem anlatabildim mi kolaygelsin emegine saglık
Kardeş zati bende ole yaptım ama tam olarak düzenlemedim,şimdilerde çalışmıyorum ondan bunları denemek gibi bir şansım yok.
temur arkadas sen degil balbal arkadas yapacak onu
bırkancım tamam tezgahtan alıp koycam buraya.lakın cok uzun zurecek ve su anda elım bıraz sıkı yanı ıs yonunden.1 haftaya kalmaz atarım ıns.herkese kolay gelsın.
yanliş anlama benim için sorun degil niye dersen kitabı var ve onu kelime ve yazı ya cevirecek program larda var full iris ve fine reader gibi sonra gerisi bir kac dakıka azıcıkta duzeltme sonra tezgaha kolay gelsin cam bilince fazla gerek te yok sanırım tezgah hafızası zaten yetersiz
tşk arkadaşım paylaşımın gerçekten çok güzel
%
O9020(REFERANCE+TOLL CATCH)
#100=#4003
IF[#20EQ#0]GOTO200
N100IF[#20EQ#999]GOTO300
G91G28Z0
T#20M6
#999=#20
GOTO300
N200IF[#4120EQ#999]GOTO300
G91G28Z0
T#4120M6
#999=#4120
N300G#100
M99
%
wwwwwwwwwwwwwwwwwwwwwwww
%
O9913(SQUARE)
(G65P9913X-Y-U-V-H-M-A-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#24EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[[#11*#13]EQ0]GOTO990
IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60#1=-#1
#12=FIX[#11]
#14=FIX[#13]
IF[[#11-#12]NE0]GOTO990
IF[[#13-#14]NE0]GOTO990
IF[#11GT1]GOTO70
GOTO80
N70IF[#21EQ#0]GOTO990
N80IF[#13GT1]GOTO90
GOTO100
N90IF[#22EQ#0]GOTO990
N100#100=1
WHILE[#100LE#11]DO1
#27=[#100-1]*#21
#28=0
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100+1
END1
N200#100=2
WHILE[#100LE#13]DO1
#27=[#11-1]*#21
#28=[#100-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100+1
END1
N300#100=#11-1
WHILE[#100GE1]DO1
#27=[#100-1]*#21
#28=[#13-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100-1
END1
N400#100=#13-1
WHILE[#100GE2]DO1
#27=0
#28=[#100-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100-1
END1
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-U.V.H.M)
N999M99
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9921(SQUARE-UNI-DIR)
(G65P9921X-Y-U-V-D-R-Z-F-E-C-K-Q-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[[#18-#26]LT0]GOTO993
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#22]EQ0]GOTO990
IF[#21LT0]GOTO990
IF[#22LT0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#8EQ#0]GOTO50
GOTO60
N50#8=0.60
N60IF[#8GT1]GOTO996
IF[#3EQ#0]GOTO70
GOTO80
N70#3=#10
N80IF[#3LT0]GOTO992
IF[#6EQ#0]GOTO90
GOTO100
N90#6=0
N100#26=#26+#6
IF[#17EQ#0]GOTO110
GOTO120
N110#17=#18-#26
N120IF[#17GT[#18-#26]]GOTO997(Q-GT-[R-Z])
IF[#6GT#17]GOTO998(K-GT-Q)
#27=#24-[#3+#10]
#28=#25+#10*[2*#8-1]
#29=#18-#17
#30=#28
#14=2*#10*#8
DO1
#28=#30
G00X#27Y#28
Z#18
G01Z#29F[#9/2]
DO2
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO200
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#29F[#9/2]
END2
N200#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
IF[#6EQ0]GOTO500
#26=#26-#6
G00G90Z#18
Z#32
#28=#30
G00G90X#27Y#28
Z#18
G01Z#26F[#9/2]
DO3
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO500
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#26F[#9/2]
END3
N500(***END-OF-FINISH***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9931(CIRCLE-OUTSIDE)
(G65P9931I-D-F-R-Z-C-M-X-Y-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#4*#7*#9]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#3EQ#0]GOTO50
GOTO60
N50#3=#10*2
N60IF[#13EQ2]GOTO70
IF[#13EQ#0]GOTO70
(***UP-CUTTING***)
G00G90X[#24-[#4+#10]]Y[#25+#3]
Z#18
G01Z#26F[#9/2]
X[#24-[#4+#10]]Y#25F#9
G03I[#4+#10]
G01X[#24-[#4+#10]]Y[#25-#3]
GOTO80
(***DOWN-CUTTING***)
N70G00G90X[#24-[#4+#10]]Y[#25-#3]
Z#18
G01Z#26F[#9/2]
X[#24-[#4+#10]]Y#25F#9
G02I[#4+#10]
G01X[#24-[#4+#10]]Y[#25+#3]
(***END-OF-CYCLE***)
N80G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-FOR-I.D.F.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9934(SQUARE-INSIDE)
(G65P9934C-D-F-U-V-R-Z-I-S-M-X-Y-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993
IF[#26EQ#0]GOTO994
IF[[#3*#7*#9*#21*#22]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#4EQ#0]GOTO50
GOTO60
N50#4=#10
N60IF[#10GT#4]GOTO995(D-GT-I)
IF[#10GT[#21/2]]GOTO991(D-GT-U/2)
IF[#10GT[#22/2]]GOTO991(D-GT-V/2)
IF[#10GT#3]GOTO992(D-GT-C)
IF[#3GT[#21/2]]GOTO992(C-GT-U/2)
IF[#3GT[#22/2]]GOTO992(C-GT-V/2)
IF[#19EQ#0]GOTO70
GOTO80
N70#19=3*#9
N80G00G90X#24Y#25
Z#18
G01Z#26F[#9/2]
IF[#13EQ3]GOTO90
IF[#13EQ#0]GOTO90
(***UP-CUTTING***)
G01X[#24+[#3-#10]]Y[#25-[[#22/2]-#3]]F#19
G02X#24Y[#25-[[#22/2]-#10]]R[#3-#10]F#9
G01X[#24-[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X#24Y[#25-[[#22/2]-#10]]
G02X[#24-[#3-#10]]Y[#25-[[#22/2]-#3]]R[#3-#10]
G01X#24Y#25F#19
GOTO100
(***DOWN-CUTTING***)
N90G01X[#24-[#3-#10]]Y[#25-[[#22/2]-#3]]F#19
G03X#24Y[#25-[[#22/2]-#10]]R[#3-#10]F#9
G01X[#24+[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X#24Y[#25-[[#22/2]-#10]]
G03X[#24+[#3-#10]]Y[#25-[[#22/2]-#3]]R[#3-#10]
G01X#24Y#25F#19
(***END-OF-CYCLE***)
N100G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-FOR-C.D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9941(CIRCLE POCKET)
(G65P9941X-Y-Z-R-H-I-D-F-Q-E-A-C-K-M-S-W620-T-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#4]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60IF[#20EQ#0]GOTO70
GOTO80
N70#20=0
N80IF[#11EQ#0]GOTO989(NO-H.)
IF[#18LT#11]GOTO988(SEQUENCE-R.H.Z.)
IF[#18LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#11LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#10GT#4]GOTO991
IF[#3EQ#0]GOTO90
GOTO100
N90#3=0
N100IF[#8EQ#0]GOTO110
GOTO120
N110#8=0.60
N120IF[#6EQ#0]GOTO130
GOTO140
N130#6=0
N140IF[[2*#3+#10]GT[#4-#6-[#11-#26]*TAN[#1]]]GOTO992
IF[[#4-[#11-#26]*TAN[#1]]LT#10]GOTO985(A)
#26=#26+#6
#4=#4+#20*[1-COS[#1]]+#20*[1-SIN[#1]]*TAN[#1]
#4=#4-#6
#104=#4
IF[#17EQ#0]GOTO150
GOTO160
N150#17=#11-#26
N160IF[#17GT[#11-#26]]GOTO997(Q)
IF[#6GT#17]GOTO998(K)
IF[#8GT1]GOTO996(E)
IF[#19EQ#0]GOTO170
GOTO180
N170#19=#9/4
N180#29=#11-#17
DO1
#4=#104
(---A-NE-0---)
#4=#104
#30=#11-#29
#27=#30*TAN[#1]
#4=#4-#27
(---END---)
#12=2*#8*#10(SHARE)
#15=[#4-#10]/#12
#2=#15
#15=FIX[#15](COUNTER)
G00G90X#24Y#25
Z#18
G01Z[#29+#17]F[#9/2]
IF[#13EQ#0]GOTO201
GOTO202
N201#13=3
N202IF[#13EQ2]GOTO210
(***DOWN-CUTTING***)
G03I#3Z#29F#19
IF[#23EQ620]GOTO1000
#100=1
WHILE[#100LE#15]DO2
G01X[#24+[#100-1]*#12-0.5]F#9
X[#24+#100*#12]F[#9/2]
G03I-[#100*#12]
X[#24+#100*#12*COS[5]]Y[#25+#100*#12*SIN[5]]R[#100*#12]
G01X[#24+#100*#12-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
N1000G01X[#24+[#4-#10]-2.5]F#9
X[#24+[#4-#10]]F[#9/2]
G03I-[#4-#10]F#9
X[#24+[#4-#10]*COS[5]]Y[#25+[#4-#10]*SIN[5]]R[#4-#10]
G01X[#24+[#4-#10]-2]Y#25
GOTO220
N210(***UP-CUTTING***)
G02I#3Z#29F#19
IF[#23EQ620]GOTO2000
#100=1
WHILE[#100LE#15]DO2
G01X[#24+[#100-1]*#12-0.5]F#9
X[#24+#100*#12]F[#9/2]
G02I-[#100*#12]
X[#24+#100*#12*COS[5]]Y[#25-#100*#12*SIN[5]]R[#100*#12]
G01X[#24+#100*#12-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
N2000G01X[#24+[#4-#10]-2.5]F#9
X[#24+[#4-#10]]F[#9/2]
G02I-[#4-#10]
X[#24+[#4-#10]*COS[5]]Y[#25-[#4-#10]*SIN[5]]R[#4-#10]
G01X[#24+[#4-#10]-2]Y#25
N220
#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N985#3000=92(BEVEL-A-TOO-BIG)
N988#3000=90(SEQUENCE-ERROR-R.H.Z.)
N989#3000=91(DATA-LACK-H.)
N990#3000=81(DATA-LACK-OR-ERROR-D.F.I.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9943(TRACK-POCKET)
(G65P9943X-Y-Z-R-H-I-J-U-D-F-Q-E-C-K-M-S-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#4*#5]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#11EQ#0]GOTO989(NO-H.)
IF[#18LT#11]GOTO988(SEQUENCE-R.H.Z.)
IF[#18LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#11LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#10GT#4]GOTO991
IF[#10GT#5]GOTO991
IF[#3EQ#0]GOTO90
GOTO100
N90#3=0
N100IF[#8EQ#0]GOTO110
GOTO120
N110#8=0.60
N120IF[#6EQ#0]GOTO130
GOTO140
N130#6=0
N140IF[[2*#3+#10]GT[#4-#6]]GOTO992
#26=#26+#6
#4=#4-#6
#5=#5-#6
IF[#17EQ#0]GOTO150
GOTO160
N150#17=#11-#26
N160IF[#17GT[#11-#26]]GOTO997(Q)
IF[#6GT#17]GOTO998(K)
IF[#8GT1]GOTO996(E)
IF[#19EQ#0]GOTO170
GOTO180
N170#19=#9/4
N180#16=#11-#17
DO1
#12=2*#8*#10(LONG-AXIS-SHARE)
IF[#4LT#5]GOTO190
#15=[#4-#10]/#12
#2=#15
#14=[#5-#10]/#15(SHORT-AXIS-SHARE)
#15=FIX[#15](COUNTER)
GOTO200
N190#15=[#5-#10]/#12
#2=#15
#14=[#4-#10]/#15(SHORT-AXIS-SHARE)
#15=FIX[#15](COUNTER)
#101=#12
#12=#14
#14=#101
N200
G00G90X#24Y#25
Z#18
G01Z[#16+#17]F[#9/2]
IF[#13EQ#0]GOTO201
GOTO202
N201#13=3
N202IF[#13EQ2]GOTO210
(***DOWN-CUTTING***)
G03I#3Z#16F#19
G01X[#24+#21]F#9
#100=1
WHILE[#100LE#15]DO2
#104=#100*#12
#105=#100*#14
#22=SQRT[#21*#21-[#105-#104]*[#105-#104]]
#23=ATAN[#105-#104]/[#22](ANGLE)
#27=#104*SIN[#23](XA)
#28=#104*COS[#23](YA)
#29=#105*SIN[#23](XB)
#30=#105*COS[#23](YB)
G01X[#24+#21+#100*#14]F#9
G03X[#24+#21-#29]Y[#25+#30]I-#105
G01X[#24-#27]Y[#25+#28]
G03X[#24-#27]Y[#25-#28]I#27J-#28
G01X[#24+#21-#29]Y[#25-#30]
G03X[#24+#21+#100*#14]Y0I#29J#30
X[#24+#21+[#100*#14]*COS[5]]Y[#25+#100*#14*SIN[5]]R[#100*#14]
G01X[#24+#21+[#100*#14]-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
#22=SQRT[#21*#21-[#5-#4]*[#5-#4]]
#23=ATAN[#5-#4]/[#22](ANGLE)
#27=[#4-#10]*SIN[#23](XA)
#28=[#4-#10]*COS[#23](YA)
#29=[#5-#10]*SIN[#23](XB)
#30=[#5-#10]*COS[#23](YB)
G01X[#24+#21+[#5-#10]]F#9
G03X[#24+#21-#29]Y[#25+#30]I-[#5-#10]
G01X[#24-#27]Y[#25+#28]
G03X[#24-#27]Y[#25-#28]I#27J-#28
G01X[#24+#21-#29]Y[#25-#30]
G03X[#24+#21+[#5-#10]]Y0I#29J#30
X[#24+#21+[#5-#10]*COS[5]]Y[#25+[#5-#10]*SIN[5]]R[#5-#10]
G01X[#24+#21+[#5-#10]-2]Y#25
GOTO220
N210(***UP-CUTTING***)
G02I#3Z#16F#19
#100=1
WHILE[#100LE#15]DO2
#104=#100*#12
#105=#100*#14
#22=SQRT[#21*#21-[#105-#104]*[#105-#104]]
#23=ATAN[#105-#104]/[#22](ANGLE)
#27=#104*SIN[#23](XA)
#28=#104*COS[#23](YA)
#29=#105*SIN[#23](XB)
#30=#105*COS[#23](YB)
G01X[#24+#21+#100*#14]F#9
G02X[#24+#21-#29]Y[#25-#30]I-#105
G01X[#24-#27]Y[#25-#28]
G02X[#24-#27]Y[#25+#28]I#27J#28
G01X[#24+#21-#29]Y[#25+#30]
G02X[#24+#21+#100*#14]Y0I#29J-#30
X[#24+#21+[#100*#14]*COS[5]]Y[#25-#100*#14*SIN[5]]R[#100*#14]
G01X[#24+#21+[#100*#14]-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
#22=SQRT[#21*#21-[#5-#4]*[#5-#4]]
#23=ATAN[#5-#4]/[#22](ANGLE)
#27=[#4-#10]*SIN[#23](XA)
#28=[#4-#10]*COS[#23](YA)
#29=[#5-#10]*SIN[#23](XB)
#30=[#5-#10]*COS[#23](YB)
G01X[#24+#21+[#5-#10]]F#9
G02X[#24+#21-#29]Y[#25-#30]I-[#5-#10]
G01X[#24-#27]Y[#25-#28]
G02X[#24-#27]Y[#25+#28]I#27J#28
G01X[#24+#21-#29]Y[#25+#30]
G02X[#24+#21+[#5-#10]]Y0I#29J-#30
X[#24+#21+[#5-#10]*COS[5]]Y[#25-[#5-#10]*SIN[5]]R[#5-#10]
G01X[#24+#21+[#5-#10]-2]Y#25
N220
#16=#16-#17
IF[#16GE#26]GOTO300
IF[[#16+#17]EQ#26]GOTO400
#16=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N988#3000=90(SEQUENCE-ERROR-R.H.Z.)
N989#3000=91(DATA-LACK-H.)
N990#3000=81(DATA-LACK-FOR-D.F.I.J.U.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
arkadaslar çağrı komutlarının anlamlarını ve resımlerını bilgisayara atamadım tarama işlemini hallettıkten sonra (custom macro programıng manuel kıtabını kardeslerimin hizmetine sunacagım sevgilerle)
Teşekürler emeğine sağlık
teşekkürler
Alıntı yapılan: balbal - Ocak 07, 2009, 02:41:31 ÖS
ARKADAŞLAR BUYRUN BIR KAC MACRODA BENDEN.SU ANDA TEZGAHIMDA COGU CALISMAKTADIR.HERKESE KOLAY GELSİN.
İNDİRME ŞİFRESİ: turkeycnc
http://www.MegaShare.com/565235
arkadaşlar bu mokro işini yazmayı değilde kullanmayı az anlatsanız benim anladığım şu 9022 numaralı proğramı örnek 9022 tezgaha atıyrum artık onu g65 le çagırarak kullanıyorum doğrumu anlamışım tşk emeginiz için
eilne saglık yalnız burada ofset sayfasına gore bazı yerleri duzeltmen gerkebilir orasını hatırlatayım