dikdörtgen cep boşaltma yapabilen varmı

[sinan]

arkadaşlar macro ile dikdörtgen cep boşaltma yazabilen varmı kare degil ama dikdörtgen üstüne basarak sölemek istiyorum forumdada böle bir örnekte bulamadım yapan ilk i yapmış olucak...

[sinan]

G90G0G54X-10.Y0M3S4500
G43Z50.H1M8
#1=0.1         (Z başlama noktası )
#10=50          ( açılacak daire raidusunun yarsı)
#11=#10*#10      ( sabit )
#12=0.5           ( z de kaç kaç alacagı )
#13=20             ( toplam z boyu tam yarım küre açmak isterseniz raidusun yarısını verin)
WHILE[#1LE#13]DO1
#2=#10-#1
#3=SQRT[#11-[#2*#2]]
G1Z-#1F20
X-#3F500
G2I#3
#1=#1+#12
END1
G0Z50.M5
M30


buda küreye finiş geçiyor erkek veya dişi küreye bence harika bir proğram mantıgı alıntı kalanı made in sinan

[crisis]

bu dikdörtgen işinde senin bi çalışman vardır diye düşünüyorum

[sinan]

bu dikdörtgen işinde senin bi çalışman vardır diye düşünüyorum

kesinlikle doğru crisis beni benden daha iyi tanıyorsun ama beceremedim doğrusu yana boşalmayı yapıyorum ama dalıp tekrar boşaltmada kaldı alarm verdi tezgah sonra bende yoruldum ve alarm verdim ve yardım istedim... :)

[crisis]

madem öyle bende bi bakayım
şöyle bi düşündümde yapabilirim sanırım lakin zamana ihtiyacım var
çünkü cep boşaltma birazdaha karışık olcak gibi sadece dikdörtgen değil aynı zamanda kare içinde kullanılabilir olcak
birde ayrıntılara girmek istiyorum çokta sallama bi macro olmasın

sinan sen yaptığın kadarını bi yollarmısın aklımdakilerden biriyle uyuşuyo ise üstünden devam etmeye çalışırım olmazsa belki başka fikir verir

[fırtına35]

#MACRO CEP  BOŞALTMA (KARE+ DİKDÖRTGEN)#
%
O0401(CEP BOSALTMA/KARE/DKDRTGEN)
(PARCA SIFIRI ORTAYA GORE)
#19=2000(DEVIR)
#9=3000(ILERLEME)
#24=50(X PARCA BOYU)
#25=50(Y PARCA BOYU)
#26=3(Z TPLM DERINLIK)
#23=2.25(Z PASO MIKTARI)
#7=6(TAKIM CAPI)
#18=3(PARCA KOSE RADUSU)

(BRDN SONRSINI ELLEME)
IF[#18LT#7/2]GOTO5010
IF[#24LT#7*3]GOTO5009
IF[#25LT#7*3]GOTO5009
IF[#24LT#18*2]GOTO5008
IF[#25LT#18*2]GOTO5008
IF[#24LT#7]GOTO5007
IF[#25LT#7]GOTO5007
#21=50
IF[#18EQ0]THEN#18=[#7/2]
#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]
#115=[#7*2]
IF[#18GT#108]GOTO5006
IF[#105GT#18]GOTO5005
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[#24GE#25]GOTO35
#3006=1(TKM BOYUNU H50 KAYDET)
M3S#19
G0G90G54G43H50X0.Y-[#109-#115]Z100.
IF[#24LT#25]GOTO36
N35M3S#19
G0G90G54G43H50X-[#100-#115]Y0.Z100
N36G0Z2.
G1Z0.F200
#30=#23
N200IF[#24GE#25]GOTO37(X)
IF[#24LT#25]GOTO38(Y)
N37G1X-#100Z-#30F#9(X)
G1X#100F#9
IF[#24GE#25]GOTO39
N38G1Y-#109Z-#30F#9(Y)
G1Y#109F#9
IF[#24LT#25]GOTO40
N39(X)
#111=#100(X)
#113=#100(X)
IF[#24GE#25]GOTO100
N40(Y)
#110=#109
#112=#109
#110=[#110+#101](Y1)
N100G1Y#110F#9
#111=[#111+#101]
IF[#111GT#106]GOTO20
G1X-#111F#9
#112=[#112+#101]
IF[#112GT#107]GOTO30
G1Y-#112F#9
#113=[#113+#101]
IF[#113GT#106]GOTO40
G1X#111F#9
#110=[#110+#101]
IF[#110GT#107]GOTO10
GOTO100
N10G1Y[#110-#101]F#9
GOTO50
N20G1X-[#111-#101]F#9
GOTO60
N30G1Y-[#112-#101]F#9
GOTO70
N40G1X[#113-#101]F#9
GOTO80
N50G1X-#102,R#104F#9
N60G1Y-#103,R#104F#9
N70G1X#102,R#104F#9
N80G1Y#103,R#104F#9
N90G1X-#102,R#104F#9
G1Y-#103,R#104F#9
G1X0.
IF[#24EQ#25]GOTO46
IF[#24LT#25]GOTO45
G0Y0.F#9
G0X-[#100-#115]Z-[#30-2]
G0Z-[#30-0.5]
G1Z-#30F#9
IF[#24GT#25]GOTO46
N45
G0X0.Z-[#30-2]
Y-[#109-#115]
G0Z-[#30-0.5]
G1Z-#30F#9
N46
#110=0
#111=0
#112=0
#113=0
IF[#30EQ#26]GOTO500
#30=[#30+#23]
IF[#30GE#26]THEN#30=#26
IF[#24NE#25]GOTO51
G0Y0.Z-[#5003+2]
X-#7
G0Z-[#5003+1.5]
N51GOTO200
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
%

[Alicnc2626@gmail.com]

Güzel olmuş eline emeğine sağlık.

[esaslan]

Helal