Scribd
Upload
1K views59 pages

CYCLE800

The document contains machining program code for milling operations including swivel cycles and pocket milling using different tool sizes. It defines tool paths and operating parameters for facing, circular pocketing and 5-axis machining routines.

Uploaded by

이종훈
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
1K views59 pages

CYCLE800

The document contains machining program code for milling operations including swivel cycles and pocket milling using different tool sizes. It defines tool paths and operating parameters for facing, circular pocketing and 5-axis machining routines.

Uploaded by

이종훈
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

N1 G54

N2 T="MILL_10mm"
N3 M6
N4 CYCLE800(1,"",0,57,0,40,0,-45,0,0,0,0,0,-1) ;Swivel cycle
N5 CYCLE71(50,24,2,0,0,0,80,60,0,4,10,5,0,2000,31,5) ;Face milling
N6 TCARR=0 ;Swivel data record
;deselection
N7 PAROTOF
N8 TOROTOF ;(only with
;machine kinematic types
;"T" and "M")
N9 TRAORI
N10 G54 ;Recalculation of
;zero offset
N11 EXTCALL "ROLL" ;5-axis machining program
;with direction vectors
;(A3, B3, C3)
N12 M2
.
.
.
%_N_SWIVEL_0_SPF
;$PATH=/_N_WCS_DIR/_N_HAA_SWIVEL_WPD
G54
CYCLE800(1,"",0,57,0,0,0,0,0,0,0,0,0,-1)
M2
%_N_SWIVEL_CIRCULARPOCKET_SPF
;$PATH=/_N_WCS_DIR/_N_HAA_SWIVEL_WPD
N12 T="MILL_26mm"
N14 M6
N16 G57
N18 CYCLE800(1,"",0,57,0,0,0,0,0,0,0,0,0,1)
N20 M3 S5000
N22 CYCLE71(50,2,2,0,0,0,80,60,0,4,15,5,0,2000,31,5) ;Face milling
N24 CYCLE800(1,"",0,57,0,25,0,-15,0,0,0,0,0,-1)

N26 CYCLE71(50,12,2,0,0,0,80,60,0,4,10,5,0,2000,31,5) ;Face milling


N28 CYCLE800(1,"",1,57,0,0,0,0,0,0,40,30,0,1)
N30 T=“MILL_10mm“
N32 M6
N34 M3 S5000
N36 POCKET4(50,0,1,-15,20,0,0,4,0.5,0.5,1000,1000,0,11,,,,,) ;Circular pocket
N38 POCKET4(50,0,1,-15,20,0,0,4,0,0,1000,1000,0,12,,,,,)
N40 M2
CYCLE800(_FR, _TC, _ST, _MODE, _X0, _Y0, _Z0, _A, _B, _C, _X1, _Y1,
_Z1, _DIR, _FR _I)

_FR

_TC

_ST
_MODE

_X0, _Y0, _Z0


_A

_B

_C
_X1, _Y1, _Z1
_DIR

_FR_I
;HS14=($82084,ac7)
;PRESS(HS14)
;LM("SWIVEL1a","[Link]")
;END_PRESS

HS8=($82119,,se1)
;PRESS(HS8)
;LM("SWIVEL3","jog_c800.com")
;END_PRESS
ïéî ન®§ ¿¨·­ î

Êî
Êï
ìë
¼»¹®ò
ïéî ×î
×ï ન®§ ¿¨·­ ï

çíòè
×í зª±¬ °±·²¬ ±º
®±¬¿®§ ¿¨·­ Æ

зª±¬ °±·²¬ ±º
®±¬¿®§ ¿¨·­ î Ç
λº»®»²½» °±·²¬ È
±º ¬±±´
Æ

Ç
È
_M40:
IF ((NOT $P_TOOL) AND _TC1)
LOOP
MSG ("no tool cutting edge active")
M0
STOPRE
ENDLOOP
ENDIF
GOTOF _MEND

TOOLCARR(_MODE, _TC1, _A1, _A2, _TC2)

You might also like