UG后处理如何设置出R1~R3

15112701012 · 发表于 2020-2-7 11:53:13

请问各位大神如何将下面的指令设定进UG后处理
并可以转出进给 F=R1 F=R2 F=R3
=======================================

N39 R1= 1200 ; PLUNGE FEEDRATE

N40 R2= 1200 ; CUTTING FEEDRATE
N41 R3= 3000 ; RAPID SKIM FEEDRATE
=======================================

17625114620 · 发表于 2020-2-7 12:33:13

实在不行手动编辑记事本吧大哥行家呀~ 这是5轴手编宏程序还是五轴的机床系统程序？

sbtuuvj97 · 发表于 2020-2-7 17:28:43

后处理发过来我帮你改

白金* · 发表于 2020-2-21 12:24:01

global mom_kin_rapid_feed_rate
global mom_feed_approach_value
global mom_feed_cut_value
global mom_feed_departure_value
global mom_feed_engage_value
global mom_feed_first_cut_value
global mom_feed_rapid_value
global mom_feed_retract_value
global mom_feed_return_value
global mom_feed_stepover_value
global mom_feed_traversal_value
global mom_feed_rate
global controller
global dim mom_operation_type
global initial_approach
global initial_cut
global initial_departure
global initial_engage
global initial_first_cut
global initial_rapid
global initial_retract
global initial_return
global initial_stepover
global initial_traversal
global initial_sys_rapid

MOM_set_seq_off

