Hi,
Will someone post or email some programming example of a tap cycle.
Specifically CYCL DEF 209 TAPPING W/ CHIP BRKG but 207 or 206
floating would be a big help.
I don't get an alarm, but I also don't get an tapped hole. Spindle
comes down to xy then z point then the spindle looks like it releases
from being engaged -it does a 1-degree wiggle- then home and done.
Sans guzinta.
CNC and control do have tapping. With no alarms popping up, it must
be me and it must be simple because i am simple.
Regards

I've been working on 530 for last two and a half years and 420 before that.
I'm at home so if you can post or email me a blank code I will fill it in
for you.
Jerry

Jerry, sounds like your the Heidi guy?
If you have second, could you post the code to sweep a like a 1"rad
across X using Y-Z with say a 1/4"ball EM?- Any example will do, can't
be that hard. I'm close.
I've put in the example in the book, but it does not seem to be
working properly with my dim's input.
I'm a newbee to Heidi's conversational. Aint like no other I've run
across. Kinda funuc macro/type hybrid- in a "league of its own".
Actually really nice. They were way ahead of there time, considering
its a mid 90's setup. I think it can blow away Hurco at certian
things?
If I can figure out how to hook the laptop up to it, one of these
days, I'll pull out some of the prog's to play with.
The other opition I have with this beast, is using ISO. Any experience
with that?
Any help would be appreciated.
FYI this machine was never really used to its full capabilities, by
what I'm seeing. Only been at this place for 8mo now - still
learning

I will try to make that program tomorrow if I have few minutes. I don't
program in ISO as Heidenhain is way nicer.
Jerry
Jerry, sounds like your the Heidi guy?
If you have second, could you post the code to sweep a like a 1"rad
across X using Y-Z with say a 1/4"ball EM?- Any example will do, can't
be that hard. I'm close.
I've put in the example in the book, but it does not seem to be
working properly with my dim's input.
I'm a newbee to Heidi's conversational. Aint like no other I've run
across. Kinda funuc macro/type hybrid- in a "league of its own".
Actually really nice. They were way ahead of there time, considering
its a mid 90's setup. I think it can blow away Hurco at certian
things?
If I can figure out how to hook the laptop up to it, one of these
days, I'll pull out some of the prog's to play with.
The other opition I have with this beast, is using ISO. Any experience
with that?
Any help would be appreciated.
FYI this machine was never really used to its full capabilities, by
what I'm seeing. Only been at this place for 8mo now - still
learning

This is a simple program to tap 1/2-13 hole with two different cycles. Your
machine zero may be different.
Jerry
0 BEGIN PGM tap INCH
1 * - 1/2-13 tap, M3 not needed because spindle has to stop anyway to
orient
2 * - examples of 2 taping cycles
3 BLK FORM 0.1 Z X-5 Y-5 Z-2
4 BLK FORM 0.2 X+5 Y+5 Z+0
5 TOOL CALL 1 Z S1000
6 CYCL DEF 247 DATUM SETTING ~
Q339=+1 ;DATUM NUMBER
7 L X+0 Y+0 R0 FMAX
8 L Z+0.2 R0 FMAX M8
9 CYCL DEF 207 RIGID TAPPING NEW ~
Q200=+0.2 ;SET-UP CLEARANCE ~
Q201=-0.7 ;DEPTH OF THREAD ~
Q239=+0.07692 ;THREAD PITCH ~
Q203=+0 ;SURFACE COORDINATE ~
Q204=+0.2 ;2ND SET-UP CLEARANCE
10 CYCL DEF 209 TAPPING W/ CHIP BRKG ~
Q200=+0.2 ;SET-UP CLEARANCE ~
Q201=-0.7 ;DEPTH OF THREAD ~
Q239=+0.07692 ;THREAD PITCH ~
Q203=+0 ;SURFACE COORDINATE ~
Q204=+0.2 ;2ND SET-UP CLEARANCE ~
Q257=+0.35 ;DEPTH FOR CHIP BRKNG ~
Q256=+0.03 ;DIST FOR CHIP BRKNG ~
Q336=+0 ;ANGLE OF SPINDLE
11 CYCL CALL
12 L Z+5 R0 FMAX M9 M5
13 L Z-0.1 Y-0.1 R0 FMAX M91
14 M30
15 END PGM tap INCH

Jerry, Thx. The guys in the shop I'm at say that they could never get
the machine to tap. Saying it has to be equipped from the mfg. for
taping? & also use a floating tap holder? Both are also mentioned in
the manual.
Hell I've never seen a CNC that could not G84 tap?, with or without a
nice ext./comp.-slip clutch tap holder. Well I'm learn'in sumpin
new????
Like I stated previously Heidi's way is different.
We don't do alot of taping, plus we work with Titanium- real bear to
tap.
IMO Its not worth the chance on breaking a tap on, because usually 1
or 2 pcs in the order. TI is $$$ & so is EDM tap removal.
My main concern is, an easy way to sweep simple Y/Z or X/Z contours
across the block. The prog. manual has examples, but me not being
familiar with all the commands, like CT CC ect. makes it confusing to
apply to my work.
Shit today I just figured out repeat label with an incremental Z (IZ)
- the old loop tape method., only the repeat command counts how deep
to go the the incremantal Z. Sweet! sit back,relax & let the machine
do the work.
This thing is like play time for me. Being on a weirdo ANAYAK & no
toolchanger! I took a 3"wide 5mm dp. cut in TI the other day, the
whole machine osilated & howled! Never hear nothing like that before.
Nothing happend to the carbides on the face mill (positive 3/4"round
inserts), it was just as it entered on the part. After it was in the
cut no probelem. Sure did turn some heads. hehehehe. It has to be the
way the machine tool is designed. The Y travels the Z column with it,
not like most bed type mills where the Z is stationary & X/Y travel on
the bed. Must have been like the way covers, kinda tiny tattle sound??
thanks again for your help. If time permits & the opertunity comes up,
I would like to try your taping prog., even if its just to cut some
air :-)

