cancel
Showing results for 
Search instead for 
Did you mean: 

Anyone know where I can find the MOM_end_of_group proc?

Valued Contributor
Valued Contributor

I looked and its not in the TCL file. I re-wrote MOM_end_of_group and now I am getting the following error.

 

 

"MOM_close_output_file $group_output_file($mom_group_name)"

 

(procedure "MOM_end_of_group" line 13)

 

invoked from within

 

"MOM_end_of_group"

 

 

I feel if I add a catch or if info exists line before it, then I think it will solve this issue. It only happens if I post out a group that has 2 or more group levels. or group in a group in a group.

Using NX 8.0.3.4
2 REPLIES

Re: Anyone know where I can find the MOM_end_of_group proc?

It's in the ugpost_base.tcl file.  Here's what's in mine.

 

proc MOM_end_of_group {} {
  global mom_sys_group_output group_output_file group_level mom_group_name
  global mom_parent_group_name mom_group_name ptp_file_name
  global mom_sys_ptp_output

  if {[hiset group_level]} {
    if {$group_level == 0} {
      return
    } else {
      if {$group_level == 1} {
        MOM_close_output_file $ptp_file_name ; MOM_end_of_program
        if {$mom_sys_ptp_output == "ON"} {MOM_open_output_file $ptp_file_name }
        MOM_close_output_file $group_output_file($mom_group_name)
        unset group_output_file($mom_group_name)
      }
      incr group_level -1
    }
  } else {return}
}

 

Jake Hardwick
CNC Programmer
Senior Aerospace AMT
Production NX8.5.3.3 Beta testing NX10.0.1.4

Re: Anyone know where I can find the MOM_end_of_group proc?

Valued Contributor
Valued Contributor

Thanks, Upleveled a a new end of group proc with  

 

if { [info exists group_output_file($mom_group_name)] } {

 

and it works. Siemens usually has these sort of things in there to prevent errors.

 

Also Thanks for telling me about the ugpost_base.tcl file

Using NX 8.0.3.4

Learn online





Solution Information