BEFORE   OEM PST

FIND

     PARC         #select the arc output

     if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [
   
        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
        # remove the "*" asterisks on the *i, *j, *k 's below...
       if plane$ = zero, *iout, *jout, kout #XY plane code - G17 <-------------------- here
       if plane$ = one, iout, *jout, *kout  #YZ plane code - G19<---------------here
       if plane$ = two, *iout, jout, *kout  #XZ plane code - G18 <-------------------here
        !i$, !j$, !k$ <-------------------- here
        ]
      else,
        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]

BLOCK OR DELETE ALL  I J K

 AFTER

     if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [

            #Arc output for R  ##########REPLACE  IJK  FOR  R  copy paste ##############################################
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$


        #Arc output for IJK ##################################### BLOCK IJK    OR DELETE
        # If you do NOT want to force out the I,J,K values,   
        # remove the "*" asterisks on the *i, *j, *k 's below...
   #     if plane$ = zero, *iout, *jout, kout #XY plane code - G17  <-------------  block or delete
    #    if plane$ = one, iout, *jout, *kout  #YZ plane code - G19<----------------------block or delete
    #    if plane$ = two, *iout, jout, *kout  #XZ plane code - G18<-----------------------block or delete
    #    !i$, !j$, !k$ <----------------------block or delete
        ]
      else,
        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]

 it works for me

CAD FILE OR POST FILE    SW MASTERCAM X9

i have try that but it still post out go after  g01 with feedrate

N313 G3 X-1.3854 C.8864 R1.5124
N314 G2 G40 X-1.4776 C.8737 R.0626
N315 G1 Z.1295 F50. ----------------------------------- box rapid retract uncheck
N316 G0 Z.1795 ,**********  still post out G0 rapid for clearance
N317 X-1.1718 C.9853
N318 G1 Z-.341 F6.42

hi  need help on   C AXIS  FACE MILL CONTOUR POLAR MILLING

CHANGE RAPID MOVE TO LINEAR MOVE ONLY IN  FACE MILL CONTOUR

IN TURNING STILL USE G0

