#MACRO CEP DUVAR FİNİSH(ERKEK)#

[firtina35]

#MACRO CEP DUVAR FİNİSH(ERKEK)#
%
O0403(CEP DUVAR FINISH ERKEK)
(PARCA SIFIRI ORTAYA GORE)
#19=2000(DEVIR)
#9=1000(ILERLEME)
#24=100(X PARCA BOYU)
#25=50(Y PARCA BOYU)
#26=30(Z TPLM DERINLIK)
#23=10(Z PASO)
#7=7(TAKIM CAPI)
#18=15(PARCA KOSE RADUSU)

(BRDN SONRSINI ELLEME)
IF[#24LT#7*3]GOTO5009
IF[#25LT#7*3]GOTO5009
IF[#24LT#18*2]GOTO5008
IF[#25LT#18*2]GOTO5008
N8IF[#24LT#7]GOTO5007
IF[#25LT#7]GOTO5007
#21=50
#100=[[#24-#25]/2](BSLNGC)
#101=[#21/100]*[#7](TKM R)
#102=[[#24+#7]/2](X BTS)
#103=[[#25+#7]/2](Y BTS)
#104=[[[[#18*2]+#7]/2]](P.RDS)
#105=[#7/2]
#106=[[[#24-#7]/2]-#105](X)
#107=[[[#25-#7]/2]-#105](Y)
#108=[#7*2]
#109=[[#25-#24]/2]
#23=[#23/2]
#110=[#26]*[-1]
IF[#21GT90]GOTO5004
IF[#21LT20]GOTO5011
IF[#26LT#23]GOTO5003
IF[#21EQ0]GOTO5002
IF[#19EQ0]GOTO5001
IF[#19LT0]GOTO5000
IF[#24LT0]GOTO5000
IF[#25LT0]GOTO5000
IF[#26LT0]GOTO5000
IF[#23LT0]GOTO5000
IF[#21LT0]GOTO5000
IF[#18LT0]GOTO5000
IF[#7LT0]GOTO5000
IF[#9LT0]GOTO5000
IF[#18EQ0]THEN#104=0
#3006=1(TKM BOYUNU H50 KAYDET)
M3S#19
G0G90G54G43H50X0.Y[#103+#105]Z100.
G0Z2.
G1Z0.F200
N68#1=#23
N50G1X#102,R#104Z-#1F#9
N60G1Y-#103,R#104Z-#1F#9
N70G1X-#102,R#104Z-#1F#9
N80G1Y#103,R#104Z-#1F#9
N90G1X#102,R#104Z-#1F#9
G1Y-#103,R#104Z-#1
IF[#5003EQ#110]GOTO490
#1=[#1+#23]
IF[#1GT#26]THEN#1=#26
GOTO70
N490G1X-#102,R#104F#9
G1Y#103,R#104F#9
G1X0.Y[#103+#105]F#9
N500G0Z20
G0G91G28Z0.
G0G91G28Y0.
M30

N5000#3000=1(EKSI(-) DEGER GIRILEMEZ)
M99
N5001#3006=1(DEVIR YAZILMADI)
M99
N5002#3006=1(TAKIM TALAS YUZDELIK YZLMDI)
M99
N5003#3006=1(DRNLIK YADA PASO HATALI)
M99
N5004#3006=1(TKM TALAS YZDELIGI FAZLA)
M99
N5005#3006=1(TKM RDSU KOSE RDSNDN BYK)
M99
N5006#3006=1(KOSE RADUSU BYK HSP HATASI=#18)
M99
N5007#3006=1(TAKIM CAPI X.&Y,DEN FAZLA)
M99
N5008#3006=1(PARCA RADUSU FAZLA)
M99
N5009#3006=1(HESAP HATASI)
M99
N5010#3006=1(PARCA RADUSU KUCUK YAZILDI)
M99
N5011#3006=1(TAKIM TALAS YUZDELIGI AZ)
M99

%
(Not:program içerisindeki ,R ileri ,C yaparsanız köşelere radüs yerine 45° PAH kırar.)