OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)

biga · Mayıs 13, 2008, 07:58:32 ÖS

http://img532.imageshack.us/my.php?image=kareilemeke1.flv

bu program okumalarda paket program olarak var
bende bu programın macrosunu kendimi denemek için yaptım paylaşmak istedim

DEF WORK[1]
DIREC V
INDEX B,0
ORIGIN H1
CYLNDR 2P,[-80,-80],[80,80],-50,0
CYLNDR 2P,[-50,-50],[50,50],-10,0
END
VC101=100 (y ekseni kenar uzunluğu)
VC102=100 (x ekseni kenar uzunluğu)
VC103=2 (r yaklaşma)
VC104=-10 (z derinlik)
VC105=1500 (f ilerleme)
VC106=10 (d takım yarıçapı )
VC107=3 ( z de bir seferde gideceği mesafe)
VC108=50 ( z ekseninde f ilerlemesi)
VC109=0 (x ekseni merkezi)
VC110=0 (y ekseni merkezi)
VC111=[VC106*2]-[VC106/3]
VC112=VC107
VC112=VC112-VC107
VC115=0
IF[VC106 GE [VC101/2]]NA9999
IF[VC106 GE [VC102/2]]NA9999
T100M6
G15H1
G90G0G56H1X=VC109Y=VC110Z=[VC03+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
VC100=[VC101/2-VC106]
VC100=[VC100-VC111]
G0Z=VC103
NA001
G01Z=VC112F=VC108
IF[VC115 EQ 0]NL001
IF[VC115 EQ 1]NL002
NL001
G01X=-[VC102/2-VC106]F=VC105
VC115=1
GOTO NL003
NL002
G01X=[VC102/2-VC106]F=VC105
VC115=0
NL003
Y=VC100
VC100=[VC100-VC111]
IF[VC100 LE [-VC101/2+VC106]]NA02
GOTO NA001
NA02
IF[VC100 EQ [-VC101/2+VC106]]NJ02
VC100=[VC100+VC111]
IF[VC115 EQ 1]NR001
IF[VC115 EQ 0]NR002
NR001
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NR003
NR002
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NR003
VC100=[-VC101/2]+[VC106]
GOTO NK001
NJ02
IF[VC115 EQ 1]NZ001
IF[VC115 EQ 0]NZ002
NZ001
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NZ003
NZ002
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NZ003
G90G0Z[VC103+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
G90G0Z[VC112+2]
G90G01Z=VC112F=VC108
X-[VC102/2-VC106]F=VC105
Y-[VC102/2-VC106]
X[VC102/2-VC106]
Y[VC102/2-VC106]
GOTO NY003
NK001
IF[VC115 EQ 1]NY001
IF[VC115 EQ 0]NY002
NY001
Y=VC100
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NY003
NY002
Y=VC100
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NY003
G90G0Z[VC103+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
G90G0Z[VC112+2]
G90G01Z=VC112F=VC108
X-[VC102/2-VC106]F=VC105
Y-[VC102/2-VC106]
X[VC102/2-VC106]
Y[VC102/2-VC106]
VC115=0
VC100=[VC101/2-VC106]
VC100=VC100-VC111
NA03
IF[VC112 EQ VC104]NA05
G90G0Z=VC103
G90G0X=[VC102/2-VC106]Y=[VC101/2-VC106]
G00Z=VC112+3
VC112=VC112-VC107
IF[VC112 LE VC104]NA04
G01Z=VC112F=VC108
GOTO NA001
NA04
VC112=VC104
IF[VC112 LT VC104]NA05
GOTO NA001
GOTO NA05
NA9999
Takim yaricap hatasi(VC106 GE VC101&C102)....
NA05
M02

biga · Mayıs 22, 2008, 11:17:00 ÖÖ

http://img532.imageshack.us/my.php?image=dikdrtgenjk0.flv
göndermiş olduğum linkte aynı programla dikdörtgen işlenmekte.
sadece vc101,vc102 değişkenlerine yapmak istediğiniz ölçüleri girdinizmi yeterli.

taşkaya · Temmuz 30, 2008, 10:36:54 ÖS

abi bu proğ.sen cam demı yazıyon????

biga · Temmuz 31, 2008, 12:25:13 ÖÖ

Alıntı yapılan: taskaya_86 - Temmuz 30, 2008, 10:36:54 ÖS
abi bu proğ.sen cam demı yazıyon????

hayır kardeş bu programları cam da yazmıyorum
bu elle tezgah üzerinde yazdığım program
okuma macro
göüntülere bakarsan tezgah görüntüleri

taşkaya · Temmuz 31, 2008, 06:29:26 ÖS

tam olarak nerden gıreceğimi soylersen cok sevınırm...

ve bu progları nerelerde kullana bılırm???

daha cok hangı ıslemlere kolaylık verır???

biga · Temmuz 31, 2008, 11:10:27 ÖS

Alıntı yapılan: taskaya_86 - Temmuz 31, 2008, 06:29:26 ÖS
tam olarak nerden gıreceğimi soylersen cok sevınırm...

ve bu progları nerelerde kullana bılırm???

daha cok hangı ıslemlere kolaylık verır???

BUNLARI OKUMAYI ÖĞRENİYORUM/PARAMETRE bölümünde bakabilirsin bu programlaı heryerde kullanabilirsin çok uzun programları bir kaç satırda yapabilirsin

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

taşkaya · Ağustos 02, 2008, 05:48:18 ÖS

Alıntı yapılan: biga - Mayıs 13, 2008, 07:58:32 ÖS
http://img532.imageshack.us/my.php?image=kareilemeke1.flv

bu program okumalarda paket program olarak var
bende bu programın macrosunu kendimi denemek için yaptım paylaşmak istedim

DEF WORK[1]
DIREC V
INDEX B,0
ORIGIN H1
CYLNDR 2P,[-80,-80],[80,80],-50,0
CYLNDR 2P,[-50,-50],[50,50],-10,0
END
VC101=100 (y ekseni kenar uzunluğu)
VC102=100 (x ekseni kenar uzunluğu)
VC103=2 (r yaklaşma)
VC104=-10 (z derinlik)
VC105=1500 (f ilerleme)
VC106=10 (d takım yarıçapı )
VC107=3 ( z de bir seferde gideceği mesafe)
VC108=50 ( z ekseninde f ilerlemesi)
VC109=0 (x ekseni merkezi)
VC110=0 (y ekseni merkezi)
VC111=[VC106*2]-[VC106/3]
VC112=VC107
VC112=VC112-VC107
VC115=0
IF[VC106 GE [VC101/2]]NA9999
IF[VC106 GE [VC102/2]]NA9999
T100M6
G15H1
G90G0G56H1X=VC109Y=VC110Z=[VC03+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
VC100=[VC101/2-VC106]
VC100=[VC100-VC111]
G0Z=VC103
NA001
G01Z=VC112F=VC108
IF[VC115 EQ 0]NL001
IF[VC115 EQ 1]NL002
NL001
G01X=-[VC102/2-VC106]F=VC105
VC115=1
GOTO NL003
NL002
G01X=[VC102/2-VC106]F=VC105
VC115=0
NL003
Y=VC100
VC100=[VC100-VC111]
IF[VC100 LE [-VC101/2+VC106]]NA02
GOTO NA001
NA02
IF[VC100 EQ [-VC101/2+VC106]]NJ02
VC100=[VC100+VC111]
IF[VC115 EQ 1]NR001
IF[VC115 EQ 0]NR002
NR001
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NR003
NR002
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NR003
VC100=[-VC101/2]+[VC106]
GOTO NK001
NJ02
IF[VC115 EQ 1]NZ001
IF[VC115 EQ 0]NZ002
NZ001
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NZ003
NZ002
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NZ003
G90G0Z[VC103+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
G90G0Z[VC112+2]
G90G01Z=VC112F=VC108
X-[VC102/2-VC106]F=VC105
Y-[VC102/2-VC106]
X[VC102/2-VC106]
Y[VC102/2-VC106]
GOTO NY003
NK001
IF[VC115 EQ 1]NY001
IF[VC115 EQ 0]NY002
NY001
Y=VC100
G01X=[VC102/2-VC106]F=VC105
VC115=0
GOTO NY003
NY002
Y=VC100
G01X=-[VC102/2-VC106]F=VC105
VC115=1
NY003
G90G0Z[VC103+100]
G90G0X=[VC102/2]-VC106Y=[VC101/2]-VC106
G90G0Z[VC112+2]
G90G01Z=VC112F=VC108
X-[VC102/2-VC106]F=VC105
Y-[VC102/2-VC106]
X[VC102/2-VC106]
Y[VC102/2-VC106]
VC115=0
VC100=[VC101/2-VC106]
VC100=VC100-VC111
NA03
IF[VC112 EQ VC104]NA05
G90G0Z=VC103
G90G0X=[VC102/2-VC106]Y=[VC101/2-VC106]
G00Z=VC112+3
VC112=VC112-VC107
IF[VC112 LE VC104]NA04
G01Z=VC112F=VC108
GOTO NA001
NA04
VC112=VC104
IF[VC112 LT VC104]NA05
GOTO NA001
GOTO NA05
NA9999
Takim yaricap hatasi(VC106 GE VC101&C102)....
NA05
M02

......
abi bunların hepsını aklında tutuyosn dımı?????

maşşallah......

biga · Ağustos 05, 2008, 10:54:36 ÖS

mantık,aritmetik azda olsa geometri
bunları bildinmi herkes yapabilir

yaman · Kasım 20, 2008, 08:21:45 ÖS

abi bu nasıl bir program böyle ya çok karşık abi bunu nerde yapıyon sen çok degişik abi ..

Rastlanti · Ocak 02, 2009, 09:47:42 ÖS

okumacı arkadaşlar bir macro denklemi var ama fanuc dilinde yazılmış bunu okuma dilene çevirebilecek yetenekli arkadaşlar lazım mümkünmü.? acilL

#2=1 >>>> bu fanuc okumada nasıl yazılır
z#2 >>> buda fanuc okuma?
#2=#2-1 >> fanuc okuma=?...
IF[#2GE-50]GOTO > FANUC OKUMA KARŞITI NEDİR?

YARDIMLARINIZI BEKLİYORUM TEŞEKÜRLER......

biga · Ocak 04, 2009, 12:56:21 ÖS

Alıntı yapılan: Rastlanti - Ocak 02, 2009, 09:47:42 ÖS
okumacı arkadaşlar bir macro denklemi var ama fanuc dilinde yazılmış bunu okuma dilene çevirebilecek yetenekli arkadaşlar lazım mümkünmü.? acilL

#2=1 >>>> bu fanuc okumada nasıl yazılır
z#2 >>> buda fanuc okuma?
#2=#2-1 >> fanuc okuma=?...
IF[#2GE-50]GOTO > FANUC OKUMA KARŞITI NEDİR?

YARDIMLARINIZI BEKLİYORUM TEŞEKÜRLER......

#2=1......vc101=1
z#2..........z=vc101
#2=#2-1......vc101=vc101-1
IF[#2GE-50]GOTO..........IF[#2GE-50]N0001

biga · Ocak 04, 2009, 01:07:33 ÖS

rastlantı kardeşim
açmış olduğun konuyu cevabıyla bereber buraya taşıdım macronun tüm varyasyonlarını
yapmış olduğum programadan alabilirsin
incele göreceksin
alıntı değildir tümüyle yerli imalat
made ın biga

uz-i · Ağustos 14, 2009, 07:05:23 ÖS

baya yaralı bir konu

sinan · Ağustos 14, 2009, 08:01:10 ÖS

vc # değişkenlerine notepad ta ara değiştir seçenegiyle değiştirsek sanırım fanucda çalışacak mantıgına bakılırsa .

paylaşım için teşekkür ederim.

taşkaya · Ocak 20, 2010, 11:54:23 ÖÖ

harun abı bu programı kısaltmak mumkun olabılırmı???
bende kendı fıkrımı soylemek ıstıyorm...

copy veya z- yonunde ofset kaydırarak tekrarlama yapsak bu program daha kısaya dusurmez mı???

cevabını beklıyorm...