if {[info exists mom_feed_approach_value]} {
   set mom_feed_approach_value  [format "%.${dim}f" $mom_feed_approach_value]
   if {![EQ_is_zero $mom_feed_approach_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q1=[format "%-25s %-0s" $mom_feed_approach_value ";approach_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R1=[format "%-25s %-0s" $mom_feed_approach_value ";approach_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #1=[format "%-25s %-0s" $mom_feed_approach_value "(approach_value)"]"
      }
      set initial_approach $mom_feed_approach_value
   }
}

if {[info exists mom_feed_cut_value]} {
   set mom_feed_cut_value    [format "%.${dim}f" $mom_feed_cut_value]
   if {![EQ_is_zero $mom_feed_cut_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q2=[format "%-25s %-0s" $mom_feed_cut_value ";cut_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R2=[format "%-25s %-0s" $mom_feed_cut_value ";cut_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #2=[format "%-25s %-0s" $mom_feed_cut_value "(cut_value)"]"
      }
      set initial_cut $mom_feed_cut_value
   }
}

if {[info exists mom_feed_departure_value]} {
   set mom_feed_departure_value [format "%.${dim}f" $mom_feed_departure_value]
   if {![EQ_is_zero $mom_feed_departure_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q3=[format "%-25s %-0s" $mom_feed_departure_value ";departure_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R3=[format "%-25s %-0s" $mom_feed_departure_value ";departure_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #3=[format "%-25s %-0s" $mom_feed_departure_value "(departure_value)"]"
      }
      set initial_departure $mom_feed_departure_value
   }
}

if {[info exists mom_feed_engage_value]} {
   set mom_feed_engage_value [format "%.${dim}f" $mom_feed_engage_value]
   if {![EQ_is_zero $mom_feed_engage_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q4=[format "%-25s %-0s" $mom_feed_engage_value ";engage_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R4=[format "%-25s %-0s" $mom_feed_engage_value ";engage_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #4=[format "%-25s %-0s" $mom_feed_engage_value "(engage_value)"]"
      }
      set initial_engage $mom_feed_engage_value
   }
}

if {[info exists mom_feed_first_cut_value]} {
   set mom_feed_first_cut_value [format "%.${dim}f" $mom_feed_first_cut_value]
   if {![EQ_is_zero $mom_feed_first_cut_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q5=[format "%-25s %-0s" $mom_feed_first_cut_value ";first_cut_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R5=[format "%-25s %-0s" $mom_feed_first_cut_value ";first_cut_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #5=[format "%-25s %-0s" $mom_feed_first_cut_value "(first_cut_value)"]"
      }
      set initial_first_cut $mom_feed_first_cut_value
   }
}

if {[info exists mom_feed_rapid_value]} {
   set mom_feed_rapid_value    [format "%.${dim}f" $mom_feed_rapid_value]
   if {![EQ_is_zero $mom_feed_rapid_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q6=[format "%-25s %-0s" $mom_feed_rapid_value ";rapid_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R6=[format "%-25s %-0s" $mom_feed_rapid_value ";rapid_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #6=[format "%-25s %-0s" $mom_feed_rapid_value "(rapid_value)"]"
      }
      set initial_rapid $mom_feed_rapid_value
   }
}

if {[info exists mom_feed_retract_value]} {
   set mom_feed_retract_value [format "%.${dim}f" $mom_feed_retract_value]
   if {![EQ_is_zero $mom_feed_retract_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q7=[format "%-25s %-0s" $mom_feed_retract_value ";retract_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R7=[format "%-25s %-0s" $mom_feed_retract_value ";retract_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #7=[format "%-25s %-0s" $mom_feed_retract_value "(retract_value)"]"
      }
      set initial_retract $mom_feed_retract_value
   }
}

if {[info exists mom_feed_return_value]} {
   set mom_feed_return_value [format "%.${dim}f" $mom_feed_return_value]
   if {![EQ_is_zero $mom_feed_return_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q8=[format "%-25s %-0s" $mom_feed_return_value ";return_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R8=[format "%-25s %-0s" $mom_feed_return_value ";return_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #8=[format "%-25s %-0s" $mom_feed_return_value "(return_value)"]"
      }
      set initial_return $mom_feed_return_value
   }
}

if {[info exists mom_feed_stepover_value]} {
   set mom_feed_stepover_value  [format "%.${dim}f" $mom_feed_stepover_value]
   if {![EQ_is_zero $mom_feed_stepover_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q9=[format "%-25s %-0s" $mom_feed_stepover_value ";stepover_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R9=[format "%-25s %-0s" $mom_feed_stepover_value ";stepover_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #9=[format "%-25s %-0s" $mom_feed_stepover_value "(stepover_value)"]"
      }
      set initial_stepover $mom_feed_stepover_value
   }
}

if {[info exists mom_feed_traversal_value]} {
   set mom_feed_traversal_value [format "%.${dim}f" $mom_feed_traversal_value]
   if {![EQ_is_zero $mom_feed_traversal_value] } {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q10=[format "%-24s %-0s" $mom_feed_traversal_value ";traversal_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R10=[format "%-24s %-0s" $mom_feed_traversal_value ";traversal_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #10=[format "%-24s %-0s" $mom_feed_traversal_value "(traversal_value)"]"
      }
   } else {
      if { [string match "heidenhain" $controller] } {
         MOM_output_literal " FN 0: Q10=[format "%-24s %-0s" Q11 ";no set traversal_value"]"
      } elseif {[string match "sinumerik" $controller] } {
         MOM_output_literal " R10=[format "%-24s %-0s" R11 ";no set traversal_value"]"
      } elseif {[string match "fanuc" $controller] } {
         MOM_output_literal " #10=[format "%-24s %-0s" #11 "(no set traversal_value)"]"
      }
   }
   set initial_traversal $mom_feed_traversal_value
}

set mom_kin_rapid_feed_rate  [format "%.${dim}f" $mom_kin_rapid_feed_rate]
if { [string match "heidenhain" $controller] } {
   MOM_output_literal " FN 0: Q11=[format "%-24s %-0s" $mom_kin_rapid_feed_rate ";system_rapid_value"]"
} elseif {[string match "sinumerik" $controller] } {
   MOM_output_literal " R11=[format "%-24s %-0s" $mom_kin_rapid_feed_rate ";system_rapid_value"]"
} elseif {[string match "fanuc" $controller] } {
   MOM_output_literal " #11=[format "%-24s %-0s" $mom_kin_rapid_feed_rate "(system_rapid_value)"]"
}
set initial_sys_rapid $mom_kin_rapid_feed_rate

放在：proc MOM_initial_move { } { ;#初始移动

白金* · 发表于 2020-2-21 12:27:49

global mom_kin_rapid_feed_rate
global mom_feed_approach_value
global mom_feed_cut_value
global mom_feed_departure_value
global mom_feed_engage_value
global mom_feed_first_cut_value
global mom_feed_rapid_value
global mom_feed_retract_value
global mom_feed_return_value
global mom_feed_stepover_value
global mom_feed_traversal_value
global mom_feed_rate
global feed_value
global controller
global dim

set feed_value $mom_feed_rate
set feed_value [format "%.${dim}f" $feed_value]

if {[info exists mom_feed_approach_value]} {
   if {$feed_value == $mom_feed_approach_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q1"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R1"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#1"
      }
   }
}

if {[info exists mom_feed_cut_value]} {
   if {$feed_value == $mom_feed_cut_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q2"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R2"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#2"
      }
   }
}

if {[info exists mom_feed_departure_value]} {
   if {$feed_value == $mom_feed_departure_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q3"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R3"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#3"
      }
   }
}

if {[info exists mom_feed_engage_value]} {
   if {$feed_value == $mom_feed_engage_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q4"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R4"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#4"
      }
   }
}

if {[info exists mom_feed_first_cut_value]} {
   if {$feed_value == $mom_feed_first_cut_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q5"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R5"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#5"
      }
   }
}

if {[info exists mom_feed_rapid_value]} {
   if {$feed_value == $mom_feed_rapid_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q6"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R6"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#6"
      }
   }
}

if {[info exists mom_feed_retract_value]} {
   if {$feed_value == $mom_feed_retract_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q7"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R7"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#7"
      }
   }
}

if {[info exists mom_feed_return_value]} {
   if {$feed_value == $mom_feed_return_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q8"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R8"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#8"
      }
   }
}

if {[info exists mom_feed_stepover_value]} {
   if {$feed_value == $mom_feed_stepover_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q9"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R9"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#9"
      }
   }
}

if {[info exists mom_feed_traversal_value]} {
   if {$feed_value == $mom_feed_traversal_value} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q10"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R10"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#10"
      }
   }
}

if {[info exists mom_kin_rapid_feed_rate]} {
   if {$feed_value == $mom_kin_rapid_feed_rate} {
      if { [string match "heidenhain" $controller] } {
         set feed_value "Q11"
      } elseif {[string match "sinumerik" $controller] } {
         set feed_value "=R11"
      } elseif {[string match "fanuc" $controller] } {
         set feed_value "#11"
      }
   }
}

放在：proc PB_CMD_before_motion { } {

白金* · 发表于 2020-2-21 12:30:38

以上代码，需要自己根据需要修改！

用户名		自动登录	找回密码
密码			立即注册

[求助] UG后处理如何设置出R1~R3

相关帖子