Jump to content

Welcome to eMastercam

Register now to participate in the forums, access the download area, buy Mastercam training materials, post processors and more. This message will be removed once you have signed in.

Use your display name or email address to sign in:

speed

mirek1017
 Share

Recommended Posts

mirek1017 Rising Star

mirek1017

Posted
Posted

I have question .I have old haas  post from X5 . Everything working nice ,but I want to change  one thing .I make make update for my mastercam 2017 

this is my program 

N1 ( 1/2 FLAT ENDMILL T1 , D1 , H1 , ACT DIA.= .5 )

T1 M6

G0 G90 G54 X-2.0404 Y-3.2717 S2500 M3

I wont to get speed in next line 

 

Can someone can pointing me haw change this inside mi post ??

 

thanks 

Link to comment
Share on other sites
mirek1017 Rising Star

mirek1017

Posted
  • Author
Posted

# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
psof0$           #Start of file for tool zero                        
      psof$

psof$            #Start of file for non-zero tool number             
      pcuttype
      toolchng = one
      if ntools$ = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool$
        ]
      "%", e$
      *progno$, "(", sprogname$, ")", e$
 #KUEI     "(PROGRAM NAME - ", sprogname, ")", e
      "(DATE= ", date$, " TIME= ", time$, ")", e$
  #    pbld, n, *smetric, e
      pbld, "G91 G28 Z0. M9", e$
      pbld, n$, *sgcode, *sgplane, "G40", *sgabsinc, e$
      *tseqno, ptoolcomment, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
        ]
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
  #    ptoolcomment
      comment$
      pcan
      if stagetool >= zero, pbld, n$, *t$, "M6", e$
      pindex
      if mi1$ > one, absinc$ = zero

      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        pcout, *speed, *spindle, pgear, strcantext, e$
      pbld, n$, "G43", *tlngno$, pfzout, next_tool$, e$
      pbld, n$, scoolant,e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call

 

 

 

in this section ???
 

Link to comment
Share on other sites
Guest

Guest

Posted
Posted

It should look something like this now 

pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$

you want it like this 

pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$n  [if nextdc$ <> 7, *speed, *spindle], e$

 

Link to comment
Share on other sites
crazy^millman Veteran

crazy^millman

Posted
Posted
Just now, JParis said:

It should look something like this now 


pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$

you want it like this 


pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$n  [if nextdc$ <> 7, *speed, *spindle], e$

 

 

That was only the psof$ he will need to do it with the ptlchg$ section also.

Link to comment
Share on other sites
mirek1017 Rising Star

mirek1017

Posted
  • Author
Posted
6 minutes ago, JParis said:

It should look something like this now 


pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$

you want it like this 


pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$n  [if nextdc$ <> 7, *speed, *spindle], e$

 

     *progno$, "(", sprogname$, ")", e$
 #KUEI     "(PROGRAM NAME - ", sprogname, ")", e
      "(DATE= ", date$, " TIME= ", time$, ")", e$
  #    pbld, n, *smetric, e
      pbld, "G91 G28 Z0. M9", e$
      pbld, n$, *sgcode, *sgplane, "G40", *sgabsinc, e$
      *tseqno, ptoolcomment, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
        ]
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
  #    ptoolcomment
      comment$
      pcan
      if stagetool >= zero, pbld, n$, *t$, "M6", e$
      pindex
      if mi1$ > one, absinc$ = zero

      pcan1,pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$n  [if nextdc$ <> 7, *speed, *spindle], e$ 


      pbld, n$, "G43", *tlngno$, pfzout, next_tool$, e$
      pbld, n$, scoolant,e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call

 

is the same thing I missing something 

Link to comment
Share on other sites
mirek1017 Rising Star

mirek1017

Posted
  • Author
Posted
4 minutes ago, JParis said:

pbld, n$n  [if nextdc$ <> 7, *speed, *spindle], e$ 

SHOULD BE

 

pbld, n$,  [if nextdc$ <> 7, *speed, *spindle], e$ 


      pcan1,pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$  [if nextdc$ <> 7, *speed, *spindle], e$ 

the same thing  

N2 ( 1/2 SPOTDRILL   T2 , D2 , H2 , ACT DIA.= .5 )
G91 G28 Z0. M9
T2 M6
G0 G90 G54 X1.5 Y-2.25 S1500 M3
G43 H2 Z2. T3
M8
G98 G81 Z-.05 R.1 F10.


 

Link to comment
Share on other sites
mirek1017 Rising Star

mirek1017

Posted
  • Author
Posted
7 minutes ago, JParis said:

Did you make the change in the ptlchg$  section as well, like ron pointed out...2 places to change it


