EŞİT AÇILI DELME

[paşalı]

sitenize yeni üye oldum fanuc sistemi yeni öğreniyorum. bölüm dairesi üzerinde eşit açılrda 6 adet delik işlemek istiyorum yardım bekliyorum .tsk

[cncturk]

bunun için polar kordinat kodunu g15-g16 kullanıyorsun

g16 komutunu girdikten sonraki satırlara yazacağın X değeri Çap Y değeri açı olarak işlem görür
mesela bölüm çapı 100 ve çevrede 4 delik dersen

G16
X100 Y90
X100 Y180
X100 Y270
X100 Y360
G15 ile işlemi sonlandırırsın delik delme veya diş çekme döngüsünüde g16 dan sonraki satıra yazabilirsin vb..

[biga]

çalıştırdığın programda aşağıdaki alt prgramı çağırırsan bölüm dairesi üzerinde istediğin açıdan başlayarak istedin sayıda delik açabilirsin.
 
  çağırma komutu
G98 G81 veya herhangi delik işleme kodu Z..R..F..L0;
G65P9180X..Y..I..D..A...;
G80;

L=0 OLURSA MERKAZE DELIK DELMEZ
Z=DERİNLİK
R=REFERANS
F=İLERLEME
I=BÖLÜM DAİRE YARIÇAPI
D=DELİK SAYISI
A=BAŞLAMA AÇISI

XveY  değerlerinede bölüm dairesinin sıfır noktandan olan uzaklıkları yazdınmı tamamdır.

NOT= alt programı tezgahına at hiçbir zaman değiştirme sadece ana programda x,y,ı,d,a,z,r,f  değerlerini değiştir.
  eğer makıno kullanıyorsan bu alt program orada paket program olarak vardır.
