KARE SPRAL İŞLEME

[birkan66]

KARE SPRAL İŞLEME

O0001
G0 G90 X0 Y0
G43 Z20 H1
G65 P9120 X400 T24 Z-5 W5 F900
O9120
(#24 Block Square Size )
(#20 Face Mill Eff Diameter)
(#26 Z Rapid To Plane )
(#23 Z Cutting Plane )
(#9 Feedrate )
#24 = ABS[#24]
#20 = ABS[#20]
#500 = 0 (MYEXIT)
#501 = 0 (COUNT)
#502 = #20 * .5 (ADIM)
#503 = #24 / 2 (XMAX)
#504 = #503 * -1 (XMIN)
#505 = #503 (YMAX)
#506 = #504 (YMIN)
#507 = FIX[#24 / #502]
#1=0( EXCEPTIONS )
IF [#507 * #502 EQ #24] THEN #507 = #507
IF [#507 * #502 NE #24] THEN #507 = #507 +1.0
IF [ #20 - #24 GT 0.0 ] THEN #514 = [#504 - [#20 * .75]](TEST FOR TDIA > YWID )
IF [ #20 - #24 GT 0.0 ] THEN G0 X#514 Y0.0 (OUTPUT SINGLE CUT ACROSS FACE)
IF [ #20 - #24 GT 0.0 ] THEN G1 Z#23 F100.0
IF [ #20 - #24 GT 0.0 ] THEN X#503 F#9
IF [ #20 - #24 GT 0.0 ] THEN G0 Z#26
IF [ #20 - #24 GT 0.0 ] THEN #500 = 1
IF [#500 EQ 1 ] THEN GOTO 9
IF [ #20 EQ #24] THEN #514 = #504 - [#20 * .75]](TEST FOR HGT = TDIA)
IF [ #20 EQ #24] THEN G0 X#514 Y#505 (OUTPUT UPPER AND LOWER CUTS ONLY)
IF [ #20 EQ #24] THEN G1 Z#23 F100.0
IF [ #20 EQ #24] THEN X#503 F#9
IF [ #20 EQ #24] THEN Y#506
IF [ #20 EQ #24] THEN X#514
IF [ #20 EQ #24] THEN G0 Z#26
IF [ #20 EQ #24] THEN #500 = 1
IF [#500 EQ 1 ] THEN GOTO 9
IF [ #24 LE #20*1.5 ] THEN #514 = #504 - [#20 * .75] (TEST FOR HGT <= TDIA)
IF [ #24 LE #20*1.5 ] THEN G0 X#514 Y#505 -.35 * #20 (OUTPUT UPPER AND LOWER CUTS ONLY)
IF [ #24 LE #20*1.5 ] THEN G1 Z#23 F100.0
IF [ #24 LE #20*1.5 ] THEN X#503 F#9
IF [ #24 LE #20*1.5 ] THEN Y#506 +.35 * #20
IF [ #24 LE #20*1.5 ] THEN X#514
IF [ #24 LE #20*1.5 ] THEN G0 Z#26
IF [ #24 LE #20*1.5 ] THEN #500 = 1
IF [#500 EQ 1 ] THEN GOTO 9
#1=0( DO A ROUTINE FOR AREA CLEAR)
#513 = #503 (XPOS)
#514 = #504 (XNEG)
#515 = #505 (YPOS)
#516 = #506 (YNEG)
G0 X[#514 - #20] Y#505
G1 Z#23 F#9
DO3
IF[ #501 EQ 0 ] THEN X#513
IF[ #501 EQ 0 ] THEN Y#516
IF[ #501 EQ 0 ] THEN X#514
IF[ #501 EQ 0 ] THEN #501 = #501 + 2
IF [ #501 LE #507 ] THEN #515 =#515 - #502
IF [ #501 LE #507 ] THEN #513 =#513 - #502
IF [ #501 LE #507 ] THEN Y#515
IF [ #501 LE #507 ] THEN X#513
IF [ #501 LE #507 ] THEN #501 = #501 + 1
IF [ #501 EQ #507 ] THEN X[#503 + #20]
IF [ #501 EQ #507 ] THEN G0 Z#26
IF [ #501 EQ #507 ] THEN #500 =1
IF [#500 EQ 1 ] THEN GOTO 9
IF [ #501 LE #507 ] THEN #516 = #515 * -1.0
IF [ #501 LE #507 ] THEN #514 = #513 * -1.0
IF [ #501 LE #507 ] THEN Y#516
IF [ #501 LE #507 ] THEN X#514
IF [ #501 LE #507 ] THEN #501 = #501 + 1
IF [ #501 EQ #507 ] THEN X[#504 - #20 ]
IF [ #501 EQ #507 ] THEN G0 Z#26
IF [ #501 EQ #507 ] THEN #500 =1
IF [#500 EQ 1 ] THEN GOTO 9
END3
N9
M99
M30

[astarabista]

butun macro programlar tşkler eline saglık

[by_ramo]

güzel çalışma teşekkürler.

[murat51xxx]

güzel calısma gercekten eline saglık arkadasım
ayrıca su ncplot da harika bir proğram beni iyice sardı

[astarabista]

ya abıler sunun kullanımını nasıl

[murat51xxx]

benimle iletişime gec
murat_coskun1980@hotmail.com

[adilbir]

bu işlemi dairesel olarak nasıl yaptırabiliriz tornada değil işleme merkezinde freze yaparak havuz boşaltılacak.

[CK-53]

bu işlemi dairesel olarak nasıl yaptırabiliriz tornada değil işleme merkezinde freze yaparak havuz boşaltılacak.

http://www.turkeycnc.com/macro-programlama/spral-makrosu/

[hllbrhmkskn]

emeğinize sağlık çok güzel

[hllbrhmkskn]

en sonunda  z-5 y-5 de x-210 a gidiyor neden geri çıkmıyor

[yaman]

programı bende indirdim ama pek çalıştıramadım..