多谢前辈的分享
叫畸进;安咯;檶
谢谢楼主分享
谢谢楼主分享{:smile:}
{:handshake:}{:handshake:}{:handshake:}
谢谢分享
谢谢大佬分享!!!
楼主 这个可以帮忙分解一个吗?我只想要这个判断提示 “有两个夹具偏置值相同”谢谢。
#=============================================================
proc PB_CMD_output_multi_mcs { } {
#=============================================================
global mom_fixture_offset_value
global mom_pos Totals_mcs
global mom_prev_pos n_c n_d n_e
global mom_operation_name
global mom_tool_number
global mom_inside_outside_tolerances
global mom_parent_group_name
global mom_group_name offset_flag
global mom_mcsname_attach_opr
global mom_out_angle_pos Zm1 Zm2
global mom_oper_geom stl tml tnl itl
global mom_mcsname_attach_opr tmll tmlll
if {!} {
set offset_flag 0
}
if { $mom_fixture_offset_value == 0 } {
set n_e }
set n_c
set n_d
if {$mom_fixture_offset_value >= 1} {
set n_e $n_c
}
if {$mom_fixture_offset_value < "0"} {
set n_e 54.1\ P
}
if {$mom_fixture_offset_value <= -10} {
set n_e 54.1\ P
}
set stl
set tml($stl) $mom_fixture_offset_value
set tnl($stl) $mom_mcsname_attach_opr($mom_operation_name)
set tmll($stl) $n_e
set tmlll($stl) $mom_mcsname_attach_opr($mom_operation_name)
#MOM_output_literal "(当前坐标系:G$tmll($stl))"
for {set itl 0} {$itl < $stl} {incr itl} {
#MOM_output_literal "(排列坐标系:$tmlll($itl): G$tmll($itl))"
if {$tml($itl) == $mom_fixture_offset_value} {
set stl
if {} {
MOM_output_to_listing_device "******************************************************************
温馨提示您 : 几何体名($mom_mcsname_attach_opr($mom_operation_name))的夹具偏置值与另外一个几何体夹具偏置值相同(是:$mom_fixture_offset_value)!请重新检查设置!
******************************************************************"
MOM_display_message"温馨提示您:
几何体名($mom_mcsname_attach_opr($mom_operation_name))的夹具偏置值与另外一个几何体夹具偏置值相同(是:$mom_fixture_offset_value)!请重新检查设置!"
MOM_abort "报警提示:有两个夹具偏置值相同!"
}
return
}
}
后面代码没有复制。
谢谢大佬分享!!!持续更新{:handshake:}
码这么多字还附这么多图片辛苦了