|
|
# 显示消息并请求用户输入
set choice ""
MOM_display_message "请选择工件坐标系偏置:\n输入 10 使用 P[#601+10]\n输入 20 使用 P[#601+20]" INFO
# 弹出输入框让用户输入
set input [MOM_user_input "请输入 10 或 20:" choice]
if { $input == 0 &&$choice == "10" } {
MOM_output_literal "G54.1P\[$\#601+10\]"
} elseif { $input == 0 &&$choice == "20" } {
MOM_output_literal "G54.1P\[$\#601+20\]"
} else {
# 默认或错误处理
MOM_warning "输入无效,使用默认值 P[#601+10]"
MOM_output_literal "G54.1P\[$\#601+10\]"
}
|
|