LEAVE ON WALL WARNING

[PcRobotic]

Hello everyone,
   I'm trying to write a warning for LEAVE STOCK ON WALL but I failed, please help and I truly appreciated.

Under...

# --------------------------------------------------------------------------
#Region Cutter Compensation Type
# --------------------------------------------------------------------------
# Cutter Compensation Type
scomp   : "COMPUTER"
scomp1  : "CONTROL COMP"
scomp2  : "WEAR COMP"
scomp3  : "REVERSE WEAR COMP"
scomp4  : "OFF"
scomp_type : ""

fstrsel scomp comp_type scomp_type 5 -1
#EndRegion

# --------------------------------------------------------------------------

#Region Pop-up common toolchange errors
ptlchg_errorpop #Pop-up common toolchange errors

    if comp_type = 4 & (opcode$ =4 & stock <> 0), [if mprint(sMultiPasses, 2) = 2, exitpost$]
#EndRegion

# --------------------------------------------------------------------------

#Region CUSTOMED STRING

sMultiPasses: 0
#EndRegion
# --------------------------------------------------------------------------

#Region sMultiPasses                                                                                           
sMultiPasses = "CUT# "+sToolPathNumber+", You CANNOT have COMPENSATION OFF and LEAVING ON WALL AT THE SAME TIME"
               +no2asc(13)+"TOOL#"
               +no2str(t$)+" ("+no2str(tldia$)+", "+s20001+")"
               +no2asc(13)
               +no2asc(13)+"Feed Rate: "+no2str(feed)+ " ***** #Teeth x Chip Load x RPM"
               +no2asc(13)+"RPM: "+no2str(speed)+" ***** (SFM x 3.82) / Tool Dia"
               +no2asc(13)+"SFM: "+no2str(sfm)+" ***** .26 x RPM x Tool Dia"
               +no2asc(13)+"ChipLoad: "+no2str(fpt)+" ***** Feed Rate (RPM x Flutes)"
               +no2asc(13)+"Do these following steps to fix it:"
               +no2asc(13)+"Step 1 = click on PARAMETERS"
               +no2asc(13)+"Step 2 = click on CUT PARAMETERS tap"
               +no2asc(13)+"Step 3 = look for COMPENSATION TYPE"
               +no2asc(13)+"Step 4 = change from COMPENSATION TYPE to a DESIRABLE one if needed"
               +no2asc(13)
               +no2asc(13)
               +no2asc(13)+"THIS IS SERIOUS STUFF, IT MUST BE FIXED ASAP!!!"
               +no2asc(13)
               +no2asc(13)+"Click OK to go back to MASTERCAM to fix this issue NOW!!!"
#EndRegion

[nickbe10]

I use pstock$ calls to tell leave stock condition for all toolpaths in the op comments, I think I had to add a couple of parameter extractions to get it to work for ALL toolpaths.

[wdg5555]

I did something similar to this awhile back. I remember thinking I did something that could have been done better but I don't remember what it is right now. Below is the code I added to my post. It doesn't say Leave stock. But at the beginning of each toolpath it lists the stock left that is programmed into mastercam. You can adjust from there. 

Here is what the beginning of my toolpaths look like.

N1( 1/2 FLAT ENDMILL  - T1 - D1 - H1 - .5)
(Control) (XY Stock .005) (Z Stock 0.)

 

In the variables section add below

fmt "XY Stock " 2 xystockwdg
fmt "Z Stock " 2 zstockwdg

 

Under psof section add below

 

       if opcode$ < 3 | opcode$ > 3 & opcode$ < 14 | opcode$ > 17,
        [
         rd_prm_op_no$ = op_id$
         rd_params$
         "(", *scomp_type, ") (", *xystockwdg, ") (", *zstockwdg, ")", e$
        ]

 

Under pparameter add below

      if prmcode$ = 10010, xystockwdg = rpar(sparameter$, 1)
      if prmcode$ = 10068, zstockwdg = rpar(sparameter$, 1)