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

[CORDİNYO]

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


[caglar_berk]

MERHABA YAZDIGIN BU PROGRAMLA ILGILI SORMAK ISTEDIKLERIM VAR MESELA RADUS NEREDEN VEREBILIRIZ BUNUN GIBI ILGILENIRSEN SEVINIRIM