ptlchg0下面和自动换刀前加什么能让一把刀下多个程序都生成程序头

xiaonen770 · 发表于 2015-12-9 18:24:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

ptlchg0下面和自动换刀前加什么能让一把刀下多个程序都生成程序头烦请大侠给发出来行不···

xiaonen770 · 发表于 2015-12-9 18:28:17

我是X6的下面贴出我现在的后处理
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$
      ]
   # pbld, n$, *smetric, e$
   pbld, n$, *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, e$
   pbld, n$, *sgcode, "G91", "G28", "Z0.", e$
   pbld, n$, *sgcode, *sgabsinc, "G54", "X-180.", 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$, sg92, *xh$, *yh$, *zh$, e$
      absinc$ = sav_absinc
      ]
   pcom_moveb
   pcheckaxis
   c_mmlt$ #Multiple tool subprogram call
   ptoolcomment
   comment$
   pcan
   nt = t$
   pbld, *nt, n$, *t$, sm06, e$
   next_tool$, e$
   pindex
   if mi1$ > one, absinc$ = zero
   pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout, e$
   [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
   pbld, n$, sg43, *tlngno$, pfzout, scoolant, e$
   absinc$ = sav_absinc
   pbld, n$, sgabsinc, e$
   pcom_movea
   toolchng = zero
   c_msng$ #Single tool subprogram call

ptlchg0$       #Call from NCI null tool change (tool number repeats)
   pcuttype
   toolchng0 = one
   pcom_moveb
   pcheckaxis
   c_mmlt$ #Multiple tool subprogram call
   comment$
   pcan
   result = newfs(15, feed)  #Reset the output format for 'feed'
   pbld, n$, sgplane, e$
   pspindchng
   pbld, n$, scoolant, e$
   if mi1$ > one & workofs$ <> prv_workofs$,
      [
      sav_absinc = absinc$
      absinc$ = zero
      pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e$
      pe_inc_calc
      ps_inc_calc
      absinc$ = sav_absinc
      ]
   if cuttype = zero, ppos_cax_lin
   if gcode$ = one, plinout
   else, prapidout
   pcom_movea
   toolchng0 = zero
   c_msng$ #Single tool subprogram call
   !xnci$, !ynci$, !znci$

ptlchg$       #Tool change
   pcuttype
   toolchng = one
   if mi1$ = one, #Work coordinate system
      [
      pfbld, n$, *sg28ref, "Y0.", e$
      pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
      ]
   if prog_stop = 1, pbld, n$, *sm01, e$
   if prog_stop = 2, pbld, n$, *sm00, e$
   pcom_moveb
   pcheckaxis
   c_mmlt$ #Multiple tool subprogram call
   pbld, n$, " ", e$
   pbld, n$, " ", e$
   pbld, n$, " ", e$
   ptoolcomment
   comment$
   pcan
   result = newfs(15, feed)  #Reset the output format for 'feed'
   pbld, n$, *sgcode, "G91", "G28", "Z0.", e$
   pbld, n$, *sgcode, *sgabsinc, "G54", "X-180.", e$
   nt = t$
   pbld, *nt, n$, *t$, sm06, e$
   next_tool$, e$
   pindex
   sav_absinc = absinc$
   if mi1$ > one, absinc$ = zero
   pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout, e$
   [if nextdc$ <> 7, *speed, *spindle], pgear, strcantext, e$
   pbld, n$, sg43, *tlngno$, pfzout, scoolant, e$
   absinc$ = sav_absinc
   pbld, n$, sgabsinc, e$
   pcom_movea
   toolchng = zero
   c_msng$ #Single tool subprogram call
   !xnci$, !ynci$, !znci$

pstagetool    #Pre-stage tools
   if stagetool = 1,
      [
      if ttblend$,  #Check for last toolchange
      [
      if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
      ]
      else, *next_tool$ #stage tool at every toolchange
      ]

pretract       #End of tool path, toolchange
   sav_absinc = absinc$
   absinc$ = one
   sav_coolant = coolant$
   coolant$ = zero

#    if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
      [                #  explicitely turned off through a canned text edit
      if all_cool_off,
      [
      #all coolant off with a single off code here
      if coolant_on, pbld, n$, sall_cool_off, e$
      coolant_on = zero
      ]
      else,
      [
      local_int = zero
      coolantx = zero
      while local_int < 20 & coolant_on > 0,
         [
         coolantx = and(2^local_int, coolant_on)
         local_int = local_int + one
         if coolantx > zero,
            [
            coolantx = local_int
            pbld, n$, scoolantx, e$
            ]
         coolantx = zero
         ]
      coolant_on = zero
      ]
      ]
   #cc_pos is reset in the toolchange here
   cc_pos$ = zero
   gcode$ = zero
   pbld, n$, sccomp, *sm05, psub_end_mny, e$
   pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$
   if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "Y0.", protretinc, e$
   else, pbld, n$, protretinc, e$
   absinc$ = sav_absinc
   coolant$ = sav_coolant

若枫 · 发表于 2015-12-9 19:25:48

pretract

ptlchg0$       #Call from NCI null tool change (tool number repeats)
  pretract
   pcuttype
   pcom_moveb
   pcheckaxis
   c_mmlt$ #Multiple tool subprogram call
   comment$
   pcan

账号		自动登录	找回密码
密码			立即注册

[求助] ptlchg0下面和自动换刀前加什么能让一把刀下多个程序都生成程序头

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

站长推荐 /2