post arc mod

[DavidB]

I need my post to force output for the X and Y values for G17, X,Z for G18 and Y,Z for G19

 

Post:

 

code:

---

 pcirout         #Output to NC of circular interpolation

if not(arccomp), pcompwarn

if fmtrnd(xabs) = prv_xabs & fmtrnd(yabs) = prv_yabs & fmtrnd(zabs) = prv_zabs,

[

if plane$ = zero, result = force(xabs,yabs) #force coordinate on full arc

if plane$ = one, result = force(yabs,zabs) #force coordinate on full arc

if plane$ = two,

[

result = force(xabs,xabs) #force coordinate on full arc

result = force(xabs,zabs) #force coordinate on full arc

]

]

if hel_2100 = one, pcirout2

else, pcirout1

 

pcirout1 #Output to NC of circular interpolation

pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,

pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e$

 

pcirout2 #Output to NC of circular interpolation

if (plane$ = zero & fmtrnd(zinc)<>0)

| (plane$ = one & fmtrnd(xinc)<>0)

| (plane$ = two & fmtrnd(yinc)<>0), phelout

else, pcirout1

---

The machine does not like an arc move without both co-ordinates posted.

 

 

code:

---

 N641 G02 X70.369 Y33.659 Z-4.549 I-59.277 J-126.055

N642 X72.114 Y32.599 Z-4.618 I-7.421 J-14.175

N643 X75.274 Y30.069 Z-4.751 I-10.492 J-16.341

N644 X77.868 Y26.977 Z-4.88 I-13.862 J-14.263

N645 X80.183 Y22.793 Z-5.028 I-20.043 J-13.827

N646 X80.801 Y21.156 Z-5.08 I-37.682 J-15.16

N647 X82.704 Y13.421 Z-5.35 I-38.3 J-13.523

N648 X83.647 Y-.301 Z-5.814 I-91.132 J-13.157

N649 Y-.659 Z-5.826 I-91.771 J.011 ----ALARM----

N650 X82.703 Y-13.421 I-91.77 J.369

---

If I insert the modal X83.647 into line N649 the machine runs.

 

Thanks

[alma999]

The simplest way:

code:

---

pcirout1        #Output to NC of circular interpolation

pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,

*pxout, *pyout, *pzout, pcout, parc, feed, strcantext, scoolant, e$

---

[DavidB]

Also teh G17 needs to go in after a G18,G19 arc.

 

code:

---

N78 G19 G02 Y-60. Z2.534 J0. K3.

N79 G00 Z8.132---NO G17??????

N80 X34.567 Y59.979

N81 Z7.534

N82 G01 Z2.534 F1500.

N83 X34.556 Y59.888 Z1.798

---

[DavidB]

code:

---

 pcirout1        #Output to NC of circular interpolation

pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,

*pxout, *pyout, *pzout, pcout, parc, feed, strcantext, scoolant, e$

---

Still not outputting the "X" on N641?

 

code:

---

 N633 G02 X70.369 Y33.659 Z-4.549 I-59.274 J-126.047

N634 X72.114 Y32.599 Z-4.618 I-7.421 J-14.175

N635 X75.274 Y30.069 Z-4.751 I-10.492 J-16.342

N636 X77.868 Y26.977 Z-4.881 I-13.863 J-14.264

N637 X80.184 Y22.793 Z-5.028 I-20.043 J-13.827

N638 X80.801 Y21.156 Z-5.08 I-37.682 J-15.16

N639 X82.704 Y13.421 Z-5.35 I-38.299 J-13.523

N640 X83.647 Y-.301 Z-5.814 I-91.132 J-13.158

N641 Y-.659 Z-5.826 I-91.771 J.011

N642 X82.703 Y-13.421 I-91.771 J.369

---

[alma999]

Check the phelout postblock!

[DavidB]

edited phelout

 

Posted code:

code:

---

N633 G02 X70.369 Y33.659 Z-4.549 I-59.274 J-126.047

N634 X72.114 Y32.599 Z-4.618 I-7.421 J-14.175

N635 X75.274 Y30.069 Z-4.751 I-10.492 J-16.342

N636 X77.868 Y26.977 Z-4.881 I-13.863 J-14.264

N637 X80.184 Y22.793 Z-5.028 I-20.043 J-13.827

N638 X80.801 Y21.156 Z-5.08 I-37.682 J-15.16

N639 X82.704 Y13.421 Z-5.35 I-38.299 J-13.523

N640 X83.647 Y-.301 Z-5.814 I-91.132 J-13.158

N641 Y-.659 Z-5.826 I-91.771 J.011

N642 X82.703 Y-13.421 I-91.771 J.369

---

Yuk!

 

forces XY and Z there must be a better way!

 

+ still no X on N641???? Strange

 

Cheers Dave

[Bryan Johnson]

modify pcirout1 to call an additional post block.

 

pcirout1 #Output to NC of circular interpolation

n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia, p_newblock, parc, feed, scoolant, e$

 

p_newblock # force

if plane$ = 0, pfxout, pfyout, pzout

if plane$ = 1, pfxout, pyout, pfzout

if plane$ = 0, pxout, pfyout, pfzout

[Bryan Johnson]

correction. that last line should read

 

if plane$ = 2, pxout, pfyout, pfzout #G19

[DavidB]

Bryan I inserted your info into my current pcirout1?

 

code:

---

 pcirout1        #Output to NC of circular interpolation

n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia, p_newblock, parc, feed, scoolant, e$

 

p_newblock #force

if plane$ = 0, pfxout, pyout

if plane$ = 1, pxyout, pzout

if plane$ = 2, pyxout, pzout

---

Code is a bit screwed now.

 

code:

---

 N631 G02 I-3.407 J-15.633

X67.131 Y35.095 N632 G01 X68.479 Y34.566 Z-4.479

N633 G02 I-59.273 J-126.046

X70.369 Y33.659 N634 I-7.421 J-14.175

X72.114 Y32.599 N635 I-10.492 J-16.342

X75.274 Y30.069 N636 I-13.863 J-14.264

X77.868 Y26.977 N637 I-20.043 J-13.827

X80.184 Y22.793 N638 I-37.682 J-15.16

X80.801 Y21.156 N639 I-38.299 J-13.523

X82.704 Y13.421 N640 I-91.132 J-13.158

X83.647 Y-.301 N641 I-91.771 J.011

X83.647 Y-.659 N642 I-91.771 J.369

X82.703 Y-13.421 N643 I-40.209 J5.79

X80.184 Y-22.79 N644 I-20.998 J8.874

X75.267 Y-30.073 N645 I-15.294 J15.729

---

The "N" is in the middle of the code?

 

Now the post is out putting the modal values so we are getting some where. I now have the modal X

83.647 on line N642

 

 

code:

---

 X83.647 Y-.301 N641 I-91.771 J.011

X83.647 Y-.659 N642 I-91.771 J.369

---

Cheers Dave

[DavidB]

Plese SHOOT me, so simple guys.

 

code:

---

 fs2 2   0.4 0.3n     #Decimal, absolute, 4/3 place 

---

Added the "n" to format statement 2 all good.

 

Cheers Dave