Rotary axis need help

[TODD944]

I am trying to drill holes around a rotary. When I center drill the holes backplot shows the tool moving around the part. When I do my drill toolpath it shows the part moving. When I post this the center drill path cancel the drill cycle between each rotation and the drill cycle does not. Does anyone have a solution for this?

[Guest]

If the holes are equally spaced, I would only center and drill the top one and then use transform rotate to get around the part.

 

How is your toolpath set up to actaully go around the part?

[Allan Brown]

Mastercam cancels drill cycles between toolplanes.

 

If you don't want a cancel, you need to use Rotary Substitution.

 

If you want to program easily and have compact code - do what John said with a rotary Transform toolpath, and use subprograms.

[Guest]

Can anyone think of a way to stop Mastercam from cancelling a drill cycle on a plane change.

 

I am trying to output a drill cycle similar to a C axis face drill cycle, wiht only the A rotational moves.

 

A0.

G81 Z-.5 R.05 F12.

A60.

A120.

A180.

A240.

A300.

G80

 

Right now I get canceling G80 between all points.

[Jack Neelands™]

I am going to be having the same issue in about 2 days as well john ....keep me posted if you get any results ...I may have to hardcode something in my post...or remove something...lol

[ThRaSH]

Wouldn't you want G80 so that it will retract to your reference point before rotating?

[Jack Neelands™]

that depends on how close you are getting to something like a cylinder or may a sphere on the 5th axis and not have to retract on every time you change the plane

[Philcott]

John,

 

Are you talking about face drilling on a c-axis lathe? I am not getting a G80 cancel between holes when using C axis face drill "G83"

 

Phil

[Guest]

exactly Phil

 

In lathe you can get the c axis rotation with no cancels in between but in mill you can not.

 

I am trying to come up with something that will let mill generate the A rotation with no cancels in between.

[Philcott]

I just tried to transform / rotate the drill toolpath and I get the G80 cancel and a return to the clearance position for each hole just like in mill.

 

Phil

[crazy^millman]

I have a way, but not an easy one, but I think it will work. I would use a Mi8 and just use that switch to not call up the redundant code.

 

HTH

[Guest]

I was trying that Ron, I could NOT keep it from cycling into the pcancel$ post block. I think that is handled right inside of the mp.dll

[crazy^millman]

You would handle it like so.

 

code:

---

pcanceldc$       #Cancel canned drill cycle

result = newfs (three, zinc)

if tap_feed = one & drillcyc$ = three, result = newfs (15, feed) #Cancel tap feeds with 4/3 decimal places

if drillref = 0, z$ = initht$

else, z$ = refht$

!z$

if cuttype = one, prv_zia = initht$ + (rotdia$/two)

#else, prv_zia = initht$ #G91 Z depth from initial height

else, prv_zia = refht$ #Fanuc style - G91 Z depth from R level

pxyzcout

!zabs, !zinc

prv_gcode$ = zero

if cool_zmove = yes$ & (nextop$=1003 | (nextop$=1011 & t$<>abs(nexttool))), coolant$ = zero

pcan

if mi8$ = 0, if drillcyc$ <> 8, pcan1, pbld, n$, "G80", scoolant, strcantext, e$

if use_pitch & tapflg = 1, pbld, n$, "G94", e$

pcan2

tapflg = 0

---

I then went here:

code:

---

pdrill$          #Canned Drill Cycle

pdrlcommonb

