global mom_msys_origin mom_msys_matrix
global mom_clearance_plane_status
global mom_clearance_plane_point
global UD_clearance_value
global mom_operation_type
if { $mom_operation_type != "Cylinder Milling" } {
# clearance plane check
if { $mom_clearance_plane_status == 1} {
if {[info exists mom_clearance_plane_point]} {
set UD_clearance_check 1
if { $mom_msys_matrix(8) == 1 } {
set UD_clearance_value [expr $mom_clearance_plane_point(2)-$mom_msys_origin(2)] }
if { $mom_msys_matrix(8) == -1 } {
set UD_clearance_value [expr $mom_msys_origin(2) - $mom_clearance_plane_point(2)] }
if { $mom_msys_matrix(7) == 1 } {
set UD_clearance_value [expr $mom_clearance_plane_point(1)-$mom_msys_origin(1)] }
if { $mom_msys_matrix(7) == -1 } {
set UD_clearance_value [expr $mom_msys_origin(1) - $mom_clearance_plane_point(1)] }
if { $mom_msys_matrix(6) == 1 } {
set UD_clearance_value [expr $mom_clearance_plane_point(0)-$mom_msys_origin(0)] }
if { $mom_msys_matrix(6) == -1 } {
set UD_clearance_value [expr $mom_msys_origin(0) - $mom_clearance_plane_point(0)] }
if { $UD_clearance_value<10 || $UD_clearance_value>350 } {
MOM_display_message "安全平面高度设置过低或太高,上机后可能存在问题,请修改安全平面高度值!
正确值为大于等于10小于等于350." 【温馨】提示:
MOM_abort "\n\n Clearancel:Clearance_plane, P=error\n\n"
}
} else {
set UD_clearance_plane 0
set UD_clearance_check 0
}
} else {
set UD_clearance_plane 0
set UD_clearance_check 0
}