|
|
发表于 2023-5-13 09:54:47
|
显示全部楼层
本帖最后由 似曾相识999999 于 2023-5-13 09:58 编辑
https://www.ugsnx.com/thread-36700-1-1.html看看这贴有制作方法 定义G$e就可以
我给你个代码
#=============================
proc PB_CMD_fanuc_G54 { } {
#=============================
global mom_fixture_offset_value
set b [expr $mom_fixture_offset_value+53]
set c [expr $mom_fixture_offset_value+54]
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]
}
#=============================================================
global mom_fixture_offset_value
if { $mom_fixture_offset_value > "6" || $mom_fixture_offset_value < "-48"} {
set errmes "\n\n scope -48<=夹具偏置<=6 0-G54 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"
}
}
}
}
|
|
