G83 Macro

[Armageddon]

I see this thread is very old but i just would say that I have written some kind of drillcycle, too. See here alternative G83

[hatchmar]

thanks, I will give it a try

[Armageddon]

so here is the macro. hope someone can need it. i translated the alarms from german into english. please dont kill me. because my english isnt very well. *lol*
it will only work on lathes with a fanuc control who can handle the IF[ ] THEN statement. be sure your control can do this. otherwise a alarm raise.

O8083(DRILLCYCLE / Z-AXIS)
#28=0
#30=#5002
#13=0
IF[#17NE#0]THEN#13=1
IF[#17NE#0]THENIF[#17LE0]THEN#3000=0(Q-FEED WRONG)
IF[#1EQ#0]THEN#3000=0(NO A-VALUE GIVEN)
#1=ABS[#1]
IF[#2EQ#0]THEN#3000=0(NO B-VALUE GIVEN)
#2=ABS[#2]
IF[#3EQ#0]THEN#3000=0(NO C-VALUE GIVEN)
#3=ABS[#3]
IF[#9EQ#0]THEN#3000=0(NO F-FEED)
IF[#9LE0]THEN#3000=0(F-FEED WRONG)
IF[#19EQ#0]THEN#3000=0(NO S-VALUE GIVEN)
IF[#19EQ0]THEN#3000=0(S-VALUE IS 0)
#19=ABS[#19]
IF[#3GE#1]THEN#3=#1
IF[#3EQ0]THENIF[#2GT0]THEN#3000=0(C-VALUE IS 0)
IF[#18EQ#0]THEN#18=0
#18=ABS[#18]
IF[#26NE#0]THEN#28=#28+1
IF[#23NE#0]THEN#28=#28+1
IF[#28EQ0]THEN#3000=0(NO Z OR W GIVEN)
IF[#28EQ2]THEN#3000=0(GIVE ONLY Z OR W)
IF[#26NE#0]THEN#23=#26-#30
IF[#23EQ0]THEN#3000=0(DRILLDEEP IS 0)
#33=#30+#23
IF[#23GT0]GOTO1
#1=0-#1
#2=0-#2
#3=0-#3
#18=0-#18
#19=0-#19
N1#29=#30+#18
IF[#23GT0]THENIF[#18GE#23]GOTO8
IF[#23LT0]THENIF[#18LE#23]GOTO8
G#13 Z#29 F#17
#32=#29+#1
#27=2
IF[#23GT0]GOTO6
GOTO7
N2G1Z#32F#9
G0Z#30
G4U#5
G#13 Z[#32-#19] F#17
#31=#1
N3#31=#31-#2
IF[#23LT0]THENIF[#31GE#3]THEN#31=#3
IF[#23GT0]THENIF[#31LE#3]THEN#31=#3
#32=#32+#31
#27=4
IF[#23GT0]GOTO6
GOTO7
N4G1Z#32F#9
G0Z#30
G4U#5
G#13 Z[#32-#19] F#17
GOTO3
N5G1Z#33F#9
G4U#4
G0Z#30
M99
N6IF[#32GE#33]GOTO5
GOTO#27
N7IF[#32LE#33]GOTO5
GOTO#27
N8#3000=0(R-VALUE WRONG)


Description:

G65 P8083 W50.0 Z50.0 A15.0 B10.0 C5.0 F0.12 S0.2 I0.2 J1.0 R0.0 Q1.5

W = DRILLDEEP INKREMENTAL
Z = DRILLDEEP ABSOULT
A = FIRST DRILLDEEP
B = DRILLDEEP REDUCE VALUE
C = MIN. DRILLDEEP
F = FEED
S = DISTANCE FROM DRILL POSITION BEVOR RETRACT
I = DWEEL TIME ON HOLE ENDPOINT / OPTIONAL VALUE
J = DWEEL TIME ON STARTPOINT AFTER RETRACTION / OPTIONAL VALUE
R = DISTANCE FROM START POINT INTO A PRESENT HOLE / OPTIONAL VALUE
Q = FEED FOR MOVEMENT INTO THE HOLE AFTER RETRACTION / OPTIONAL VALUE