|
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 程序中包含多个坐标系,基于坐标系名称检测!请检查!]
}
}
|
|