#MACRO SPİRAL CEP BOŞALTMA#

[firtina35]

#MACRO SPİRAL CEP BOŞALTMA#
%
O0100(HELISEL CAP BOSALTMA/OK)
#101=70(BUYUK CAP)
#102=0(KUCUK CAP)
#103=20(TAKIM CAPI)
#104=7.5(TPLM Z BOYU)
#105=2(Z PASO)
#106=0(CAPTA FINISHE PAY)
#107=0(BOYDA FINISHE PAY)
#108=3000(DEVIR)
#109=1000(ILERLEME)

(BURDN SNRSNI DGSTRME)
#110=[[[#101-#103]-#106]/2](BYK)
#111=[[[#102+#103]+#106]/2](KCK)
#112=[[#103/2]-0.25]
#113=[#101]-[#103*2]
#16=[#104/#105](Z PJSO)
#17=[#104-#107]*[-1]
#3006=1(TAKIM BOYU H,50 DE)
IF[#113LT#102]GOTO5000
M3S#108
G0G43G54G90H50X0.Y-#110Z100.
G0Z1.
G1Z0.F100
N500G1Y-#110F#109
#115=[#115+#105]
IF[#115GE#104-#107]THEN#115=[#104-#107]
G2X0.Y#110R#110Z-#115F[#109/2]F#109
G2J-#110F#109
N1200#120=[#5002-#112]
IF[#120LT#111]GOTO1300
G2Y-#120R#120F#109
#121=[#5002+#112]
#121=[#121]*[-1]
IF[#121LT#111]GOTO1300
G2Y#121R#121F#109
GOTO1200
N1300G2Y-#111R#111F#109
G2J#111F#109
IF[#5003NE#17]GOTO500
G0G90Z100
G0G91G28Z0.
G0G91G28Y0.
M30
N5000#3006=1(TAKIM CAPI BUYUK)
M99

%
Not: bu programda çap boşaltırken #102 ye yazdığınız değerle ortada erkek bir çap bıraka bilirsiniz.Faydalı olması dileğiyle...

[asra]

Teşekkürler...

[yavuz60]

ustam büyüksün