Hello to all,
I just joined and hope to get a dialog going concerning the afore mentioned topics.
I've been doing this for awhile, however, I've been out of the "hands on" shop work for the past several years.
Now I'm back in the trenches getting some "trigger time" again and, due to some recent machine purchases, find a need to dust off the old programs.
Below is an example of the type I'm used to, mainly for OKK, Makino, and Kuraki VMc's and B/Mills using various late model Fanuc controllers i.e. 15m, 16m, 160, etc.
There's a lot I do not know as I'm basically self-taught. However, any information or exchange is welcome. I was just beginning to really get into it when I stopped.
Oh, I also used macro variables along with G10's to create some interesting programs.
Hope to hear from you all soon.
Take care and Happy Holidays,
KG59
%
O0069(DEEPHOLE MACRO OKK)
(T H)
( IN. DIA. DRILL - IN. FLT.)
(SUB PROGRAM P1069.)
()
(Q = PECK AMOUNT POSITIVE NUMBER.)
(Z = FINISHED DRILL DEPTH.)
(C = PREVIOUS DRILL DEPTH.)
(R = RETACT LEVEL R.1)
(V = AMOUNT TO RAPID ABOVE EXISTING HOLE.)
()
G28G91Z.0
T
M06
T
G00G54G90XY
G43Z2.H
SM03F
/M08 (OR /M50)
G66P1069 Q Z- C- R V L0
XY
XY
G67
G00G90Z2.
M09
G28G91Z.0Y.0
M30
O1069(SUB - DEEPHOLE MACRO OKK)
IF[#17LE0]GOTO999
IF[#22LE0]GOTO999
IF[#3GT0]GOTO998
IF[#18GT0]GOTO998
IF[#23GT0]GOTO998
IF[#3LT#23]GOTO997
IF[#3GT#18]GOTO997
IF[#18LE#23]GOTO997
G00G90Z.0Z.0
#105=#3+#22
Z#105
GOTO2
N1#105=#105-#17
G00G90Z#105
N2#104=#105-#17-#22
IF[#104GT#23]GOTO100
IF[#104EQ#23]GOTO898
IF[#104LT#23]GOTO200
N100G01Z#104
G00G90Z#18
GOTO1
N898#104=#105+#17+#22
G01Z#104
G00G90Z#18
GOTO900
N200#104=#104+#17+#22
G00Z#104
G01Z#23
N900G00G90Z.0Z.0
M99
N997#3000=100(DEPTHS ARE WRONG..)
N998#3000=101(ALL DEPTHS MUST BE NEGATIVE..)
N999#3000=102(Q & V AMOUNT MUST BE POSITIVE..)
M99
%