更新后处理显示刀补和余量信息的代码

张思颖

只针对小白，大神勿喷，毕竟我自己也是个小白，之前分享的代码有BUG， 今天闲着没事用AI试试修改，结果还真的可以，下面分享出来，希望能帮到有用的人



# 输出刀补(D.N)  余量（XY  Z)

# 全局变量声明
global mom_operation_type             # 点对点或钻孔操作  当前加工类型的名称
global mom_stock_part                 # 部件侧面余量
global mom_stock_floor                # 部件底面余量
global mom_tool_cutcom_register       # 刀具直径补偿寄存器
global mom_stock_part_use             # 使底面余量与侧面余量一致（0 = off, 1 = on）


# 余量同步与初始化
if {[info exists mom_stock_part_use] && $mom_stock_part_use} {
    set mom_stock_floor $mom_stock_part
}
set mom_stock_floor [expr {[info exists mom_stock_floor] ? $mom_stock_floor : 0}]

# 刀补抑制判断
if {[info exists mom_tool_cutcom_register] && $mom_tool_cutcom_register == 0} {
    set suppress_td 1
}

# 格式化输出
if {$mom_operation_type ni {"Point to Point" "Drilling"}} {
    set fmt "%.3f"
   
    # 处理 XY 余量
    set xy [string trimright [format $fmt $mom_stock_part] {0.}]
    if {$xy eq ""} { set xy "0." }
   
    # 处理 Z 余量
    set z [string trimright [format $fmt $mom_stock_floor] {0.}]
    if {$z eq ""} { set z "0." }
   
    # 生成消息内容
    set msg [expr {[info exists suppress_td] && $suppress_td ?
        "XY=$xy mm Z=$z mm" :
        "D.N=D[format %1.0f $mom_tool_cutcom_register] XY=$xy mm Z=$z mm"}]
   
    MOM_output_literal "($msg)"
}

# 清理临时变量
catch {unset mom_stock_part_use suppress_td}

张思颖

上面的余量代码遇到10或者20或者30的时候有点问题，会把后面的0给省略掉，重新发一下，那这个问题解决掉了，这次没问题了
# 输出刀补(D.N)  余量（XY  Z)

# 全局变量声明
global mom_operation_type             # 点对点或钻孔操作  当前加工类型的名称
global mom_stock_part                 # 部件侧面余量
global mom_stock_floor                # 部件底面余量
global mom_tool_cutcom_register       # 刀具直径补偿寄存器
global mom_stock_part_use             # 使底面余量与侧面余量一致（0 = off, 1 = on）


# 余量同步与初始化
if {[info exists mom_stock_part_use] && $mom_stock_part_use} {
    set mom_stock_floor $mom_stock_part
}
set mom_stock_floor [expr {[info exists mom_stock_floor] ? $mom_stock_floor : 0}]

# 刀补抑制判断
if {[info exists mom_tool_cutcom_register] && $mom_tool_cutcom_register == 0} {
    set suppress_td 1
}

# 格式化输出
if {$mom_operation_type ni {"Point to Point" "Drilling"}} {
    set fmt "%.3f"

    # 处理 XY 余量
    set xy_val [expr {double($mom_stock_part)}]
    set xy [string trimright [format $fmt $xy_val] "0"]
    if {[string first "." $xy] == -1} { append xy "." }
    if {$xy eq "."} { set xy "0." }

    # 处理 Z 余量
    set z_val [expr {double($mom_stock_floor)}]
    set z [string trimright [format $fmt $z_val] "0"]
    if {[string first "." $z] == -1} { append z "." }
    if {$z eq "."} { set z "0." }

    # 生成消息内容
    set msg [expr {[info exists suppress_td] && $suppress_td ?
        "XY=$xy mm Z=$z mm" :
        "D.N=D[format %1.0f $mom_tool_cutcom_register] XY=$xy mm Z=$z mm"}]
    MOM_output_literal "($msg)"
}

# 清理临时变量
catch {unset mom_stock_part_use suppress_td}

topckey

张思颖 发表于 2025-2-28 09:46
是啊，  用旧的问， 哪里不合适就说要改哪里

懂了,知道怎么提问了,我就说怎么问它都问非所答

黄帝啊

谢谢分享点赞2

topckey

问,是如何提问AI正确输出代码给你的?

爱好者储先生

感谢楼主分享

张思颖

topckey 发表于 2025-2-27 08:11
问,是如何提问AI正确输出代码给你的?

用旧的问啊

topckey

张思颖 发表于 2025-2-27 10:01
用旧的问啊

你是复制了旧的代码直接扔给AI?然后问它,说这个代码执行起来有错误,错误的地方在哪里吗?让它指出并改正吗?

chiouho

感谢分享

张思颖

topckey 发表于 2025-2-28 08:44
你是复制了旧的代码直接扔给AI?然后问它,说这个代码执行起来有错误,错误的地方在哪里吗?让它指出并改正吗 ...

是啊，  用旧的问， 哪里不合适就说要改哪里