各位大侠好。小弟是做ug加工的。现在想请大家帮忙写个后处理的判断语句。
格式是当后处理的内容中出现A轴的输出时在前面的一行输出M11。在后面一行输出M10。A轴的变量是mom_out_angle_pos（0）
比如这段语句在第一个A输出没有M11与M10的输出。但是后面的都是有的。
global mom_out_angle_pos mom_prev_out_angle_pos
global unclamp_a_flag

if {[info exists mom_out_angle_pos ] && [info exists mom_prev_out_angle_pos ] } {
  if { $mom_out_angle_pos(0) != $mom_prev_out_angle_pos(0)} {
     MOM_output_literal "M11"
     set unclamp_a_flag "TRUE"
  }
} elseif { ![info exists mom_prev_out_angle_pos ] } {
     MOM_output_literal "M11"
     set unclamp_a_flag "TRUE"
}
在此还望高人出手

- - tcl语句啊 怎么发到c论坛来了

首先你要set mom_out_angle_pos（0）""
然后string equal $mom_out_angle_pos（0） ""
不相等的时候就输出

谢谢楼上大哥。能不能帮我写个具体点的
谢谢了

在线等hao0716大哥的解答。

set mom_out_angle_pos(0) ""

if {![string equal $mom_out_angle_pos(0) ""]} {
    MOM_output_literal "M11"
    MOM_output_literal $mom_out_angle_pos(0)
    MOM_output_literal "M10"
   
}

非常感谢。

后处理报错。不过还是非常感谢hao0716老大

MOM_output_literal
这个我是用puts的 因为我没有你的库
我测试一切正常
版本activetcl 8.4

谢谢你。我这个是专门用到ug上的，所以估计还有别的东西我没弄对。