三轴UG后处理同组不同坐标报警提示,根据夹具偏置和坐标系名称判断!

global mom_operation_name nStep Step mom_operation_name_list mom_mcsname_attach_oprglobal numbersglobal timesglobal ZMLN set ZMLN 0set times 1set Step -1set nStep -1set numbers 0...

UG三轴后处理同组里不同坐标报警提示!根据夹具偏置和坐标系名称判断!有需要的拿去!

global mom_operation_name nStep Step mom_operation_name_list mom_mcsname_attach_opr
global numbers
global times
global ZMLN

set ZMLN 0
set times 1
set Step -1
set nStep -1
set numbers 0

global mom_fixture_offset_value offset_flag
if {![info exists offset_flag]} {
    set offset_flag 0
}
if {[string compare $mom_fixture_offset_value 0]&&![string compare $offset_flag 0]} {
    set msg [MOM_display_message 程序中包含非G54坐标系,根据夹具偏置判断,默认值为0!请检查!]

        1 {
            set offset_flag 1
        }
        2 {
            MOM_abort 中止
        }
    }


global toollistendi
set toollistendi 0

global mom_fixture_offset_value yj
set c [expr $mom_fixture_offset_value+54]
set d [expr 0-$mom_fixture_offset_value]
set yj $mom_fixture_offset_value
global e
if {$mom_fixture_offset_value >= "0"} {
set e $c
} else {
set e 54.1\ P[format "%02.0f" $d]
}
#MOM_output_literal "G$e"
MOM_force once G_motion G_mold

global mom_operation_name_list mom_mcsname_attach_opr
foreach op $mom_operation_name_list {
           lappend mcs_list $mom_mcsname_attach_opr($op)
           }
set mcs_list_count [llength $mcs_list]

for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
     if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]]} {
    set msg [MOM_display_message 程序中包含多个坐标系,基于坐标系名称检测!请检查!]

        }
}

  • 发表于 2020-04-02 13:49
  • 阅读 ( 10750 )
  • 分类:NX后处理

7 条评论

请先 登录 后评论
不知道
不知道

1 篇文章

作家榜 »