EŞİT AÇILI DELME

[iboemre]

bunları okudum fakat fazla bi macro program bilen arkadaşa rastlamadım bunlar alıntıdır baştan macro yapabilen varmı? var evet ben  örnek vereyim hemen örneğin 100mm boyunda bir parça tarayalım 15 mm talaş alacağız bu parcadan vede her turda 1 mm talaş alalım yazıyorum..:)
#2=15 başlacağı mesafe parcaya uzaklığı yanı
N1G0Z20X0Y0 POZİSYONLUYOR
G1X-100F4000
#2=#2-1  HER TURDA ALACAĞI TALAŞ
IF[#2GE0]GOTO1   EN GİDECEĞİ YER VE HANGİ SATIR ARASINDA ÇALIŞACAĞI...
BU KADAR BASİT DAHA DEĞİŞ ŞEKİLDEDE YAPABİLİRZ MİLYONLARCA ÖRNEK VEREBİLİRM   ZAMANLA YAZARIM DAİRESEL HAREKET İLE DELİK BÜYÜLTME YANİ ÇAP BÜYÜYOR ALT PROGRAM YOK BİŞİ YOK SADECE YARI ÇAP EN SON ÇAP DERİNLİK HIZ VS. BUNLARI VERECEĞİM DAHA NELER VAR NELER...BY'RASTLANTİ

Selam,

İstediğin herhangi bir Makro varsa söyle..................
Yapmaya çalışırım...........

Kitamura Güney Almanyada Servis Teknisyeniyim.
Ve Talaşlama işlemini (Torna ve Freze) Haziran 1982 yılından beri yapmaktayım.
Ama hala evet *yapabilen ben varım* diye iddia edemiyorum. Çünki hergün yeni bir istek ve problem çözümü ile karşılaşıyorum.

[iboemre]

 ZAMANLA YAZARIM DAİRESEL HAREKET İLE DELİK BÜYÜLTME YANİ ÇAP BÜYÜYOR ALT PROGRAM YOK BİŞİ YOK SADECE YARI ÇAP EN SON ÇAP DERİNLİK HIZ VS. BUNLARI VERECEĞİM DAHA NELER VAR NELER...BY'RASTLANTİ

Ha bu arada başlangıcı müsaadenle ben yapayım:

O4711
#504=#503
#505=#503

#500=....(YARI ÇAP R )
#501=.... (ILERLEME F )
#502=....(DERINLIK Z)
#503=1 (HER TURDA KATEDILEN Z DERINLIK)
#510=.... (TAKIM)

G1 Z0 F#501 M3
G1 G91 G41 D#510 X#500 Y0 F#501

N100 G3 I-#500 Z-#505
#505=#505+#504
IF [#505LT#502] GOTO 100
IF [#505EQ#502] GOTO 200
IF [#502EQ#505] GOTO 300

N200 G3 I-#500 Z-#502

N300 #505=0
G1 X-#500
Go G9o G40 Z5
M30

[biga]

  Değerli dostum gönderdiğim programlar bana ait değildi o programlar makıno işleme merkezinde bulunan standart paket programlardı makınoya ait olduğu için zannedersem başka fanuc sistemde çalışmadı.
tüm fanuc sistemlerde çalışacak olan macroyu yaptım denedim çalıştı gönderiyorum.

     9120 nolu programdan farkı D hanesine takım yarıçapının bulunduğu ofseti değil takım yarıçapının kendisini yazıyoruz,M hanesini kullanmıyoruz,takım G02 yönünde çalışıyor,daireyi tek seferde veya birkaç seferde işleyebiliyorsun.

     macro hakkında fazla bilgsi olmayan arkadaşlar için bu programda G41 , G42 kulanmadan yarıçap telafisi   yapabilirsiniz. D hanesindeki takım yarıçap değerini değiştirerek daireyi istediğiniz hassasiyette işleyebilirsiniz.
 
   değerli dostum böyle bir konu başlattığn için çok çok sağol macronun ne kadar faydalı,güvenli,ve zaman kazandıran programlama olduğunu sayende anlayacağız.
saygılar     


------------RASLANTİİİİİ BİRADER  AL SANA ALINTI OLMAYAN YERLİ PAKET PROGRAM-----------------
bu mesajı daha önce göndermiştim ama senin için bir daha gönderiyorum. burada programın kaynağıda yazıyor insanları suçlamadan önce mesajları iyi okuyup yorumları öyle yapalım.
EMEĞE VE PAYLAŞILANA SAYGI....................

PROGRAMI ÇALIŞTIRMAK İÇİN ana programda

G65 P7777 X0 Y0 I.. D..Z..R..F..S..Q..H..; yazılıyor
macro sabit kalıp deiştirilmiyor.

D=TAKIM YARIÇAP DEĞERİ
I=DAİRE YARIÇAP DEĞERİ
Z=DERİNLİK
R=REFERANS YÜZEYİ
F=XY YÖNÜNDE KESME İLERLEMESİ
S=Z YÖNÜNDE KESME İLERLEMESİ
Q=Z YÖNÜNDE BİR SEFERDE GİDECEĞİ MESAFE
H=XY YÖNÜNDE BİR SEFERDE GİDECEĞİ MESAFE

%
:7777(CEP DAİRE İŞLEME PROGRAMI)
#10=#18
#5=#4
G90G0Z#18
#6=#11
#8=#6
N01
IF[#7GE#4]GOTO9000
IF[[#6+#7]GT#5]GOTO02
G01Z#10F#19
G01X#6F#9
G02X#6I[#6-#6*2]F#9
IF[[#6+#7]EQ#5]GOTO03
#6=#6+#11
#8=#6
IF[[#6+#7]GT#5]GOTO02
IF[[#6+#7]LE#5]GOTO01
N02
#6=[#4-#7]
IF[[#6+#7]NE#5]GOTO9000
GOTO01
N03
#6=#11
G01X#24F#9
IF[#10LT#26]GOTO04
IF[#10EQ#26]GOTO05
#10=#10-#17
IF[#10GE#26]GOTO01
N04
#10=[#26]
IF[#10NE#26]GOTO9999
GOTO01
N05
#10=#18
G01X#24Y#25F#9
G91G30Z0M5
GOTON9999
N9000
,,,,(D GE I) (NE),,,,
N9999
M99
%

[biga]

%
:8014(BOLUM DAIRE ESIT DELIKLER)(DELIK CEVRIMIG81/G83/G84/G76..)

(G81 Z.R.F.L0 VEYA L YOK)
(G65 P8014 X.Y.A.I.D.)

(A=BASLAMA ACISI)
(I=YARI CAP,R,)
(D=DELIK SAYISI)
(X,Y=BOLUM DAIRE MERKEZI)

#10=1
#13=[360/#7]
#11=SIN[#1]*#4
#12=COS[#1]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#1+#13]
WHILE[#10LT#7]DO1
#11=SIN[#14]*#4
#12=COS[#14]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#14+#13]
#10=#10+1
END1
M99
%

buda eşit açılarda delik delmenin başka şekli bunuda kullanarak delikleri işleyebilirsin

[biga]

%
:8014(BOLUM DAIRE ESIT DELIKLER)(DELIK CEVRIMIG81/G83/G84/G76..)

(G81 Z.R.F.L0 VEYA L YOK)
(G65 P8014 X.Y.A.I.D.)

(A=BASLAMA ACISI)
(I=YARI CAP,R,)
(D=DELIK SAYISI)
(X,Y=BOLUM DAIRE MERKEZI)

#10=1
#13=[360/#7]
#11=SIN[#1]*#4
#12=COS[#1]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#1+#13]
WHILE[#10LT#7]DO1
#11=SIN[#14]*#4
#12=COS[#14]*#4
G90X[#24+#12]Y[#25+#11]
#14=[#14+#13]
#10=#10+1
END1
M99
%

buda eşit açılarda delik delmenin başka şekli bunuda kullanarak delikleri işleyebilirsin

G81 Z-20 R3 F400 L0
G65 P8014 X0 Y0 A45 I45  D8 
bu programda mavi olan değerleri değiştirerek istenilen sayıda istenilen açıda istenilen bölüm dairesinde
delik işleyebilirsiniz

MACRO DEĞİŞMİYOR TEZGAHTA ALT PROG OLARAK KALIYOR

işleme şeklini görmek için linke tıklayın

http://www.turkeycnc.com/okuma/cnc-okumayi-ogreniyorum-baslangic-t2460.75.html

[celaldemiral]

tesekkur ederim gercekten bilgi dolu bir yer ve yardimlasmak ayri bir guzel yayinda ve yapimda emegi gecen herkese tesekkurler

[sahran]

ya beyler ne diyecegim
öyle makro örnekler yazıyorsunuz ki
hepsini akılda tutmak lazım
sanırım zor olur daha kısa yoldan
yazılmazmı bu

birde
ben 30 yasındayım
27 yasımda kaynak işini bırakıp cnc işine basladım
cnc torna freze beraber ögrendim cimatronda kısmen çizim yapıyorum
programlama yapıyorum
visual basicde yazılım yapıyorum
fotoshop kullanıyorum
flash kullanıyorum
ama bunlar hiç birşey
gelip geçici
üstüne beni övmelerine de fene gıcık oluyorum

övgüye layık olan yalnız Allah (c.c) dır.








evet raslantı bana bu programı

3 satırda yapabilirmisin
ben makroya 5 gun önce bir örnekle basladım
bilgim yok bilgi rica ediyorum
asagıda birseyler yapmaya çalıstım
fanuc ta denedim oldu
ama benim yaptıgım
ekran koruyucu gibi oldu
yan sanayi macro  :-\
#1 =0;
#15=10
#3=20
#4=5
#5=15
#6=25
#7=1
#8=20
#9=35
#10=55
#11=10
#12=40
#13=65
#14=64
#16=2
G#1 X#14 Z#15
G71 U2 R1
G71 P1 Q2 U0 W0 F0.20
N1 G#1 X#15
G#7 Z#1
X#3 R#4
Z-#5
X#6 C-#7
Z-#8
X#9
X#10 R10
Z-#12
X#13
N2 G#1 Z#16
G0 X200 Z150
M5
M30

BUNU YAPMANIN KISA YOLU NEDİR

T0101  60 MM ÇAPINDAKİ MALZEMEDE KABA BOSALTMA YAPIP
T0505 İLE FİNİSH ATMAK

G0X62 Z2
FİNİSH VERİYORUM
G1 X10 Z0
X20 R5
Z-15
X25 C-1
Z-20
X35
X55 R10
Z-40
X63
G0 Z2

[ekim28010]

Ben cimatron programını indirmek istiyorum bana yardım edermisiniz? msnem: ali_574_44@hotmail.com a meyil atarsanız sevinirim.