UG后处理常用定制命令

lqlkmqj2

程序名称：

global mom_operation_name
               MOM_output_literal " (NANE:$mom_operation_name)"

创建时间：

global mom_date
               MOM_output_literal "(CREATE DATE: format $mom_date)"

刀具名称：

global mom_tool_name
               MOM_output_literal ";(TOOL NAME: format $mom_tool_name)"

加工时间：

global mom_machine_time
               MOM_output_literal ";(time:[format "%.2f" $mom_machine_time] H )"

刀具信息
           global mom_tool_name mom_tool_type
            global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
            global mom_tool_length
            MOM_output_literal "(ToolName=$mom_tool_name)"
             MOM_output_literal "(D=[format "%.2f" $mom_tool_diameter] R=[format "%.2f"                    $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length] L=[format                     "%.2f" $mom_tool_length])"

进给速度为250时报警：

global mom_feed_cut_value

global mom_operation_name

if { $mom_feed_cut_value == 250 } {

set errmes " WARNING:$mom_operation_name F=250 PLEASE CHECK"

MOM_abort "  \n\n\n S=0 \n\n Yang Bao Feng提示：\n\n操作： $mom_operation_name 的进给速度未设定，请设定\n\n\n "

}

主轴转速为0时报警：

global mom_spindle_speed

global mom_operation_name

if { $mom_spindle_speed == 0 } {

set errmes " WARNING:$mom_operation_name S=0 PLEASE CHECK"

MOM_abort "  \n\n\n S=0 \n\n Yang Bao Feng提示：\n\n操作： $mom_operation_name 的主轴转速未设定，请设定\n\n\n "

}

lqlkmqj2

NC文件生成日期时间：

set a [clock format [clock seconds] -format "%Y/%m/%d"]
set b [clock format [clock seconds] -format "%H:%M"]
set c [clock format [clock seconds] -format "%A"]
if {$c == "Monday"} {set c 一}
if {$c == "Tuesday"} {set c 二}
if {$c == "Wednesday"} {set c 三}
if {$c == "Thursday"} {set c 四}
if {$c == "Friday"} {set c 五}
if {$c == "Saturday"} {set c 六}
if {$c == "Sunday"} {set c 日}
MOM_output_literal "(Date：$a  Time：$b  Day：$c)"

#global mom_date


#MOM_output_literal "(Date: $mom_date )"


global mom_part_name

MOM_output_literal "(TASK : $mom_part_name )"



加工余量：
global mom_stock_floor mom_stock_part
global mom_wall_stock mom_stock_part_use
global sidestock floorstock
if {[info exists mom_stock_part]} {
set sidestock $mom_stock_part
} elseif {[info exists mom_wall_stock]} {
set sidestock $mom_wall_stock
} else {
set sidestock 0
}
if {[info exists mom_stock_floor]} {
    if {[info exists mom_stock_part_use] && $mom_stock_part_use == 1} {
        if {[info exists mom_stock_part]} {
            set floorstock $mom_stock_part
            }
    } else {
    set floorstock $mom_stock_floor
    }
} else {
set floorstock 0
}
MOM_output_literal "(XY =[format "%.3f" $sidestock]  Z =[format "%.3f" $floorstock])"

刀具号相同提醒：
将此定制命令放在 刀轨开始 处


global mom_tool_number mom_tool_name tool_seq tool_name_array tool_num_array


if {![info exists tool_seq]} {
set tool_seq 0
}
set tool_name_array($tool_seq) $mom_tool_name
set tool_num_array($tool_seq) T[format "%.2d" $mom_tool_number]
set i 0
while {$i<$tool_seq} {
if {$tool_num_array($i)=="T[format "%.2d" $mom_tool_number]"} {
incr tool_seq -1
if {![string equal $tool_name_array($i) $mom_tool_name]} {
set msg [MOM_display_message "刀具名称 $mom_tool_name 与 $tool_name_array($i) 使用了相同刀具号" QQ同步微信：758917784 I 继续输出 中止后处理]
switch $msg {
1 {set offset_flag 1}
2 {MOM_abort \n\n已中止后处理程序\n\n}
}
}
}
incr i
}
incr tool_seq

惊鸿笑靥

C:\Users\Administrator\Desktop\888 大佬，怎么删除重复的X、Y，设置I、J为0时省略，跪求方法。。。

zengrongs

谢谢分享支持一下

zyangi

好东西学习，收藏起来

万里长城*

上面的时间单位是小时，怎么成分钟啊？加工时间：
global mom_machine_time
               MOM_output_literal ";(time:[format "%.2f" $mom_machine_time] H )"

洛水之南

看着好难啊

心梦无痕1.

好东西学习，收藏起来

710445255

感谢大神分享

a547775071

感谢分享

wuye212*

谢谢分享！

默默无闻666

好东西顶顶