I have never seen a CNC machine that could not tap. You may not be able to
rigid tap but with a floating holder you should have no problem.
As for CC it means circle center and you need it for C (circular) and CP (
circular polar). CR only needs end position of circle and radius.
The biggest fun on this control is to use variables (Qs). You can use it for
simple stuff like changing depth of cut , cutter compensation and such but
if you get really good with it you can actually use it for quite complex
surfacing.
Is your control 426 or 530?
Jerry
Jerry, Thx. The guys in the shop I'm at say that they could never get
the machine to tap. Saying it has to be equipped from the mfg. for
taping? & also use a floating tap holder? Both are also mentioned in
the manual.
Hell I've never seen a CNC that could not G84 tap?, with or without a
nice ext./comp.-slip clutch tap holder. Well I'm learn'in sumpin
new????
Like I stated previously Heidi's way is different.
We don't do alot of taping, plus we work with Titanium- real bear to
tap.
IMO Its not worth the chance on breaking a tap on, because usually 1
or 2 pcs in the order. TI is $$$ & so is EDM tap removal.
My main concern is, an easy way to sweep simple Y/Z or X/Z contours
across the block. The prog. manual has examples, but me not being
familiar with all the commands, like CT CC ect. makes it confusing to
apply to my work.
Shit today I just figured out repeat label with an incremental Z (IZ)
- the old loop tape method., only the repeat command counts how deep
to go the the incremantal Z. Sweet! sit back,relax & let the machine
do the work.
This thing is like play time for me. Being on a weirdo ANAYAK & no
toolchanger! I took a 3"wide 5mm dp. cut in TI the other day, the
whole machine osilated & howled! Never hear nothing like that before.
Nothing happend to the carbides on the face mill (positive 3/4"round
inserts), it was just as it entered on the part. After it was in the
cut no probelem. Sure did turn some heads. hehehehe. It has to be the
way the machine tool is designed. The Y travels the Z column with it,
not like most bed type mills where the Z is stationary & X/Y travel on
the bed. Must have been like the way covers, kinda tiny tattle sound??
thanks again for your help. If time permits & the opertunity comes up,
I would like to try your taping prog., even if its just to cut some
air :-)

.
Ya your right CNC's all tap - I've put 1/2 * 3/8 taps in drill chucks
& taped. After a few holes the tap pushes up(always), just feed hold,
rejust & go!
Heidi's converational looks very powerfull for easy 3D shapes. It's
just nobody ever dove in to it to make it work to its full extents
previously at my place. Plus the boss like's Hurco's & so do I. Too
bad, not much effort is going to be spent on the ol Heidi/Anayak. The
table is huge, they could realy use a 4axis with a center/tailstock to
cut round pcs to rectangle on the ends. Could even be a cheaper 4pos
indexer? & the head swivels & looks like the control can be reset on
that plane angle for axis travels?
They are looking down the road of CNC lathe with live tooling.

Below are two simplest examples to do rad. One milling in X and other
milling along the rad.
Jerry
0 BEGIN PGM rad1 INCH
1 BLK FORM 0.1 Z X+0 Y+0 Z-2
2 BLK FORM 0.2 X+3 Y+3 Z+0
3 TOOL CALL 18 Z S5000
4 * - 0.25" ballnose
5 * - 0.5" rad
6 * - machining along X axis
7 CYCL DEF 247 DATUM SETTING ~
Q339=+0 ;DATUM NUMBER
8 L X-0.2 Y-0.125 R0 FMAX M3
9 L Z+0 R0 FMAX M8
10 CC Y+0.5 Z-0.625
11 L Z-0.625 R0 F500
12 LBL 1
13 LP IPA-5 R0
14 L X+3.2
15 LP IPA-5
16 L X-0.2
17 LBL 0
18 CALL LBL 1 REP8
19 L Z+6 R0 FMAX M9 M5
20 L Z-0.1 Y-0.1 R0 FMAX M91
21 M30
22 END PGM rad1 INCH
0 BEGIN PGM rad2 INCH
1 BLK FORM 0.1 Z X+0 Y+0 Z-2
2 BLK FORM 0.2 X+3 Y+3 Z+0
3 TOOL CALL 18 Z S5000
4 * - 0.25" ballnose
5 * - 0.5" rad
6 * - machining along radius
7 CYCL DEF 247 DATUM SETTING ~
Q339=+0 ;DATUM NUMBER
8 L X-0.2 Y-0.125 R0 FMAX M3
9 L Z+0 R0 FMAX M8
10 CC Y+0.5 Z-0.625
11 L Z-0.625 R0 F500
12 LBL 1
13 L IX+0.01
14 CP IPA-90 DR-
15 L IX+0.01
16 CP IPA+90 DR+
17 LBL 0
18 CALL LBL 1 REP160
19 L Z+6 R0 FMAX M9 M5
20 L Z-0.1 Y-0.1 R0 FMAX M91
21 M30
22 END PGM rad2 INCH
Jerry, sounds like your the Heidi guy?
If you have second, could you post the code to sweep a like a 1"rad
across X using Y-Z with say a 1/4"ball EM?- Any example will do, can't
be that hard. I'm close.
I've put in the example in the book, but it does not seem to be
working properly with my dim's input.
I'm a newbee to Heidi's conversational. Aint like no other I've run
across. Kinda funuc macro/type hybrid- in a "league of its own".
Actually really nice. They were way ahead of there time, considering
its a mid 90's setup. I think it can blow away Hurco at certian
things?
If I can figure out how to hook the laptop up to it, one of these
days, I'll pull out some of the prog's to play with.
The other opition I have with this beast, is using ISO. Any experience
with that?
Any help would be appreciated.
FYI this machine was never really used to its full capabilities, by
what I'm seeing. Only been at this place for 8mo now - still
learning

