|
|
发表于 2024-5-10 21:15:22
|
显示全部楼层
global mom_fixture_offset_value
set b [expr $mom_fixture_offset_value+53]
set c [expr $mom_fixture_offset_value+53]
set d [expr 0-$mom_fixture_offset_value]
global e
if {$mom_fixture_offset_value > "0"} {
set e $b
} elseif {$mom_fixture_offset_value == "0"} {
set e $c
} else {
set e 54.1\ P[format "%02.0f" $d]
}
if { $mom_fixture_offset_value > "6" || $mom_fixture_offset_value < "-48" } {
set errmes "\n\n scope -48<=夹具偏置<=6 0-G53 1~6-G54~G59 -48~-1-G54.1 P1~P48 \n\n"
set msg [MOM_display_message 坐标系夹具偏置错误，请注意！ 赋值错误提醒！-48<=偏置值<=6 I 中止后处理]
switch $msg {
1 {
MOM_abort "$errmes"
}
}
} |
|
