Sadece Metin | Görüntüler ve Metin

TurkeyCNC Forum

CNC Okulu => Okuma => Konuyu başlatan: biga - Mayıs 13, 2008, 07:58:32 ÖS

Başlık: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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




Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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.
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: taşkaya - Temmuz 30, 2008, 10:36:54 ÖS
abi bu proğ.sen cam demı yazıyon????
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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???
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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......



Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: biga - Ağustos 05, 2008, 10:54:36 ÖS
mantık,aritmetik azda olsa geometri
bunları bildinmi herkes yapabilir
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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 ..
Başlık: okuma macro yardım!!!!
Gönderen: 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......
Başlık: Ynt: okuma macro yardım!!!!
Gönderen: 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



Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: uz-i - Ağustos 14, 2009, 07:05:23 ÖS
baya yaralı bir konu
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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.
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: 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...
Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: CORDİNYO - Mayıs 08, 2011, 12:30:05 ÖÖ
Alıntı yapılan: biga - Mayıs 13, 2008, 07:58:32 ÖS
http://img532.imageshack.us/my.php?image=kareilemeke1.flv (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

Başlık: Ynt: OKUMA MACRO (KARE ve DİKDÖRTGEN İŞLEME)
Gönderen: caglar_berk - Temmuz 01, 2014, 11:48:38 ÖÖ
MERHABA YAZDIGIN BU PROGRAMLA ILGILI SORMAK ISTEDIKLERIM VAR MESELA RADUS NEREDEN VEREBILIRIZ BUNUN GIBI ILGILENIRSEN SEVINIRIM
Sadece Metin | Görüntüler ve Metin