e:
rote:
Hmmmm......... its a gear drive head. max RPM 4K! hehehehe. But I'm
not allowed to use that much. Aparentley the head heats up after??? &
all the seals peuch oil. Oh boy..... kinda reminds of the ol
Cincinnati Milcron 10v 2000 gear drive head. The first hour in the
morning hydraulic oil seeped down to & thru the lower spindle outter
bearings. We had a tin drip pan under the spindle for about 10min with
it running to catch the drain oil. Run when first Turing on the
spindle, else your very spotty after that.
Well today was another learning experience on the beast. Heidi's way
to mill a circle. WTH? Its just me. Not used to their "lingo" It aint
G98/G99
fer rapid & travel planes- no damn R plane......... I'm lost. No G2/G3
its RL RL.
Ah its just another language to add to all the rest of the cultural
melting pots I've been in. DOS,UNIX,LINUX,WinBlows,
Chinese,Polish,Laos,German,Russian,Swede, & of course See Habla press
uono for gringo - dose for espanyol.
Hey anyone know about TIVO's? I wana hack into mine. Its an old Series
2 40hr record time. Works sweet! fer 20bucks at a garage sale. Their
video play back/recording/FFwd/frame-frame is far superior my
DishNetwork satellite DVR. By what I'm finding, its a Linux computer,
programed to do what Tivo lets you to do.
Not good enough for me. I want full control of the DVR/hard drive &
file structure. I dont care about signing up for a tivo contract.

