isleme merkezi tek seferde daire bosaltma orn gostercek var mi ? Makro da olur..
T01 M6
M3 S2000
G0 G40 G90 G54 X0.Y0.
G0 G43 Z5. H01
G01 Z0. F500
M98 P101 L20
GO G91 G28 Z0.
M5
M30
ALT PROG
G91 G01 Z-1.F100
G90 G01 X-9.F1200
G02 I9.
G01 X-18.45
G02 I18.45
G01 X-27.
G02 I27.
G01 X-34.85
G02 I34.85
G91 Z1.
G0 G90 X0.
G91 Z-1.
M99
Ortagim resim yok. Demek istedigim su.
Atiyorum cap 100e delik bosaltcam oncelikle Udrill deliyorum Sonrasinda Freze veya herhangi bi takinla en az 3sefer olcu vererek bosaltiyorum vakit kaybi .s bna tek seferde lazim makro alt programli hpsi uyar. Yardimci olursaniz sewinirim .
%
O0090(HELISEL CAP BOŞALTMA)
#1=95(BYK ÇAP)
#2=8(KCK ÇAP)
#3=4(TKM ÇAPI)
#5=5.5(Z)
(ÜSTTEKİ DEĞERLERİ DEĞİŞTİR YETER)
#12=[[#1-#3]/2](BYK)
#11=[[#2-#3]/2](KCK)
M3S1000;
G0G43G54G90H100S3000X0.Y#12Z50.;
G0Z1. ;
#4=[[#3/2]+0.5]
G1Z-#5F200 ;
G3J-#12;
N1200#100=[#5002-#4] ;
IF[#100LT#11]GOTO1300;
G2Y-#100R#100F1000;
#101=[#5002+#4];
#101=[#101]*[-1] ;
IF[#101LT#11]GOTO1300;
G2Y#101R#101 ;
GOTO1200
N1300
G0G91G28Z0.
G0G91G28Y0.
M30;
%
Macro programda hatve yokmu
Erdem Usta program icin sagol..
Firtina bu programi deniycem.
Firtina programin cok basarili. Tam helises :)
Cok tesekkur ederim. Fakat benim istedigim helisel + Z inme . Seninkinde Z sabit istedigin cap yapiyo . Ayni zamnda Z istenilen yere gelse olmaz mi?
Kardeşim bilgisayarım tamirde gelsin istediğini gönderirim.......
Al Kadeşim güle güle kullan%
O0100(HELISEL CAP BOSALTMA/OK)
#101=120(BUYUK CAP)
#102=0(KUCUK CAP)
#103=10(TAKIM CAPI)
#104=7.5(TPLM Z BOYU)
#105=7.5(Z PASO)
#106=0(CAPTA FINISHE PAY)
#107=0(BOYDA FINISHE PAY)
#108=3000(DEVIR)
#109=1000(ILERLEME)
#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 H100,E KAYDET)
IF[#113LT#102]GOTO5000
M3S#108
G0G43G54G90H100X0.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]
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
%
bu biraz uzun olmuş bence alt programla daha kısa ve net olur mesela 50 çap 20 mm çakı çapı ile işleme
ANA PRG*O0001*
T1 M6*
M3 S1000*
G90 954 G0 X15 Y0*
G0 G43 Z50 H1*
Z2 M8*
G1 Z0 F200*
ALT PRG*M98 P2 L10*
G0 Z150 M9*
M5*
M30*
O0002*
G91*
G2 I-15 Z-2 F250*
M99*
umarım faydalı olmuştur
tek seferde işlemede yine 50 çap 20 mm freze
T1 M6*
M3 S1000*
G90 G54 G0 X0 Y0
G0 G43 Z50 H1
Z2 M8
G1 Z-10 F150
X15
G2 I-15
X0
G0 Z150
M5
M30
Sevgili kenan kardeşim macroyla ne kadar ilgin var bilmiyorum.Evet alt programlarda olur buradaki amaç işleme çapı ve takım çapı değistiğinde Seni hesaplamadan ve tekrar program yazmaktan kurtarır.örneğin;300luk bir çapı 20 ilk bir takımla boşalma yapacaksın derinliğimiz 26mm ve pason 1.15,1.15 olsun ve ortada 22.75 çapında bir çap kalsın' bu caplara finiş için çapta ve boyda 0.05 paylı işlensin .bunlar için aşşağıdaki değerleri değiştirmek yeter.ama sen yinede hesap yapıca dersen senin tercihin
#101=300(BUYUK CAP)
#102=22.75(KUCUK CAP)
#103=20(TAKIM CAPI)
#104=26(TPLM Z BOYU)
#105=1.15(Z PASO)
#106=0.05(CAPTA FINISHE PAY)
#107=0.05(BOYDA FINISHE PAY)
#108=2500(DEVIR)
#109=1000(ILERLEME)
Grafik videosu için
https://www.facebook.com/n/?video%2Feditvideo.php&v=889833511031179&aref=124519416&medium=email&mid=9ec7ac6G5af31897a317G76c03f8G3dG7165&bcode=1.1401060760.AbkKeVPtlrJnlyQw&n_m=fatihefefirtina%40gmail.com
Kenan Kardes program icin cok sagol.
Anlatmak istedigim su.
Seninki normal cap bosaltma.
Benim istedigim.
Tek seferde hem istenilen cap + istenilen (Z).
Erdem Usta da gonderdi saolsun onunkide her Z pasosunda merkeze geliyor.
O programda cok basarili
Ecelle100less programı denedinmi
Fatih Abi saolasinn.
Islerim sikligindan yeni programini deneyemedim.
Oncekinde Z sabitti bilgisayarin tamirde oldugunu soylemistin..
O programda cok kuvvetliydi. =)
Makroya su aralar birazdaha kafa yoruyorum.
Tekrardan tesekkurler Abi , deniycem bunu
Z olayını hallettik kardeşim deneyince haber ver.okey
Tamamdir Abi deneyince haber ederim..
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 ( bu satir ustunde alarm verdi.)
N1200#120=[#5002-#112]
Ilk turu tamamladiktan Sonra veren alarm.
Over tolerance of radius
Evet kardeşim burada G2 satırında iki tane F belirtmişim [ ] parantez dışında kalan F#109 sil tamamdır.Okey
Radüs alarmı, bu alarmı verdiğinde girmiş olduğun çap değerlerini yazarmısın
#101=?(BUYUK CAP)
#102=?(KUCUK CAP)
#103=?(TAKIM CAPI)
#101=42(BUYUK CAP)
#102=0(KUCUK CAP)
#103=6(TAKIM CAPI)
Tmam onu silince tekrar denerim