Mori Seiki lathe rigid tapping

[MSL]

Hi,

 I need to modify my Mori lathe post to not output spindle speed and direction when doing rigid tapping with live tooling. For drilling is fine, only need to do it when tapping. The post is from Mori Seiki post that comes with MasterCam.

( 1/2-13 TAP )

G20

M69

G99 M45

G28 H0.

G0 T0909

G18

M49

G0 G54 X8. Z.2

C0.

M8

G97 S130 M13    <---- take out S130 M13 from this line

M329 S130

G84 Z-.5 R.1 F.0769

C300.

C240.

C180.

 

 

Thank you.

 

[Colin Gilchrist]

You'll be looking inside 'mtlchg$' for Milling Tools, and 'ltlchg$' for Lathe Tools.

if nextdc$ <> three, pfspindle

Not sure exactly which output line and/or Post Block is being called to output the spindle, but once you find it, the "magic" variable is 'nextdc$'. A setting of 'three' indicates the "fourth" cycle in the list. (Zero-based Index)

[MSL]

Hi Colin,

mtlchg$ calls out prpm. I could not make it to work. probably need a refresher course. I will spend more time on it later. Thank you.

M8

G97 S130 M13    <---- change this line to G97, when tapping

M329 S130

G84 Z-.5 R.1 F.0769

C300.

 

prpm            #Output for start spindle

      speed = speedrpm

      if posttype$ = two,  #Lathe mode spindle

        [

        if speed = zero,

          pbld, n$, pfspindle_l, e$  #RPM = '0', output just an 'M05'

        else,

          pbld, n$, *sg97, *speed, pfspindle_l, pgear, e$

        ]

      else,    #Milling mode spindle

        [

        #result = nwadrs(strp, speed) #Different letter than 'S' for mill spindle?

        pbld, n$, *sg97, *speed, *spindle_m, e$

        result = nwadrs(strs, speed) #Reset to 'S' for next single speeed output

        ]

      !css_actv$ #Added (8/27/2002)

 

 

[MSL]

Thanks Colin, that  worked. Here is the modified post block.

else,    #Milling mode spindle

        [

        #result = nwadrs(strp, speed) #Different letter than 'S' for mill spindle?

            if nextdc$ = 3, *sg97, e$ ###Added this line  A.S.

          else,                       ###Added this line A.S.           

        pbld, n$, *sg97, *speed, *spindle_m, e$                

            result = nwadrs(strs, speed) #Reset to 'S' for next single speed output

        ]

      !css_actv$ #Added (8/27/2002)

 

 

 M69

G99 M45

G28 H0.

G0 T0909

G18

G0 G54 X8. Z.2

C0.

M8

G97     <---------

M329 S130

G84 Z-.5 R.1 F.0769

C300.

G80

M9

G28 U0. W0. H0.

T0900

M46

M30

%