Thanks for your posts. Norman at Bostomatic, too.
Here is a spot/drill/ rigid peck tap I got out of our CAM after some
post tweaks.
I am not versed in any Heidenhain programming so the structure may be
off. Comments welcomed. But the trick was to get the post to issue
hole locations after the cycle is defined. Then called with an M99 or
a Location CYCLE CALL couplet.
Can the cycles all be defined then called later on in the program or
must it be cycle/motion cycle/motion ?
And just in case you have concerns about running Internet servers out
of drive space ..... I didn't want to edit the program for length lest
I delete something which might lead to confusion.
;
0 BEGIN PGM 1 INCH
; FROM BEGIN PGM joe
;
;09/01/2009 08:08:08 AM
; C:\TAP THIS
;
;
BLK FORM 0.1 Z X-1.0 Y-1.0 Z-1.1
BLK FORM 0.2 X+1.0 Y+1.0 Z+0.0110
;
;
CYCL DEF 247 DATUM SETTING~
Q339=3D+1; WORK SHIFT NUMBER
;
;
CYCL DEF 32.0 TOLERANCE
CYCL DEF 32.1 T0.001
CYCL DEF 32.2 HSC-MODE:0 TA0.01
;
;
; TOOL NUMBER - 10
; DESCRIPTION - CDRILL
; TOOL LENGTH FROM HOLDER 2.000
;
; TOOL NUMBER - 11
; DESCRIPTION - .070DIA
; TOOL LENGTH FROM HOLDER 3.500
;
; TOOL NUMBER - 12
; DESCRIPTION - 2-56 TAP
; TOOL LENGTH FROM HOLDER 2.000
;
10 CYCL DEF 7.0 DATUM SHIFT
20 CYCL DEF 7.1 X+0
30 CYCL DEF 7.2 Y+0
40 CYCL DEF 7.3 Z+0
;
;***CDRILL***
CYCL DEF 247 DATUM SETTING~
Q339=3D+1; WORK SHIFT NUMBER
50 TOOL CALL 10 Z S2000
;
;***DRILL***
60 L X.3835 Y.1625 R0 FMAX M3
70 L Z.05 FMAX
80 M8
90 L Z.05 FMAX
100 CYCL DEF 205 UNIVERSAL PECKING~
Q200=3D0.05 ;SET-UP CLEARANCE~
Q201=3D-0.055 ;DEPTH~
Q206=3D15 ;FEED RATE~
Q202=3D0.03 ;PLUNGE DEPTH~
Q203=3D0.0 ;SURFACE COORDINATE~
Q204=3D0.05 ;2ND SET-UP CLEARANCE~
Q212=3D0. ;DECREMENT~
Q205=3D0.0 ;MIN. PLUNGE DEPTH~
Q258=3D0.02 ;UPPER ADV STOP DIST~
Q259=3D0.04 ;LOWER ADV STOP DIST~
Q257=3D0 ;DEPTH FOR CHIP BREAKING~
Q256=3D0.02 ;DIST. FOR CHIP BREAKING~
Q211=3D1.0 ;DWELL AT DEPTH~
Q379=3D0 ;RETRACT FEED RATE~
Q253=3D0 ;DIST. FOR CHIP BREAKING
110 L X.3835 Y.1625 FMAX M3
120 CYCL CALL
130 L X1.0385 FMAX M99
140 L X1.6935 FMAX M99
150 L X2.3485 FMAX M99
160 L X3.0035 FMAX M99
170 L X3.6585 FMAX M99
180 L X4.3135 FMAX M99
190 L X4.9685 FMAX M99
200 L X4.3769 Y-.1625 FMAX M99
210 L X3.7219 FMAX M99
220 L X3.0669 FMAX M99
230 L X2.4119 FMAX M99
240 L X1.7569 FMAX M99
250 L X1.1019 FMAX M99
260 L X.4469 FMAX M99
270 L X-.2081 FMAX M99
280 L X.3835 Y-.3825 FMAX M99
290 L X1.0385 FMAX M99
300 L X1.6935 FMAX M99
310 L X2.3485 FMAX M99
320 L X3.0035 FMAX M99
330 L X3.6585 FMAX M99
340 L X4.3135 FMAX M99
350 L X4.9685 FMAX M99
360 L X4.3769 Y-.7075 FMAX M99
370 L X3.7219 FMAX M99
380 L X3.0669 FMAX M99
390 L X2.4119 FMAX M99
400 L X1.7569 FMAX M99
410 L X1.1019 FMAX M99
420 L X.4469 FMAX M99
430 L X-.2081 FMAX M99
440 L X.3835 Y-.9275 FMAX M99
450 L X1.0385 FMAX M99
460 L X1.6935 FMAX M99
470 L X2.3485 FMAX M99
480 L X3.0035 FMAX M99
490 L X3.6585 FMAX M99
500 L X4.3135 FMAX M99
510 L X4.9685 FMAX M99
520 L X4.3769 Y-1.2525 FMAX M99
530 L X3.7219 FMAX M99
540 L X3.0669 FMAX M99
550 L X2.4119 FMAX M99
560 L X1.7569 FMAX M99
570 L X1.1019 FMAX M99
580 L X.4469 FMAX M99
590 L X-.2081 FMAX M99
600 L X.3835 Y-1.4725 FMAX M99
610 L X1.0385 FMAX M99
620 L X1.6935 FMAX M99
630 L X2.3485 FMAX M99
640 L X3.0035 FMAX M99
650 L X3.6585 FMAX M99
660 L X4.3135 FMAX M99
670 L X4.9685 FMAX M99
680 L X4.3769 Y-1.7975 FMAX M99
690 L X3.7219 FMAX M99
700 L X3.0669 FMAX M99
710 L X2.4119 FMAX M99
720 L X1.7569 FMAX M99
730 L X1.1019 FMAX M99
740 L X.4469 FMAX M99
750 L X-.2081 FMAX M99
;
760 M9
770 M5
M140 MB MAX
780 M1 ; PROGRAM STOP
;
;
;***.070DIA***
CYCL DEF 247 DATUM SETTING~
Q339=3D+1; WORK SHIFT NUMBER
790 TOOL CALL 11 Z S2000
;
;***.070 DRILL***
800 L X.3835 Y.1625 R0 FMAX M3
810 L Z.05 FMAX
820 M8
830 L Z.05 FMAX
840 CYCL DEF 205 UNIVERSAL PECKING~
Q200=3D0.05 ;SET-UP CLEARANCE~
Q201=3D-0.28 ;DEPTH~
Q206=3D13 ;FEED RATE~
Q202=3D0.06 ;PLUNGE DEPTH~
Q203=3D0.0 ;SURFACE COORDINATE~
Q204=3D0.05 ;2ND SET-UP CLEARANCE~
Q212=3D0. ;DECREMENT~
Q205=3D0.0 ;MIN. PLUNGE DEPTH~
Q258=3D0.02 ;UPPER ADV STOP DIST~
Q259=3D0.04 ;LOWER ADV STOP DIST~
Q257=3D0 ;DEPTH FOR CHIP BREAKING~
Q256=3D0.02 ;DIST. FOR CHIP BREAKING~
Q211=3D1.0 ;DWELL AT DEPTH~
Q379=3D0 ;RETRACT FEED RATE~
Q253=3D0 ;DIST. FOR CHIP BREAKING
850 L X.3835 Y.1625 FMAX M3
860 CYCL CALL
870 L X1.0385 FMAX M99
880 L X1.6935 FMAX M99
890 L X2.3485 FMAX M99
900 L X3.0035 FMAX M99
910 L X3.6585 FMAX M99
920 L X4.3135 FMAX M99
930 L X4.9685 FMAX M99
940 L X4.3769 Y-.1625 FMAX M99
950 L X3.7219 FMAX M99
960 L X3.0669 FMAX M99
970 L X2.4119 FMAX M99
980 L X1.7569 FMAX M99
990 L X1.1019 FMAX M99
1000 L X.4469 FMAX M99
1010 L X-.2081 FMAX M99
1020 L X.3835 Y-.3825 FMAX M99
1030 L X1.0385 FMAX M99
1040 L X1.6935 FMAX M99
1050 L X2.3485 FMAX M99
1060 L X3.0035 FMAX M99
1070 L X3.6585 FMAX M99
1080 L X4.3135 FMAX M99
1090 L X4.9685 FMAX M99
1100 L X4.3769 Y-.7075 FMAX M99
1110 L X3.7219 FMAX M99
1120 L X3.0669 FMAX M99
1130 L X2.4119 FMAX M99
1140 L X1.7569 FMAX M99
1150 L X1.1019 FMAX M99
1160 L X.4469 FMAX M99
1170 L X-.2081 FMAX M99
1180 L X.3835 Y-.9275 FMAX M99
1190 L X1.0385 FMAX M99
1200 L X1.6935 FMAX M99
1210 L X2.3485 FMAX M99
1220 L X3.0035 FMAX M99
1230 L X3.6585 FMAX M99
1240 L X4.3135 FMAX M99
1250 L X4.9685 FMAX M99
1260 L X4.3769 Y-1.2525 FMAX M99
1270 L X3.7219 FMAX M99
1280 L X3.0669 FMAX M99
1290 L X2.4119 FMAX M99
1300 L X1.7569 FMAX M99
1310 L X1.1019 FMAX M99
1320 L X.4469 FMAX M99
1330 L X-.2081 FMAX M99
1340 L X.3835 Y-1.4725 FMAX M99
1350 L X1.0385 FMAX M99
1360 L X1.6935 FMAX M99
1370 L X2.3485 FMAX M99
1380 L X3.0035 FMAX M99
1390 L X3.6585 FMAX M99
1400 L X4.3135 FMAX M99
1410 L X4.9685 FMAX M99
1420 L X4.3769 Y-1.7975 FMAX M99
1430 L X3.7219 FMAX M99
1440 L X3.0669 FMAX M99
1450 L X2.4119 FMAX M99
1460 L X1.7569 FMAX M99
1470 L X1.1019 FMAX M99
1480 L X.4469 FMAX M99
1490 L X-.2081 FMAX M99
;
1500 M9
1510 M5
M140 MB MAX
1520 M1 ; PROGRAM STOP
;
;
;***2-56 TAP***
CYCL DEF 247 DATUM SETTING~
Q339=3D+1; WORK SHIFT NUMBER
1530 TOOL CALL 12 Z S600
;
;***2-56 TAP***
1540 L X.3835 Y.1625 R0 FMAX M3
1550 L Z.05 FMAX
1560 M8
1570 L FMAX
1580 L Z.05 FMAX
1590 CYCL DEF 209 TAPPING W/ CHIP BRKG ~
Q200=3D0.05 ;SET-UP CLEARANCE~
Q201=3D-0.265 ;DEPTH OF THREAD ~
Q239=3D0.0179 ;PITCH OF THREAD ~
Q203=3D0.0 ;SURFACE COORDINATE~
Q204=3D0.05 ;2ND SET-UP CLEARANCE~
Q257=3D0.085 ;DEPTH FOR CHIP BRKNG ~
Q256=3D0.02 ;DIST FOR CHIP BRKNG ~
Q336=3D0 ;ANGLE OF SPINDLE
1600 L X.3835 Y.1625 FMAX
1610 CYCL CALL
1620 L X1.0385 FMAX M99
1630 L X1.6935 FMAX M99
1640 L X2.3485 FMAX M99
1650 L X3.0035 FMAX M99
1660 L X3.6585 FMAX M99
1670 L X4.3135 FMAX M99
1680 L X4.9685 FMAX M99
1690 L X4.3769 Y-.1625 FMAX M99
1700 L X3.7219 FMAX M99
1710 L X3.0669 FMAX M99
1720 L X2.4119 FMAX M99
1730 L X1.7569 FMAX M99
1740 L X1.1019 FMAX M99
1750 L X.4469 FMAX M99
1760 L X-.2081 FMAX M99
1770 L X.3835 Y-.3825 FMAX M99
1780 L X1.0385 FMAX M99
1790 L X1.6935 FMAX M99
1800 L X2.3485 FMAX M99
1810 L X3.0035 FMAX M99
1820 L X3.6585 FMAX M99
1830 L X4.3135 FMAX M99
1840 L X4.9685 FMAX M99
1850 L X4.3769 Y-.7075 FMAX M99
1860 L X3.7219 FMAX M99
1870 L X3.0669 FMAX M99
1880 L X2.4119 FMAX M99
1890 L X1.7569 FMAX M99
1900 L X1.1019 FMAX M99
1910 L X.4469 FMAX M99
1920 L X-.2081 FMAX M99
1930 L X.3835 Y-.9275 FMAX M99
1940 L X1.0385 FMAX M99
1950 L X1.6935 FMAX M99
1960 L X2.3485 FMAX M99
1970 L X3.0035 FMAX M99
1980 L X3.6585 FMAX M99
1990 L X4.3135 FMAX M99
2000 L X4.9685 FMAX M99
2010 L X4.3769 Y-1.2525 FMAX M99
2020 L X3.7219 FMAX M99
2030 L X3.0669 FMAX M99
2040 L X2.4119 FMAX M99
2050 L X1.7569 FMAX M99
2060 L X1.1019 FMAX M99
2070 L X.4469 FMAX M99
2080 L X-.2081 FMAX M99
2090 L X.3835 Y-1.4725 FMAX M99
2100 L X1.0385 FMAX M99
2110 L X1.6935 FMAX M99
2120 L X2.3485 FMAX M99
2130 L X3.0035 FMAX M99
2140 L X3.6585 FMAX M99
2150 L X4.3135 FMAX M99
2160 L X4.9685 FMAX M99
2170 L X4.3769 Y-1.7975 FMAX M99
2180 L X3.7219 FMAX M99
2190 L X3.0669 FMAX M99
2200 L X2.4119 FMAX M99
2210 L X1.7569 FMAX M99
2220 L X1.1019 FMAX M99
2230 L X.4469 FMAX M99
2240 L X-.2081 FMAX M99
;
2250 M9
2260 M5
;
M140 MB MAX
CYCL DEF 247 DATUM SETTING~
Q339=3D+49; UNLOAD PART WORK SHIFT NUMBER
L X0 Y0 FMAX
CYCL DEF 247 DATUM SETTING~
Q339=3D+1; RELOAD ASS-U-MED WORK SHIFT NUMBER
;
L R0 FMAX
M30
END PGM 1 INCH

