Mori ZL-250 post

[kccadcam]

How do I make this post output G380 at the end of live tapping and G80 all other times?

 

This is what I have now:

code:

---

 pcanceldc     #Cancel drill cycle

xabs = vequ (initht_x) #Position to return

ps_inc_calc

pe_inc_calc #Update to current location

gcode = zero,

pcan

pcan1, pbld, sgcode, "G80", strcantext, e

pcan2

---

Modified Mplfan to start with.

This is my live tapping code:

code:

---

 mtap          #Canned tap cycle, mill

pdrlcommonb

feed= 1/n_tap_thds

dec_speed = speed

retr_speed = peck1

if retr_speed > (dec_speed * 2), retr_speed = dec_speed

ptap_orient

pcan1, pbld, *sgdrlref, pgdrlout, pxout, pyout, pzout,

pcout, prdrlout, pffr, *dec_speed, *retr_speed, "M68", *tap_orient, strcantext, e

pcom_movea

 

ptap_orient

#T1. = side tapping right hand thread

#T2. = face tapping right hand

#T3. = face tapping left hand

#T4. = side tapping left hand

# tool_op 55 == z

# tool_op 56 == x

 

if tool_op = 55,

[

if spdir = 1, tap_orient = 2

if spdir = -1, tap_orient = 3

]

if tool_op = 56,

[

if spdir = 1, tap_orient = 1

if spdir = -1, tap_orient = 4

]

---

[Chris Parish]

Kevin:

 

Here's some help....

 

at pcanceldc I add:

 

if tap_flag = 1,

[

pcan1, pbld, sgcode, "G380",

], e

else,

pcan1, pbld, sgcode, "G80", strcantext, e

 

 

Now at mtap, I add:

 

tap_flag = 1

 

 

Also at initilize variables... I add:

 

tap_flag: 0

[kccadcam]

Thanks CParish, works great.

 

Now one more,

this is what I have now:

code:

---

 N0500 G98 G0 G53 X0.0

G53 Z0.0 M01

(1/4 X 90 DEG SPOT DRILL)

( C-AXIS FACE DRILL )

G0 T0505

M45

G0 G55 X3. Z.1

C0.

M9

G97 S1146 M13

G83 Z-.085 R0. F2.

C45.

C90.

C135.

C180.

C225.

C270.

C315.

G80

N0600 G98 G0 G53 X0.0

G53 Z0.0 M01

( NO. 26 DRILL COBALT STUBBY)

G0 T0606

G0 G55 X3. Z.1

C360.

M9

G97 S1952 M13

G83 Z-.65 R0. Q800 F3.

C405.

C450.

C495.

C540.

C585.

C630.

C675.

G80

N0700 G98 G0 G53 X0.0

G53 Z0.0 M01

(8-32 ROLL TAP)

G0 T0707

G0 G55 X3. Z.1

C720.

M9

G97 S320 M13

G384 Z-.55 R0. F.0313 S320.0 D500.0 M68 T2.0

C765.

C810.

C855.

C900.

C945.

C990.

C1035.

G380

G0 G53 X0.0

G53 Z0.0

/M30

M99

---

I need Q's every line on pecking and G384 on every line with tapping like this:

code:

---

 N0500 G98 G0 G53 X0.0

G53 Z0.0 M01

(1/4 X 90 DEG SPOT DRILL)

( C-AXIS FACE DRILL )

G0 T0505

M45

G0 G55 X3. Z.1

C0.

M9

G97 S1146 M13

G83 Z-.085 R0. F2.

C45.

C90.

C135.

C180.

C225.

C270.

C315.

G80

N0600 G98 G0 G53 X0.0

G53 Z0.0 M01

( NO. 26 DRILL COBALT STUBBY)

G0 T0606

G0 G55 X3. Z.1

C360.

M9

G97 S1952 M13

G83 Z-.65 R0. Q800 F3.

C405. Q800

C450. Q800

C495. Q800

C540. Q800

C585. Q800

C630. Q800

C675. Q800

G80

N0700 G98 G0 G53 X0.0

G53 Z0.0 M01

(8-32 ROLL TAP)

G0 T0707

G0 G55 X3. Z.1

C720.

M9

G97 S320 M13

G384 Z-.55 R0. F.0313 S320.0 D500.0 M68 T2.0

G384 C765.

G384 C810.

G384 C855.

G384 C900.

G384 C945.

G384 C990.

G384 C1035.

G380

G0 G53 X0.0

G53 Z0.0

/M30

M99

---

The G384 must be before the -C- callout.

[petec]

bump

[Mick]

Just a thought, but prior to any other drill cycle, shouldn't the tapflag be reset to zero? Other wise, if a drilling cycle is used after the tapping, it will output a G380, as the tapflag wasn't reset.

 

Wow...I'm thinking a bit too much on a Saturday morning

[CAMinator]

Instead of creating your own flag why not check to see if drillcyc = 3? Then it would be directly linked to the selected drill cycle.

 

 

HTH

[MIL-TFP-41]

yo Kevin...James here

 

try something like this

code:

---

mtap_2        #Canned tap cycle repeat, mill

pdrlcommonb

*pcan1, pbld, pxout, pyout, pzout, pcout, prdrlout,

dwell, pfr, strcantext, e

pcom_movea

---

note the "*" before the pcan1

the idea is you force out the g code on each block. this also should work if you force out the peck depth on you drill cycle

[kccadcam]

Ok, here's what I ended up with:

 

canceling tapping:

 

code:

---

 pcanceldc     #Cancel drill cycle

xabs = vequ (initht_x) #Position to return

ps_inc_calc

pe_inc_calc #Update to current location

gcode = zero

pcan

if drillcyc = 3,

[

pcan1, pbld, sgcode, "G380",

], e

else,

pcan1, pbld, sgcode, "G80", strcantext, e

pcan2

---

Forcing G's and Q's:

 

 

code:

---

 mdrill_2      #Canned drill cycle repeat, mill

pdrlcommonb

if drillcyc = 1, [mpecker], e

if drillcyc = 3, [mtapper], e

else,

pcan1, pbld, pxout, pyout, pzout, pcout, prdrlout,

dwell, strcantext, e

pcom_movea

 

 

mpecker

pcan1, pbld, pxout, pyout, pzout, pcout, *peck1,

prdrlout, dwell, strcantext, e

 

mtapper

pcan1, pbld, pgdrlout, pxout, pyout, pzout, pcout,

dwell, prdrlout, strcantext, e

---

Seems to be working well......