TurkeyCNC Forum

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

butun macro programlar tşkler eline saglık

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

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

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

benimle iletişime gec
murat_coskun1980@hotmail.com

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

Alıntı yapılan: adilbir - Haziran 16, 2011, 10:55:32 ÖS
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/ (http://www.turkeycnc.com/macro-programlama/spral-makrosu/)

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

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

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