Every time you define a cycle like drilling or taping it takes precedence
over any pervious cycle.
If you are changing only one of the cycle parameters like say depth all you
have to do is describe new Q value.
For example you drill hole 1" deep (Q201=-0.055 ;DEPTH) before next hole
you may describe Q201=-1.5 and next hole drilled with M99 will be 1.5" deep.
Same with any other Q value in cycles. You could make a say LBL 10 with any
cycle in it and call it up when needed.
If you want to make your program smaller you can edit it like I did with
your program below.
All your positioning is in a label and is called up with every tool. Don't
worry about the block numbers. When you send it to your machine it will
rearrange it.
0 BEGIN PGM 1 INCH
; FROM BEGIN PGM joe
BLK FORM 0.1 Z X-1.0 Y-1.0 Z-1.1
BLK FORM 0.2 X+1.0 Y+1.0 Z+0.0110
CYCL DEF 247 DATUM SETTING~
Q339=+1; WORK SHIFT NUMBER
10 CYCL DEF 7.0 DATUM SHIFT
20 CYCL DEF 7.1 X+0
30 CYCL DEF 7.2 Y+0
40 CYCL DEF 7.3 Z+0
CYCL DEF 247 DATUM SETTING~
Q339=+1; WORK SHIFT NUMBER
50 TOOL CALL 10 Z S2000;
55 TOOL NUMBER - 10 DESCRIPTION - CDRILL TOOL LENGTH FROM HOLDER 2.000
100 CYCL DEF 205 UNIVERSAL PECKING~
Q200=0.05 ;SET-UP CLEARANCE~
Q201=-0.055 ;DEPTH~
Q206=15 ;FEED RATE~
Q202=0.03 ;PLUNGE DEPTH~
Q203=0.0 ;SURFACE COORDINATE~
Q204=0.05 ;2ND SET-UP CLEARANCE~
Q212=0. ;DECREMENT~
Q205=0.0 ;MIN. PLUNGE DEPTH~
Q258=0.02 ;UPPER ADV STOP DIST~
Q259=0.04 ;LOWER ADV STOP DIST~
Q257=0 ;DEPTH FOR CHIP BREAKING~
Q256=0.02 ;DIST. FOR CHIP BREAKING~
Q211=1.0 ;DWELL AT DEPTH~
Q379=0 ;RETRACT FEED RATE~
Q253=0 ;DIST. FOR CHIP BREAKING
105 LBL 1
110 L X.3835 Y.1625 FMAX M3
120 CYCL CALL M8
130 L X1.0385 FMAX M99
140 L X1.6935 FMAX M99
150 L X2.3485 FMAX M99
160 L X3.0035 FMAX M99
170 L X3.6585 FMAX M99
180 L X4.3135 FMAX M99
190 L X4.9685 FMAX M99
200 L X4.3769 Y-.1625 FMAX M99
210 L X3.7219 FMAX M99
220 L X3.0669 FMAX M99
230 L X2.4119 FMAX M99
240 L X1.7569 FMAX M99
250 L X1.1019 FMAX M99
260 L X.4469 FMAX M99
270 L X-.2081 FMAX M99
280 L X.3835 Y-.3825 FMAX M99
290 L X1.0385 FMAX M99
300 L X1.6935 FMAX M99
310 L X2.3485 FMAX M99
320 L X3.0035 FMAX M99
330 L X3.6585 FMAX M99
340 L X4.3135 FMAX M99
350 L X4.9685 FMAX M99
360 L X4.3769 Y-.7075 FMAX M99
370 L X3.7219 FMAX M99
380 L X3.0669 FMAX M99
390 L X2.4119 FMAX M99
400 L X1.7569 FMAX M99
410 L X1.1019 FMAX M99
420 L X.4469 FMAX M99
430 L X-.2081 FMAX M99
440 L X.3835 Y-.9275 FMAX M99
450 L X1.0385 FMAX M99
460 L X1.6935 FMAX M99
470 L X2.3485 FMAX M99
480 L X3.0035 FMAX M99
490 L X3.6585 FMAX M99
500 L X4.3135 FMAX M99
510 L X4.9685 FMAX M99
520 L X4.3769 Y-1.2525 FMAX M99
530 L X3.7219 FMAX M99
540 L X3.0669 FMAX M99
550 L X2.4119 FMAX M99
560 L X1.7569 FMAX M99
570 L X1.1019 FMAX M99
580 L X.4469 FMAX M99
590 L X-.2081 FMAX M99
600 L X.3835 Y-1.4725 FMAX M99
610 L X1.0385 FMAX M99
620 L X1.6935 FMAX M99
630 L X2.3485 FMAX M99
640 L X3.0035 FMAX M99
650 L X3.6585 FMAX M99
660 L X4.3135 FMAX M99
670 L X4.9685 FMAX M99
680 L X4.3769 Y-1.7975 FMAX M99
690 L X3.7219 FMAX M99
700 L X3.0669 FMAX M99
710 L X2.4119 FMAX M99
720 L X1.7569 FMAX M99
730 L X1.1019 FMAX M99
740 L X.4469 FMAX M99
750 L X-.2081 FMAX M99
755 LBL 0
760 M9
770 M5
M140 MB MAX
780 M1 ; PROGRAM STOP
790 TOOL CALL 11 Z S2000
; TOOL NUMBER - 11 DESCRIPTION - .070DIA TOOL LENGTH FROM HOLDER 3.500
840 CYCL DEF 205 UNIVERSAL PECKING~
Q200=0.05 ;SET-UP CLEARANCE~
Q201=-0.28 ;DEPTH~
Q206=13 ;FEED RATE~
Q202=0.06 ;PLUNGE DEPTH~
Q203=0.0 ;SURFACE COORDINATE~
Q204=0.05 ;2ND SET-UP CLEARANCE~
Q212=0. ;DECREMENT~
Q205=0.0 ;MIN. PLUNGE DEPTH~
Q258=0.02 ;UPPER ADV STOP DIST~
Q259=0.04 ;LOWER ADV STOP DIST~
Q257=0 ;DEPTH FOR CHIP BREAKING~
Q256=0.02 ;DIST. FOR CHIP BREAKING~
Q211=1.0 ;DWELL AT DEPTH~
Q379=0 ;RETRACT FEED RATE~
Q253=0 ;DIST. FOR CHIP BREAKING
1495 LBL CALL 1
1500 M9
1510 M5
M140 MB MAX
1520 M1 ; PROGRAM STOP
CYCL DEF 247 DATUM SETTING~
Q339=+1; WORK SHIFT NUMBER
1530 TOOL CALL 12 Z S600
; TOOL NUMBER - 12 DESCRIPTION - 2-56 TAP TOOL LENGTH FROM HOLDER 2.000
1590 CYCL DEF 209 TAPPING W/ CHIP BRKG ~
Q200=0.05 ;SET-UP CLEARANCE~
Q201=-0.265 ;DEPTH OF THREAD ~
Q239=0.0179 ;PITCH OF THREAD ~
Q203=0.0 ;SURFACE COORDINATE~
Q204=0.05 ;2ND SET-UP CLEARANCE~
Q257=0.085 ;DEPTH FOR CHIP BRKNG ~
Q256=0.02 ;DIST FOR CHIP BRKNG ~
Q336=0 ;ANGLE OF SPINDLE
1595 LBL CALL 1
2250 M9
2260 M5
M140 MB MAX
CYCL DEF 247 DATUM SETTING~
Q339=+49; UNLOAD PART WORK SHIFT NUMBER
L X0 Y0 FMAX
CYCL DEF 247 DATUM SETTING~
Q339=+1; RELOAD ASS-U-MED WORK SHIFT NUMBER
M30
END PGM 1 INCH
Thanks for your posts. Norman at Bostomatic, too.
Here is a spot/drill/ rigid peck tap I got out of our CAM after some
post tweaks.
I am not versed in any Heidenhain programming so the structure may be
off. Comments welcomed. But the trick was to get the post to issue
hole locations after the cycle is defined. Then called with an M99 or
a Location CYCLE CALL couplet.
Can the cycles all be defined then called later on in the program or
must it be cycle/motion cycle/motion ?
And just in case you have concerns about running Internet servers out
of drive space ..... I didn't want to edit the program for length lest
I delete something which might lead to confusion.

