5 - 12 en-938872/2
Example 3
Peck drilling cycle created by NUM and called by function G83
Cycle %10083 calls subroutine %10080 to analyse all the cycles created by NUM
(see subroutine %10080 following subroutine %10083).
Review of the syntax of cycle G83 for milling
N.. G83 X.. Y.. Z.. ER.. P.. Q.. F..
%10083:
(peck drilling cycle)
VAR [M3/4][M998][G90/1][G0/1][RF][clearance]=1 [diam]
[IX][IY][IZ][LZ][I][dimension][depth][Gplan][E]
ENDV
[diam]=E11005 E11005=0
G77 H10080(call analysis module)
(check syntax: P present if previous block with G80)
IF [..BG80]=1 AND [.IBP(1)]=0
THEN E.889
ENDI
(load P and Q if programmed)
IF [.IBP(1)]=1 THEN 'P=[.IRP(1)]
IF [.IBP(2)]=0 THEN 'Q='P
ENDI
ENDI
IF [.IBP(2)]=1 THEN 'Q=[.IRP(2)]
ENDI
(convert clearance if in INCHES)
IF [.BG70]=1 THEN [clearance]=[clearance]/25.4
ENDI
(clearance direction according to tool orientation)
IF [.RDX]<0 THEN [clearance]=-[clearance]
ENDI
(prepare positioning of the axes)
IF [.BG95]=1 THEN G0
ELSE F5000
ENDI
IF [I]<>0 THEN G9 G998
[dimension] = 'ER [I]=[IZ]+10 G0 G77 H10080 N[I] N[I]
(assign correct sign to P and Q if programmed)
IF 'P < 0 THEN 'P = -'P
ENDI
IF 'Q < 0 THEN 'Q = -'Q