|
|
发表于 2024-3-26 09:00:31
|
显示全部楼层
本帖最后由 tombai691019 于 2024-3-26 12:01 编辑
你的代码是不错的，只是用了for循环要把所有的工序都比较完，所以要点很多次，其实在你的代码基础上略做改动，让循环检测到一次输出报警，继续循环不满足条件不输出报警，放在后处理程序开始处就可以了，一定要放在开始处，原理不说了。有兴趣的朋友可以试试，在高版本中已测试是可以的（发现在高版本可用，低版本暂不可用）。 global mom_operation_name_list mom_mcsname_attach_opr bj
foreach op $mom_operation_name_list {
lappend mcs_list $mom_mcsname_attach_opr($op)
}
set mcs_list_count [llength $mcs_list]
set bj 1
for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]] && $bj == 1} {
set msg [MOM_display_message 程序中包含多个坐标系，基于坐标系名称检测！请检查！ 警告 W 确定 取消]
}
incr bj
}
|
|