Thanks guys for the posts on Heidi's cycles.
Looks like the 530 control has a lot more cycles than than the ol 426
I'm on.
Billynevada: What CAM system outputs Heidi format? I was thinking only
ISO?
Also guys, what machine tools is the control on?
Last Fri, I had a 24"sqr electrical cabinet the service guys wanted a
"nice" 5" hole thru. What a fascicle. Setup top of the 2 kurts clapmed
to wood.
There was about 3/16-1/4" clearance to get the tool over & in. I
thought I had more, but turns out the last little bit, maybe 1/2" of Z
travel close to the upper limit switch is not usable during cycle.
Only took an hour or so to figure that out. So after machine
alignment, Z backs off the upper switch, so that position is max Z.
What's the cycle to just plunge & mill a circle- letting letting the
slug fall? I only found pocketing(taking the middle out), but thats
not what I wanted. Maybe there is no cycle, & its just input of circle
cent & rad? Remember I have a vintage 1996 - 426.
Hey that sounds like an old Hemi moter only 66-426?
Thanks for your help.

Hi cncmillgil.
It is so easy to mill a circle like you describing there is no sense to use
a cycle.
All you do is to go to center of your pocket and down in Z and
CC IX0 IY0
LP PR 2.5 PA 0 RL F
ICP +360 DR+
Done.
If you want to do this on 426 with a cycle you can lie to the control and
add an even round number to you comp and the same to rad of your circle.
This way cutter will go straight to the edge of your circle.
We have Butlers, Correas and DMG with this control in our shop and if you
programming on the machine and you are good you can program it faster than
any other control I have ever seen.
Jerry
Thanks guys for the posts on Heidi's cycles.
Looks like the 530 control has a lot more cycles than than the ol 426
I'm on.
Billynevada: What CAM system outputs Heidi format? I was thinking only
ISO?
Also guys, what machine tools is the control on?
Last Fri, I had a 24"sqr electrical cabinet the service guys wanted a
"nice" 5" hole thru. What a fascicle. Setup top of the 2 kurts clapmed
to wood.
There was about 3/16-1/4" clearance to get the tool over & in. I
thought I had more, but turns out the last little bit, maybe 1/2" of Z
travel close to the upper limit switch is not usable during cycle.
Only took an hour or so to figure that out. So after machine
alignment, Z backs off the upper switch, so that position is max Z.
What's the cycle to just plunge & mill a circle- letting letting the
slug fall? I only found pocketing(taking the middle out), but thats
not what I wanted. Maybe there is no cycle, & its just input of circle
cent & rad? Remember I have a vintage 1996 - 426.
Hey that sounds like an old Hemi moter only 66-426?
Thanks for your help.

