clearance point for drill cycle

[nor750rr]

what controls the clearance point of the drill cycle in a post

[K2csq7]

refht_a or refht_i

those control the R value in the posted code, the clearance shows up on the G43 line, to get that I think you need to pull from parameters

[Guest nordraw]

so then what is the difference btween them?

i have an old 1050 ge control and the g98 can only be done by adding a line

with g78 z r that equal the clearance.then 81zr then g78zr....

[K2csq7]

What value are you trying to get? The Clearance or Retract as it is entered when you create the operation?

 

And type up a quick line of code showing exactly how you want it to look, I'll see if I can help.

[Guest nordraw]

i am trying to get the drill cycle (g81 r.25 z-1.0) then the clearance move (g78 z2.0r2.0) then g81 then g78

so the r is the retract

and the g78 line both z and r need to equal the clearance value

 

so in this case my clearance is 2.0 and my retract is .25

[K2csq7]

ok so what you want to see is...

 

N200 G81 X 5.5 Y 5.5 R.25 Z-1.0 F4.0

N202 G78 Z2.0 R2.0

 

??

[Guest nordraw]

ok so what you want to see is...

 

N200 G81 X 5.5 Y 5.5 R.25 Z-1.0 F4.0

N202 G78 Z2.0 R2.0

 

??

[Guest nordraw]

yes the 81 then the g78 has to repeat after every g81

[K2csq7]

Ok.

Also for peck, chipbreak, tapping and boring cycles?

What post are you using?

[nor750rr]

yes i am using a post for a ge1050 i can emaul it to you if it helps

[K2csq7]

Ok

try this in your post.

Define 2 variables.

fmt  Z   2   forclear
fmt  R   2   forretract 

 

pull values from parameters

      	if prmcode$ = 10020, forclear = rpar(sparameter$,1)
      	if prmcode$ = 10020, forretract = rpar(sparameter$,1)

 

create postblock

pnor
 	pbld, n$ "G78", *forclear, *forretract, e$

 

call to postblock in all drilling cycles...

pdrill$      	#Canned Drill Cycle
 	pdrlcommonb
 	pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
   	prdrlout, [if dwell$, *dwell$], *feed, strcantext, e$
 	pnor<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 	pcom_movea

ppeck$       	#Canned Peck Drill Cycle
 	pdrlcommonb
 	pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
   	prdrlout, *peck1$, [if haas, *peck2$, *peckclr$], *feed, strcantext, e$
 	pnor<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 	pcom_movea

pchpbrk$     	#Canned Chip Break Cycle
 	pdrlcommonb
 	pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
   	prdrlout, *peck1$, *feed, strcantext, e$
 	pnor<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 	pcom_movea

ptap$        	#Canned Tap Cycle
 	pdrlcommonb
 	#RH/LH based on spindle direction
 	if rigid_tap, pbld, n$, *sm29, *speed, e$       	#Rigid Tapping
 	if use_pitch = 0,
   	[
   	pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
     	prdrlout, [if peck1$, *peck1$], *feed, strcantext, e$
   	]
 	else,
   	[
   	if metvals, pitch = n_tap_thds$  # Tap pitch (mm  per thread)
   	else, pitch = 1/n_tap_thds$   	# Tap pitch (inches per thread)
   	pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
     	prdrlout, [if peck1$, *peck1$], *pitch, !feed, strcantext, e$
   	]
 	pnor<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 	pcom_movea

 

also put "pnor" in all other necessary drilling type postblocks

 

HTH

[K2csq7]

N100 G00 G91 G28 Z0.
N110 G00 G17 G20 G40 G49 G80 G90 G94 G98 H00
N120 ( LOAD T2 )
N130 M00
( CONFIRM T2 H2 D2 DIA = 0.2500 )
N140 M11 (UNLOCK C)
N150 M11 (UNLOCK 
N160 G00 G17 G90 G54 C0. B0. X1.281 Y1.4892 S1069 M03
N170 M10 (LOCK C)
N180 M10 (LOCK 
N190 G43 H2 Z2.
N200 G94
N210 G98 G81 X1.281 Y1.4892 Z-1. R.25 F1.07
N220 G78 Z2. R2.<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
N230 X2.9303 Y1.6813
N240 X2.3699 Y.8887
N250 G80
N260 M05
N270 G91 G28 Z0.
N280 M00
N290 ( LOAD T105 )
N300 M00
( CONFIRM T105 H105 D105 DIA = 0.2570 )
N310 M11 (UNLOCK C)
N320 M11 (UNLOCK 
N330 G00 G17 G90 G54 C0. B0. X1.6253 Y-.0961 S5945 M03
N340 M10 (LOCK C)
N350 M10 (LOCK 
N360 G43 H105 Z2.
N370 G94
N380 G98 G83 X1.6253 Y-.0961 Z-1. R.25 Q.1 F57.08
N390 G78 Z2. R2.<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
N400 X2.3699 Y.8887
N410 X1.3531 Y1.4732
N420 X1.281 Y.9127
N430 G80
N440 M05
N450 G91 G28 Z0.
N460 M00
N470 ( LOAD T201 )
N480 M00
( CONFIRM T201 H201 D201 DIA = 0.3125 )
N490 M11 (UNLOCK C)
N500 M11 (UNLOCK 
N510 G00 G17 G90 G54 C0. B0. X1.6253 Y-.0961 S855 M03
N520 M10 (LOCK C)
N530 M10 (LOCK 
N540 G43 H201 Z2.
N550 G94
N560 G98 G84 X1.6253 Y-.0961 Z-.5 R.25 Q.1 F47.54
N570 G78 Z2. R2.<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
N580 X2.3699 Y.8887

[nor750rr]

thanks i will let you know when i get it put in