分享方中外挂的外部程序单工具

屁颠屁颠

具体用发看图
此外挂需要定制自己的后处理器，添加一些指定代码


原文
如果你的后处理无法正常出程式单，那么请复制下边的[代码]到你正在使用的后处理XXX.tcl文件尾部并在相关位置加入
PB_CMD_zhong
PB_CMD_zhong2
例如:你的不是自动换刀带刀库后处理,修改如下（注:...为其它代码）
找到PB_start_of_program项，加入代码
#=============================================================
proc PB_start_of_program { } {
#=============================================================
PB_CMD_zhong
PB_CMD_zhong2
...
...
}

例如:你的是自动换刀带刀库后处理,修改如下（注:...为其它代码）
找到proc PB_auto_tool_change 项，加入代码
#=============================================================
proc PB_auto_tool_change { } {
#=============================================================
PB_CMD_zhong
PB_CMD_zhong2
...
...
}


代码：
#=============================================================
proc PB_CMD_zhong { } {
#=============================================================
#  
global mom_inside_outside_tolerances mom_tool_adjust_register
global intol
    if {[format "%0.3f" $mom_inside_outside_tolerances(0)] >= 0.022 } {
           set intol ";(--------开粗--------)"
       } else {
           set intol ";(--------光刀--------)"
}
MOM_output_literal   "$intol"
}
#=============================================================
proc PB_CMD_zhong2 { } {
#===========================================================
global mom_tool_name
global mom_tool_diameter
global  mom_tool_corner1_radius
global  mom_tool_length
global  mom_tool_adjust_register
MOM_output_literal ";( 刀具名称=[format $mom_tool_name] 直径=[format "%0.2f" $mom_tool_diameter] R角=[format "%0.1f" $mom_tool_corner1_radius] 直身=[format "%0.1f" $mom_tool_length] 补正号=[format  $mom_tool_adjust_register])"
   
  }

屁颠屁颠

cdh.2007

happychen69

zxnick

admiw

钟贞语

wupengcheng

屁颠屁颠

风扬天上