Post Modification Help

[TheePres]

Im attempting to hack together a post for Okuma Mill.

 

Need to insert G71 Z......., (with Z= initial clearance height) prior to a drilling cycle.

 

 

I have edited pdrill as below

 

 

Mt attempt gave me this result:

 

G0 G17 G90 G54 X-3. Y3. S2500 M3

G56 H2 Z1. M8

G94

G71 Z-.2  (***wrong Z)

M53

G98 G81 Z-.2 R.1 F10.

X3.

Y-3.

X-3.

G80

M9

G0 G90 Z20. M5

M1

 

 

pdrill$          #Canned Drill Cycle

      pdrlcommonb

      pbld, n$, "G71", pfzout, e$  (**what could I use instead of pfzout to capture original clearance plane**)

      pbld, n$, "M53", e$

      pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,

        prdrlout, [if dwell$, *dwell$], *feed, strcantext, e$

      pcom_movea

 

[Guest]

Format a variable

 

fmt   "Z"  2   z_height

pdrill$          #Canned Drill Cycle
      pdrlcommonb
      z_height = initht$
      pbld, n$, "G71", *z_height, e$
      pbld, n$, "M53", e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, pindexdrl,
        prdrlout, [if dwell$, *dwell$], *feed, strcantext, e$
      pcom_movea

[TheePres]

Worked like a charm...Thank you Bro

[Guest]

Your welcome!

[Colin Gilchrist]

By the way, if you request the Post Installation Program from your Reseller, you can install the Okuma P200 4X Mill post. This post has been customized for the Okuma control. There is also an earlier Okuma 4X Mill post as well.