.
I'm beginning to understand the format of Heide's language, finally!
Got a lot of cycles down now,labels/repeats ect. Complex print
geometry can be done with very little calulations. Heck, I'm a Hurco
head, so for comparison, take away Hurco's DXF & I think Heide may be
faster & smarter math wise.
So, my standing question: How do I circular interpolate in Y-Z or X-Z?
Being an ol ISO g-coder, Its G18/19 plane select, then I/J/K circ-cen.
G2/G3- G91 increm. over- ect.
How does that translate to Heide? Say I want to sweep a convex 1"R.
across a 5"?(x or y) block using a 1/4"ball EM, taking .025" step
overs?
Sweeping simple 2.5D contours across blocks is a lot of what my place
does.
It aint rocket science, I was doing work like this back in '80, hand
coding & manualy punching mylar tape, splicing the ends together to
make a continuese running loop tape, by switching on block-delete /
after prog is started, operator stops it after it runs off the block
or before it cuts into the table.
Thanks Again.
--
___ ___
/ \ / /\
/ /__\ / /\/\
/__/ / ------------------------------------ /__/\/\/
\ \ / ------------------------------------ \ \/\/
\ _\/ \__\/
Gil=A9

.
...
Looks all "greek" to me:-) I will give these a try tomorrow during a
long run on slots.
Thanks
--
___ ___
/ \ / /\
/ /__\ / /\/\
/__/ / ------------------------------------ /__/\/\/
\ \ / ------------------------------------ \ \/\/
\ _\/ \__\/
Gil=A9