pcan1, pbld, n$, `sgdrlref, `sgdrill, pdrlxy, [if sav_mi8 > 1,`pzout], pcout, pindexdrl,

[if sav_mi8 > 1,`prdrlout], dwell$, `feed, strcantext, e$

if mi8$ = 1, sav_mi8 = sav_mi8 = 1

pcom_movea

 

pdrlcommonb #Canned Drill Cycle common call, before

if sav_dgcode = 81,

[

result = newfs (two, zinc)

if tap_feed = one & drillcyc$ = three, result = newfs (two, feed) #Tap feeds with 4/3 decimal places

if drillcyc$ = three, drlgsel = fsg1(-ss$) + drillcyc$ * two

else, drlgsel = fsg2(dwell$) + drillcyc$ * two

#if initht$ <> refht$, drillref = zero

#else, drillref = one

if clearflg = one & clearstrt = zero, drillref = zero

else, drillref = one

prv_refht_a = c9k

prv_refht_i = c9k

prv_dwell$ = zero

]

if cuttype = three, sav_dgcode = gcode$

else, z$ = depth$

if cuttype = one, prv_zia = initht$ + (rotdia$/two)

else, prv_zia = refht$ #Fanuc style - G91 Z depth from R level

#else, prv_zia = initht #G91 Z depth from initial height

pcom_moveb

feed = fr_pos$

comment$

pcan

#5 axis must map the true Z, correct Z calculation here

if cuttype = three,

[

prv_zia = zabs + (-depth$) + initht$

zia = fmtrnd(zabs)

zinc = zia - prv_zia

]

if mi8$ = 0, pbld, n$, sgabsinc, e$

 

ptlchg0$ #Call from NCI null tool change (tool number repeats)

if op_id$ <> last_op_id,

[

rd_params$ # Read parameters - pparameter

pmisccheck

]

pcuttype

toolcount = toolcount + 1

prvtp = rbuf(3,toolcountp)

if toolcountn <= tooltotal, nexttool = rbuf(4,toolcountn)

else, nexttool = first_tool$

if (mi10$=one & (op_id$ <> last_op_id | (op_id$ = last_op_id & xform_op_id$ <> op_id$)))

| ((tlplnno$ <> prvtp | rotary_type$ <> last_rotary_type) & ret_on_indx), pstop

pcom_moveb

pcheckaxis #Check for valid rotary axis

c_mmlt$ #Multiple tool subprogram call

comment$

if op_id$ <> last_op_id,

[

spaces$=0

#if swcsplname <> snull, n$, pspc, scomm_str, "WCS NAME - ", swcsplname, scomm_end, e$

#if swcsplcomm <> snull, n$, pspc, scomm_str, "WCS COMMENT - ", swcsplcomm, scomm_end, e$

#if rot_on_x & stoolplname <> snull, n$, pspc, scomm_str, "TOOLPLANE NAME - ", stoolplname, scomm_end, e$

#if rot_on_x & stoolplcomm <> snull, n$, pspc, scomm_str, "TOOLPLANE COMMENT - ", stoolplcomm, scomm_end, e$

#if rot_on_x & sconstplname <> snull, n$, pspc, scomm_str, "CPLANE NAME - ", sconstplname, scomm_end, e$

#if rot_on_x & sconstplcomm <> snull, n$, pspc, scomm_str, "CPLANE COMMENT - ", sconstplcomm, scomm_end, e$

#if stpgrpname <> snull, n$, pspc, scomm_str, "TOOLPATH GROUP - ", stpgrpname, scomm_end, e$

#n$, pspc, scomm_str, "COMPENSATION TYPE - ", *scomp_type, scomm_end, e$

spaces$=sav_spc

]

pcan

if plane$ < 0, plane$ = 0

pbld, n$, sgplane, e$

pspindchng

if coolant$ <> 0 & coolant$ <> sav_coolant & sav_coolant, pbld, n$, sm09, e$

pbld, n$, scoolant, e$

sav_coolant = coolant$

if coolant$ = 1, sm09 = sm09_0

if coolant$ = 2, sm09 = sm09_1

if coolant$ = 3, sm09 = sm09_2

if op_id$<>last_op_id, pstock

if sav_mi9 = 1, workofs$ = sav_workofs

if (wcstype > one & workofs$ <> prv_workofs$) | (tlplnno$ <> prvtp),

[

if convert_rpd$ = 1 & gcode$ = 0,

[

gcode$ = 1

feed = maxfeedpm

ipr_type = 0

]

sav_absinc = absinc$

absinc$ = zero

pindex

if fmtrnd(prv_cabs) <> fmtrnd(cabs),

[

if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$

if mi8$ =0, pbld, n$, [if not(index), sgabsinc, pwcs], pfxout, pfyout, pfzout, pfcout, e$

if lock_codes = one & not(index) & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$

 

prapidout #Output to NC of linear movement - rapid

sav_gcode = gcode$

if convert_rpd$ = 1,

[

feed = maxfeedpm

gcode$ = 1

ipr_type = 0

]

pcan1, pbld, n$, sgplane, `sgcode, [if mi8$ = 0, sgabsinc], pccdia,

pxout, pyout, pzout, pcout, [if gcode$ = 1, `feed], strcantext, scoolant, e$

gcode$ = sav_gcode

 

pindex #Index output

if mi8$ = 0, if index, pbld, n$, sgabsinc, pwcs, e$

if index & rot_on_x,

[

if (prv_indx_out <> fmtrnd(indx_out)) | (prv_cabs <> fmtrnd(cabs)),

[

if lock_codes = 1 & rotretflg = 0, pbld, n$, *sunlock, sunlockcomm, e$

pbld, n$, [if use_rotmcode, *sindx_mc], *indx_out, e$

if lock_codes = 1 & cuttype = 0 & rotretflg = 0, pbld, n$, *slock, slockcomm, e$

!cabs, !cinc

]

]

---

That was as far as I got during lunch and had to get back to work. Not tested thoroughly, but I think that will make mpmaster do what you are after.

 

Oh yeah I defined sav_mi8 as 1 in the post as well.

 

HTH

[Guest]

Thanks Ron, I'll have another stab at it in the am