Orcad TCL脚本调试技巧

Orcad在TCL调试过程中，开始最头疼的问题是如何调试，常常不知道在那里出问题。又没有调试工具或者还不知道有什么好的调试工具。头大。

puts是一种方法，可在怀疑出问题的地方打印。但有时，并不好使。例如有时程序崩溃，直接就关闭了ORCAD，无法看到puts打印的信息，完全不知道出错在哪行，这时傻了。经过学习，终于找到了一个方法。

可用tk_messageBox 来实现暂停在怀疑的地方，进行单步调试。定义一个函数。在需要打印暂停的地方调试此函数即可。

proc debug_msg { lmsg } {

    set rslt no

    while { $rslt != yes} {

        set rslt [tk_messageBox -message "$lmsg, select yes to continue" -type yesno -icon question]

    }    

}