.
...
om...
Help Mr. Wizzard Help!
This F'in Ol Basdard 426 will be my bitch some day.........
Ain no damn CNC freekin control gonna intimadate me
I'm good at fegger'in out stuff ya no..........:-)
Like back in 95, A Mitsubishi v55 with the M2a control. that was
another sleeping giant. Slow as a turtle but a great moldbase
machine.

...
om...
.com...
Ok overall consensise so far, about 25-50hrs actual machine time over
the last 9mo.
Heidenhain 426 conversational input on Anayak VH1800.
Its a bitch
The thinking mentality , logic, behind the the predefined cycles are
different than today. Gotta remember they did not have & readily
avalaible, good CAM systems to get data feed to the machine & get'r
running. Besides Mastercam/Smartcam/Sufcam early 90 ish. High end
systems McD/Slumberje?/CV/Camax/IT/ were the few REAL cam systems out
there, and were few & far between.
So take a shop floor guy & give'em a way to get basic geometry off
basic prints in to the machine, let the control do all the hard trig
math, with a few "rules" for those cycles & wala! Yer cut'in 3D shit
with cycle looping /inrementaly progressing & multi passing milling
controled by number of repeats stuff. Plus while the machine is
running, next up programs can be witten/ screen tested(backploted),pre
difined work offsets calculated(programing in background). & it has
its own user defined macro input called "Q" programs for "family of
parts" type work. . Make a d
It's input & editing key functions & terminolgy are kinda funky as
comparied to US? IE: no entry=3Dclear entry - NC start=3DCycle Start
NC stop=3Dinterrupt cycle/feed hold. It's ok, but just makes you think
for a second. The reasoning is, that control was put on all kinds of
machines, prolly robots & other cnc controled equipt. So across the
board terminolgy is used.
Its just another Freekin machine tool. Another notch in the belt.
Gonna need a bigger belt here soon.
As I said before, I will own you bitch! You are a piece of ancient
shit.
But you still work, so this crazy ol moldmaker is gonna have some fun
with you, with your big ass 50taper (no tool changer) 30hp gear drive
dick head shaped head.
This machine tool is what happens when German engineering & Spanish
engineering get together. WTH? were they thinking?
Freekin goof balls. Such a big ass machine but not enough rigidity to
hold large face mills from deflection - noticed on mainly exit off of
part.
Just slightly, again noticalble by cutter marks (trailing & leading
edge) & size measurement. +-.001 over 4"dia face mill. Not so much
head out of sqr as seen from stepover, but deflection in direction of
travel. Its gotta be not enough strength by desgin of the physical
head shape. It looks like a swivel dick sticking out of the Y carrage.
This compact swiveling head design was intended for a purpose.? Maybe
tall cores/ castings with small corner radii? Thus the head could be
swiveled to gain access way down vertical walls? Its big enough &
strong enough to preform very well at jobs like that. Kinda reminds me
of giant version of the old Bridgeport "Quilmaster" head. With a huge
X(70") Y Z travels open bed, full front loading - door access. You
just don't see the likes of one of these too often. I dont think this
beast has ever been fully tammed. This shop has been "captive" so
production output was not much?
Any hoot, its a play thing for me, as I feel semi-retired at 52. I
just do this shit so I dont get bored, as can be clearly seen here, by
me wasting my time here
Ya Ya you know, Its German..........the BEST! oh sorry Swiss,&
Norwegian guys.

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here.
All logos and trade names are the property of their respective owners.