ptlchg$          #Tool change                                        

      pcuttype
      toolchng = one
      if mi1$ = one, #Work coordinate system
        [
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        ]
      pbld, n$, "M1", e$
      *tseqno, ptoolcomment, e$
      pbld, "", e$
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
   #   ptoolcomment
      comment$
      pcan
      pbld, n$, *t$, "M6", e$
      pindex
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      pcan1,pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$  [if nextdc$ <> 7, *speed, *spindle], e$

 

?????
 

Link to comment
Share on other sites
mirek1017 Rising Star

mirek1017

Posted
  • Author
Posted

this is the one section 


ptlchg$          #Tool change                                        

      pcuttype
      toolchng = one
      if mi1$ = one, #Work coordinate system
        [
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        ]
      pbld, n$, "M1", e$
      *tseqno, ptoolcomment, e$
      pbld, "", e$
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
   #   ptoolcomment
      comment$
      pcan
      pbld, n$, *t$, "M6", e$
      pindex
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      pcan1,pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$  [if nextdc$ <> 7, *speed, *spindle], e$

 

and  the other  one 

# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
psof0$           #Start of file for tool zero                        
      psof$

psof$            #Start of file for non-zero tool number             
      pcuttype
      toolchng = one
      if ntools$ = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool$
        ]
      "%", e$
      *progno$, "(", sprogname$, ")", e$
 #KUEI     "(PROGRAM NAME - ", sprogname, ")", e
      "(DATE= ", date$, " TIME= ", time$, ")", e$
  #    pbld, n, *smetric, e
      pbld, "G91 G28 Z0. M9", e$
      pbld, n$, *sgcode, *sgplane, "G40", *sgabsinc, e$
      *tseqno, ptoolcomment, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
        ]
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
  #    ptoolcomment
      comment$
      pcan
      if stagetool >= zero, pbld, n$, *t$, "M6", e$
      pindex
      if mi1$ > one, absinc$ = zero

      pcan1,pbld, n$, *sgcode, pwcs, *sgabsinc, pfxout, pfyout, pgear, strcantext, e$
pbld, n$  [if nextdc$ <> 7, *speed, *spindle], e$ 


      pbld, n$, "G43", *tlngno$, pfzout, next_tool$, e$
      pbld, n$, scoolant,e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call
 

 


 

 

Link to comment
Share on other sites
Guest

Guest

Posted
Posted

As I suspected, you're either editing the wrong post or you  included the wrong post...

You files are a mess still referencing X6....cross pollinated badly 

psof$            #Start of file for non-zero tool number             
      pcuttype
      toolchng = one
      if ntools$ = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool$
        ]
      "%", e$
      *progno$, "(", sprogname$, ")", e$
 #KUEI     "(PROGRAM NAME - ", sprogname, ")", e
      "(DATE= ", date$, " TIME= ", time$, ")", e$
  #    pbld, n, *smetric, e
      pbld, "G91 G28 Z0. M9", e$
      pbld, n$, *sgcode, *sgplane, "G40", *sgabsinc, e$
      *tseqno, ptoolcomment, e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, "Z0.", e$
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
        ]
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
  #    ptoolcomment
      comment$
      pcan
      if stagetool >= zero, pbld, n$, *t$, "M6", e$
      pindex
      if mi1$ > one, absinc$ = zero

      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,   <<<<<<<<<<<
        pcout, *speed, *spindle, pgear, strcantext, e$  <<<<<<<<<<<<<<<<<<
      pbld, n$, "G43", *tlngno$, pfzout, next_tool$, e$
      pbld, n$, scoolant,e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call
ptlchg$          #Tool change                                        

      pcuttype
      toolchng = one
      if mi1$ = one, #Work coordinate system
        [
        pfbld, n$, *sg28ref, "X0.", "Y0.", e$
        pfbld, n$, "G92", *xh$, *yh$, *zh$, e$
        ]
      pbld, n$, "M1", e$
      *tseqno, ptoolcomment, e$
      pbld, "G91 G28 Z0. M9", e$
      pcom_moveb
      c_mmlt$ #Multiple tool subprogram call
   #   ptoolcomment
      comment$
      pcan
      pbld, n$, *t$, "M6", e$
      pindex
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,   <<<<<<<<<<<<<<
        pcout, *speed, *spindle, pgear, strcantext, e$ <<<<<<<<<<<<<<<<<<<<<
      pbld, n$, "G43", *tlngno$, pfzout, next_tool$, e$
      pbld, n$, scoolant,e$
      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call

You going to have to get your stuff situated properly

More than I can do here

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.

Join us!

eMastercam - your online source for all things Mastercam.

Together, we are the strongest Mastercam community on the web with over 56,000 members, and our online store offers a wide selection of training materials for all applications and skill levels.

Useful Links

Contact Info

Subscribe to eMastercam News

 

Legal

Privacy Policy

Store Terms & Conditions

Forum Guidelines

Follow us

×
×
  • Create New...