UG后处理tcl语言编写技巧就上UG网

UG后处理tcl语言编写技巧就上UG网，下面一段语言R输出是有问题的，我想要的输出结果是R=tr 或 R=tr1，当一个不能输出时就选择另一个输出。

1. set outputthd 1
   
2. global toollist
   
3. mom_tool_type mom_tool_cutcom_register mom_cutcom_adjust_register
   
4. mom_tool_name mom_tool_diameter mom_tool_corner1_radius
   
5. mom_tool_lower_corner_radius mom_tool_adjust_register
   
6. mom_tool_adj_reg_defined mom_tool_number
   
7. set tdi [ format  "%.2f" $mom_tool_diameter]
   
8.    if {$mom_tool_type == "Milling Tool-T Cutter"} {
   
9. set tr1 [ format "%.2f" $mom_tool_lower_corner_radius]
   
10. } else {
    
11. set tr [ format  "%.2f" $mom_tool_corner1_radius]
    
12. }
    
13. 
    
14. if [info exists mom_tool_number] {
    
15.     set tt $mom_tool_number
    
16. } else {
    
17.     set tt 0
    
18. }
    
19. if [info exists mom_tool_adj_reg_defined] {
    
20.     set th $mom_tool_adjust_register
    
21. } else {
    
22.     set th 0
    
23. }
    
24. if [info exists mom_tool_adj_reg_defined] {
    
25.     set td $mom_tool_cutcom_register
    
26. } else {
    
27.     set td 0
    
28. }
    
29. set tt [format "%02.0f" $tt]
    
30. set th [format "%02.0f" $th]
    
31. set td [format "%02.0f" $td]
    
32. 
    
33. set tt [format "%02.0f" $tt]
    
34. set th [format "%02.0f" $th]
    
35. set td [format "%02.0f" $td]
    
36. 
    
37. if {$outputthd == 1 } {
    
38.     MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"
    
39. } else {
    
40.     MOM_output_literal "(T00:$mom_tool_name D=$tdi R=$tr H00 D$td)"
    
41. }
    

复制代码