prapidout       #Output to NC, linear movement - rapid
      if lathecc = zero,
        [
        if millcc_flag & (abs(cuttype) = four | abs(cuttype) = two) & cutpos2$ = zero,
          [
          if abs(cuttype) = four,
            [
            pcan1, pbld, n$, pexct, psgcode, pcout,   e$
            pbld, n$, pexct, pxout, pyout, pzout, pscool, strcantext,  e$
            ]
          ]
        else,
          [
          pcan1, pbld, n$ ,psgcode, pexct,  psccomp, pwcs, pxout, pyout,<---------
          pzout, pcout, pscool, strcantext, e$#psgcode,######NOTE  RAPID MOVE  #########################

IF I CHANGE PSGCODE, TO  "G01"  IT REPLACE ALL THE G0 T0 G01,

UNFORTUNATELY; I don;t want that , need g01 only in face mill contour

(T5 OFFSET - 0 1/4 FLAT ENDMILL)
N295 G0 T0505
N296 M43
N297 M111
N298 G97 S2139
N299 G0 G28 H0
N300 G0 G98 X-1.1718 Z.45
N301 C0.
N302 G112
N303 G1 X-1.1718 Z-.0705 C.9853 F6.42
N304 G2 G42 X-1.2234 C.945 R.0625
N313 G3 X-1.3854 C.8864 R1.5124
N314 G2 G40 X-1.4776 C.8737 R.0626

N315 G0 Z.1795<------------------------------------  RAPID MOVE GO TO  G01 Z.1785 F200. WITH FEEDRATE

N316 X-1.1718 C.9853
N317 G1 Z-.341
N318 G2 G42 X-1.2234 C.945 R.0625

thanks you

hi  need help how to out put  "  character

example character  in red
N11 T1 M6 ; 1/2 FLAT END MILL
N12 h1
N13 S16000 M3
N14 ;M59
N15 ;M61
N16 ( DIS," ******* MAX DEPTH =  Z-.125 *****' " ) <<<<<<<<<<<<<<

N17 G0 X.0085 Y-.0617
N18 Z.25
N19 G1 X.0076 Y-.0568 F150.

THANKS YOU   Cathedral.

 it work

THE operator got use to      NAT

I TRY UNFORNTUNATLY,  IT COME OUT  NAT0001

fmt  "NAT" 7  toolno1      #Tool number

  toolno = t$ * 100 + tloffno$
          toolno1 = t$   #t$   ####  MOD  ADD LINE ****
          *
          ptoolcomment
       # pbld, n$,"G00","X20.","Z31.5"  e$
           pbld, n$,toolno1  e$

%
(PROGRAM NAME = 10-32 FLEX ARM TAP)
(  OKUMA 2 AXIS *JR*- DATE -  APR.   21.  2015 )
G00 X20. Z31.5
G50  S1800
( NAT00
CALL OLOAD )
M01
( *** TOOLIST****  )
(TOOL = 1 OFFSET - 1. OD FINISH RIGHT - 35 DEG.)
(TOOL = 3 OFFSET - 3. DRILL .159 DIA.)
(TOOL = 2 OFFSET - 2. .125 THK GROOVE CUTOFF)
(TOOL = 1 OFFSET - 1)
(OD FINISH RIGHT - 35 DEG.  INSERT - NONE)
NAT0001  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  it  should be  NAT01   HELP PLEASE
N1 G0 T0101 M42
M8
G97 S1500 M03
( ******************* FACE*************** )
G0 X1.2 Z.02
G50 S1500
G96 S1000
G99 G1 Z0. F.005
X-.0313
Z.1
G0 Z.2

YES

HI  need help how to add this line   NAT04

DEF WORK
PS LC,[0,0],[0,0]
END
DRAW
N002G00 X20 Z31.5
N003 G50 S1800
(NAT00
CALL OLOAD)
N004 M01
N005G00 X20 Z31.5
NAT04    <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ADD THIS  LINE
N006 G97 S1000 M42 M03 M08
N007 (****************** FACE **************)
N008 X1.168 Z0 T040404
N009 G97 S1000
N010 G01 X-.132 F.005
N011 Z.05
N012 G00 X19.968 Z19.984

please help

mastercam  prompt when post out

enter pivot length tool for T2

4.775
 

 

i just want to add  pivot length  out put  in the toolist  

(T2|1/4 FLAT ENDMILL |H2|D2|| DIA-.25 | *** PIVOT  LENGHT =4.755 * **)

IN THE TOOLIST 

ORIGNAL POST OUT

(T1|1/8 FLAT ENDMILL |H1|D1||TOOL DIA. - .125   )

I WANT TO ADD IN   ** PIVOT LENGHT **  FOR EACH TOOL

(T1|1/8 FLAT ENDMILL |H1|D1||TOOL DIA. - .125  , PIVOT  LENGHT =4.5 )

 hi all  i  edit a generic   5axis post  b/c head/ head config  FOR MACH 3

i would like the  fq 2 toolength "Enter pivot length included tool for  //t$//"

use_tlength  : 2     #Use tool length, read from tool overall length  #0---- CHANGE
                     #0=Use 'toollength' var, 1=Mastercam OAL, 2=Prompt

out put   in the header

ex

(T1|1/8 FLAT ENDMILL |H1|D1||TOOL DIA. - .125   PIVOT  LENGHT =4.5 )

(T2|1/4 FLAT ENDMILL |H2|D2|| DIA-.25  PIVOT  LENGHT =4.755 )

IF PIVOT LENGH ENTER =4.5  THAN = 4.5 IN

IF TOOL 2  PIVOT LENGHT ENTER = 4.755= THAN= 4.755

WHEN IT PROMPT ENTER PIVOT LENGHT

thanks you.  

hi we  a  milltronics cent 1 and cent iv control

on the drill and tap it   position it diffrent than fanuc.

ex

N1137 G0 G90 G54 X-5.3548 Y3.0783 S1800 M03
N1138 G43 H6 Z1.
N1139 G98 G81 Z-.4 R.2 F15.625
N1140 X-5.1131 Y2.1856

G80

it should drill 2 holes; however; on the   milltronics cent 1 and cent iv

it rapid  to  X-5.3548 Y3.0783  (skip to the next hole )

X-5.1131 Y2.1856

and drill only 1 hole

it only works if i have dulpicated position

ex

N1137 G0 G90 G54 X-5.3548 Y3.0783 S1800 M03
N1138 G43 H6 Z1.
N1139 G98 X-5.3548 Y3.0783 G81 Z-.4 R.2 F15.625      ( duplicate  X-5.3548 Y3.0783)
N1140 X-5.1131 Y2.1856

G80

pdrill$          #Canned Drill Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, *pxout, *pyout, pfzout,     #  ( force out    *pxout, *pyout  ) and it not coming out
        prdrlout, dwell$, *feed, strcantext, e$

thanx you. i use the 2 check box for plunge . it works ,close enough

yeah, i know it crazy, however; it work on this  old controler

cms router. allen bradley (osai)  10feet x 6 feet table 2 head twin spindle .  program written to the center, we use machine comp

for ex; 6 x 4 rectangle 

t1m6

s18000 m03

h1                    ( h= height offset "z" and  tool dia offset "D" )

go g42 x-.1 y0.

g0 z.2

g1 z-.25   f30.

x6. f150.

y4.

x0 .

y0.

g0 z.2

g40

we use machine comp  if t1=.5 dia   offset tool table  dia =.5

this control it old, the   offset tool  parameter it  take positive # only can't be - (negative )

if the part  come out  .01 bigger , in the tool table offset  can't  take  negative number.

if program to the ( computer ) comp.

we array and nest alot of pcs . we comp in rapid move before enter the  g01 plunge

that why we  program to the center of the part  and use machine comp.

if  the part .01 bigger , we adjust offset tool talbe.   offset dia=.49

yes, i had been teach  different way, im new at this company have to fallow their rule.

they use  camworks  and their post come exactly what they requested .  im a mastercam  (new seat)

try to write the post to  match their post.

HELP  PLEASE

hi it there a way to force  G COMP ON RAPID MOVE

N19 G00 G42 X1.2813 Y13.   **  G COMP 42 OR 41
N20 G00 Z.2
N21 G01 Z0 F30.
N22 G01 X.7813 Y13. F150.
N23 G02 X-.2188 Y14. R1.
N24 G03 X-27.7813 R-13.7813
N25 G03 X-.2188 R-13.7813
N26 G01 X-.2161 Y14.15
N27 G00 Z.2
N28 G40

I TRY TO FORCE OUT , however  IT ONLY COME OUT G40

 pcan1, pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, pwcs,*sccomp, pfxout, pfyout, pfcout, e$  # first rapid fr tool change