请教版大多功能后处理修改疑问

g911911 · 发表于 2024-7-29 19:31:00

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

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

×

我想在Mastercam 当有磨损补偿或者控制器补偿的时候输出#12001和#13001，可这个代码在X9默认后处理时有效，在版主的那个多功能后处理就完全没效。我怀疑是不是我放错了地方。
后处理就是版主的那个经典全功能后处理2022版
ptlchg_com    #Tool change common blocks
   if force_output | sof,
      [
      result = force(ipr_type,ipr_type)
      result = force(absinc$,absinc$)
      result = force(plane$,plane$)
      ]
   pcom_moveb
   pcheckaxis    #Check for valid rotary axis
   if sof, uninhibit_probe$
   c_mmlt$ #Multiple tool subprogram call
   if sof & scomm_sav <> snull,
      [
      spaces$ = 0
      n$, pspc, scomm_str, *scomm_sav, scomm_end, e$
      spaces$ = sav_spc
      ]
   if sof = 0, scomm_sav = snull
   comment$
   ptoolcomment
   pcomment3
   pmisccheck
   pcan
   spaces$=0
   if output_z = yes$,
      [
      preadbuf5
      if (opcode$ > 0 & opcode$ < 16) | opcode$ = 19,
      [
      n$, pspc, scomm_str, "Max=", *max_depth,"|""Min=", *min_depth, scomm_end, e$
   ]
      ]
   spaces$=sav_spc
   pstock_surf
   if plane$ < 0 | opcode$ = 3 | opcode$ = 16, plane$ = 0
   sav_absinc = absinc$

   if wcstype > one, absinc$ = zero
   if stagetool >= zero,
      [
      if omitseq$ = 1 & tseqno > 0,
      [
      if tseqno = 2, n$ = t$
      pbld, *t$, "M06",e$
   if custom1_sd = 0, pbld, ptera,e$
      ]
      else,
   pbld, *t$, "M06",e$
   if custom1_sd = 0, pbld, ptera,e$
      ]

if cc_pos$ <> 0 ,  pltera

   pindex
   if safe_index,
      [
      if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$
      pbld, n$, pgear, e$
      pcan1, pbld, n$, *sgcode, sgplane, [if not(index), sgabsinc, pwcs], pfcout, strcantext, e$
      if lock_codes = one & not(index) & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$
      if convert_rpd$ = one,
      [
      gcode$ = one
      feed = maxfeedpm
      ipr_type = zero
      ]
      pbld, n$, sgcode, [if gcode$ = 1, sgfeed], pfxout, pfyout, pfspindleout, [if gcode$ = 1, *feed], e$
      ]
   else,
      [
      if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$
      if convert_rpd$ = one,
      [
      gcode$ = one
      feed = maxfeedpm
      ipr_type = zero
      ]
pcan1, pbld, n$,[if not(index), sgabsinc, pwcs], [if gcode$ = 1, sgfeed], sgplane,"G80",,"G40",e$
               n$,*sgcode,pfcout, pfxout, pfyout,e$
                  n$,pfspindleout, [if gcode$ = 1, *feed], strcantext, e$
      if lock_codes = one & not(index) & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$
      ]
   phsm1_on       #must remain before G43
   pbld, n$, scoolant,e$
   pbld, n$, "M08",e$
   pbld, n$, "G43", *tlngno$, pfzout,e$
   if custom1_sd = 0, pbld, n$, "M303",e$
   if custom1_sd = 0, pbld, "G05 P10000",e$


   pltera
      spaces$ = 0
      pname=13000+t$
      pnamer=12000+t$
      pbld,"#",pnamer,"=0", e$
      pbld,"#",pname,"=0", e$
      spaces$=sav_spc

------------M06下面的那句  if cc_pos$ <> 0 ,  pltera 完全不生效，块我都已经定义好了

我想达到的效果就是
O100
(调试)
(BY  - Guo Jia)
(DATE- 2024-07-29)
(TIME- 19:28)
(T=4|D=30|r=5.0|L=100.0|ID=30DES)
(T=3|D=17|r=0.8|L=100.0|ID=17DES)
(T=1|D=10|r=0.5|L=75.0|ID=10DES)
(Max=Z+100.|Min=Z-3.)
(===================================)
(30DES-分层整圆)
(T=4|D=30|r=5.0|L=100.0|ID=30DES)
(Max=Z+100.|Min=Z-3.)
(Yu.Liang|Z=+0.|XY=+0.)
T4 M06
H#544 D#544
G400 D30 R5.0 S2000 X5. Y1.
G90 G54 G17 G80 G40
G00 X-35. Y+0.
M03 S2000
M08
G43 H4 Z+100.
M303
G05 P10000
Z+5.
G01 Z-1. F2000
G03 I35. J0.

M01

(17DES-分层有刀补)
(T=3|D=17|r=0.8|L=100.0|ID=17DES)
(Max=Z+100.|Min=Z-1.)
(Yu.Liang|Z=+0.|XY=+0.)
T3 M06
H#544 D#544
G400 D17 R0.8 S1000 X5. Y1.
#12003=0
#13003=0
G90 G54 G17 G80 G40
G00 X+99. Y+0.
M03 S1000
M08
G43 H3 Z+100.
M303
G05 P10000
Z+5.
G01 Z-1. F500
G41 D3 Y-1. F1000
G03 X+100. Y+0. I0. J1.

M01

(17DES-螺旋有刀补)
(T=1|D=10|r=0.5|L=75.0|ID=10DES)
(Max=Z+100.|Min=Z-1.)
(Yu.Liang|Z=+0.|XY=+0.)
T1 M06
H#544 D#544
G400 D10 R0.5 X5. Y1.
#12001=0
#13001=0
G90 G54 G17 G80 G40
G00 X+99. Y+0.
M03 S1000
M08
G43 H1 Z+100.
M303
G05 P10000
Z+5.
G01 Z+0. F500
G41 D1 Y-1. F1000
G03 X+100. Y+0. I0. J1.

M30
%

g911911 · 发表于 2024-7-29 19:32:42

pltera
      spaces$ = 0
      pname=13000+t$
      pnamer=12000+t$
      pbld,"#",pnamer,"=0", e$
      pbld,"#",pname,"=0", e$
      spaces$=sav_spc

g911911 · 发表于 2024-7-29 19:36:45

最好是控制器补偿的时候输出另一个自定义补偿代码，磨损补偿的时候输出我现在定义的这个#12000与#13000系列。因为是带激光对刀仪的，要用补偿怕小徒弟不小心把半径自动测量进去那就搞大了。至于控制器补偿，那是因为海德汉系统在用补偿的时候，比较恶心。手动去改R不允许。后处理判断当前路径是否有磨损补偿或者控制器之类的补偿是那个代码了？

yan · 发表于 2024-7-29 19:56:45

帮顶帮顶帮顶

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

[求助] 请教版大多功能后处理修改疑问

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

站长推荐 /2