%
:9180(BOLT HOLE)
IF[[#4*#7]EQ0]GOTO990
IF[#24EQ#0]GOTO990
IF[#25EQ#0]GOTO990
IF[#4009EQ80]GOTO10
IF[#19NE#0]GOTO992
N10#31=#4003
#10=1
WHILE[#10LE#7]DO1
#11=#1+360*[#10-1]/#7
#12=#24+#4*COS[#11]
#13=#25+#4*SIN[#11]
G90X#12Y#13
IF[#19EQ#0]GOTO20
G#31
G65P#19
N20#10=#10+1
END1
GOTO999
N990#3000=140(DATA FUSOKU)
N992#3000=142(DATA ERROR)
N999G#31M99
%

[VICTOR]

g16 bazı fanuc sistemlerde opsıyondur.

G16 sanırım fanuc 21 de kapalı -------Oimc kontrollerde açıktı.

[paşalı]

yardımlarınız için teşekkürler
;D

[kadır kıran]

çalıştırdığın programda aşağıdaki alt prgramı çağırırsan bölüm dairesi üzerinde istediğin açıdan başlayarak istedin sayıda delik açabilirsin.
 
  çağırma komutu
G98 G81 veya herhangi delik işleme kodu Z..R..F..L0;
G65P9180X..Y..I..D..A...;
G80;

L=0 OLURSA MERKAZE DELIK DELMEZ
Z=DERİNLİK
R=REFERANS
F=İLERLEME
I=BÖLÜM DAİRE YARIÇAPI
D=DELİK SAYISI
A=BAŞLAMA AÇISI

XveY  değerlerinede bölüm dairesinin sıfır noktandan olan uzaklıkları yazdınmı tamamdır.

NOT= alt programı tezgahına at hiçbir zaman değiştirme sadece ana programda x,y,ı,d,a,z,r,f  değerlerini değiştir.
  eğer makıno kullanıyorsan bu alt program orada paket program olarak vardır.
%
:9180(BOLT HOLE)
IF[[#4*#7]EQ0]GOTO990
IF[#24EQ#0]GOTO990
IF[#25EQ#0]GOTO990
IF[#4009EQ80]GOTO10
IF[#19NE#0]GOTO992
N10#31=#4003
#10=1
WHILE[#10LE#7]DO1
#11=#1+360*[#10-1]/#7
#12=#24+#4*COS[#11]
#13=#25+#4*SIN[#11]
G90X#12Y#13
IF[#19EQ#0]GOTO20
G#31
G65P#19
N20#10=#10+1
END1
GOTO999
N990#3000=140(DATA FUSOKU)
N992#3000=142(DATA ERROR)
N999G#31M99
%

sadece 7 eksenlı makınadamı gecerlı ?

[biga]

bu programda sadece 3eksen çalışır x y z yatay ve dik işlemelerde kullanabilirsiniz

[kadır kıran]

tşkkurler biga   yenı basladım da

[turgay51]

M6T1;
M3S2500;
G0G90G54X0Y0;
G43H1;
Z50 M8;
G16X50Y0;
G98G81R2Z-15F100;
G91Y45K5;
G80G15;
GOZ100;
M05;
M30;
Bu program 50 yarı capında 45 derece açıyla 6 delik delmek için yazılmıştır

[Rastlanti]

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İ

[VICTOR]

NERDEN BİLİYOSUN O MAKRO ÇALIŞMALARININ ALINTI OLDUKLARINI. 
BU KÖTÜ BİR İTHAM . KOPYACILIK SUÇLAMASI. AÇIKLIK GETİRİRSEN İYİ OLUR.

YOKSA ÖRNEKLERİN  BİR KITAPTANMI ALINTI OLDUĞUNU DÜŞÜNÜYORSUN????

[NİGATA]

g 16 varsa kolay

[Rastlanti]

yani kendi bilgileriniz kendi ürettikleriniz değil siz başka yerden almışsınız ben kendim macro prog. yaparım diyen kişi arıyorum varmı yok dersen yanılıyorsun ben varım programlama yaparken elle veya manuelguide  veyada mastecam ile sadece ve sadece macro kullanıyorum ve böğlecede çalıştığım firmada ve genel olarak bahsediyorum fanuc işletim sistemin de piyasada kendimi ıspatlamış bir kişiyim amacım size bunları çalmışsın veya araklamışsın kopyalayıp yapıştırmışsın demek değil sadece ve sadece kendi ürettiklerin değil diyorum umarım beni yanlış anlamamışsındır....teşekürler..

[skandemir57]

yani kendi bilgileriniz kendi ürettikleriniz değil siz başka yerden almışsınız ben kendim macro prog. yaparım diyen kişi arıyorum varmı yok dersen yanılıyorsun ben varım programlama yaparken elle veya manuelguide  veyada mastecam ile sadece ve sadece macro kullanıyorum ve böğlecede çalıştığım firmada ve genel olarak bahsediyorum fanuc işletim sistemin de piyasada kendimi ıspatlamış bir kişiyim amacım size bunları çalmışsın veya araklamışsın kopyalayıp yapıştırmışsın demek değil sadece ve sadece kendi ürettiklerin değil diyorum umarım beni yanlış anlamamışsındır....teşekürler..

Böyle bir iddiada bulunan yokki.Ben makro biliyorum diyen yok.Yazdıklarını bidaha oku istersen.Ayrıca çok büyük marifette değil.Biyere kadar makro yazarsın.Çok iddalıysan makronla bir kalıp programı yazarmısın bize.

[biga]

rastlantiiiiiiiiiii birader macro yazmayı bilyor olabilirsin el yumruğunu yemeyen kendi yumruğunu balyoz zannedermiş . yazdıklarımızı iyi okumadın anlaşılan alıntı olanları belirttik hazır olan birşey varken onu yenden yapmanın anlamı yok.yani amerika çoktan keşfedildi yeniden keşfetmeye gerek yok.
  biz elimizde olanları paylaşıyoruz.macro yazmaya gelince macro ihtiyaca göre yazılır.herşey hazırda yoktur alıntı yapasın.
al sana alıntı olmayan bir macro.
macro biliyorum diyosan doktor bune demezsin herhalde.
sana bir tavsiye biraz daha fazla alçak gönüllü ol.
bu iş iyi biliyorsan kendini ispatlamaya ihtiyacın yoktur.yaptıklarınla bunu kanıtlarsın. ;D

 

M01
N1000
CALL OT132
IF[VC132 EQ 1]NVTD1
IF[VC132 EQ 2]NVTD2
IF[VC132 EQ 3]NVTD3
NVTD1
VC131=VTLD8[1]
IF[VC131 GT 65000]NVTC1
IF[VTLCN EQ 1]NSG1
T1M6
NSG1
CALL OSAG2
GOTO NVTC4
NVTD2
VC131=VTLD8[32]
IF[VC131 GT 65000]NVTC2
IF[VTLCN EQ 32]NSL1
T32M6
NSL1
CALL OSOL2
GOTO NVTC4
NVTD3
VC131=VTLD8[15]
IF[VC131 GT 65000]NVTC3
IF[VTLCN EQ 15]NRH1
T15M6
NRH1
CALL ORGH1
GOTO NVTC4
NVTC1
VC132=2
T1M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC2
VC132=3
T32M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC3
VC132=1
T15M6
TAKIM DEGISECEK
GOTO NVTC4
NVTC4
M01