OUTPUT AFTER THE PROC GETINFO LBL 1 ;OBEN_12345 CYCL DEF 7.0 DATUM SHIFT CYCL DEF 7.1 X0.000 CYCL DEF 7.2 Y0.000 CYCL DEF 7.3 Z0.000 LBL 0 LBL 2 ;VORNE CYCL DEF 7.0 DATUM SHIFT CYCL DEF 7.1 X-0.000 CYCL DEF 7.2 Y60.000 CYCL DEF 7.3 Z0.000 LBL 0 LBL 3 ;RECHTS CYCL DEF 7.0 DATUM SHIFT CYCL DEF 7.1 X0.000 CYCL DEF 7.2 Y0.000 CYCL DEF 7.3 Z0.000 LBL 0 LBL 4 ;HINTEN CYCL DEF 7.0 DATUM SHIFT CYCL DEF 7.1 X0.000 CYCL DEF 7.2 Y0.000 CYCL DEF 7.3 Z0.000 LBL 0 LBL 5 ;LINKS CYCL DEF 7.0 DATUM SHIFT CYCL DEF 7.1 X133.000 CYCL DEF 7.2 Y4.853 CYCL DE

the proc that make the list but it is for NX CAM System set label_cycle_def_list "" set label_counter "1" proc LBL_CYCLE_DEF_7 {} { global mom_oper_geom label_counter label_cycle_def_list global lib_ge_pretreatment_runtime mom_origin foreach e $mom_oper_geom { if {[lsearch $label_cycle_def_list *$e*] > 0} { set lbl [expr [lsearch $label_cycle_def_list *$e*] +1] MOM_output_literal "CALL LBL [lindex $label_cycle_def_list $lbl]" } } if {[CONF_HERMLE_handler subprog_output_end_of_prog] == 0 } { foreach e $mom_oper_geom { if {[lsearch $label_cycle_def_list *$e*] == -1} { lappend label_cycle_def_list "$e" lappend label_cycle_def_list "$label_counter" lappend label_cycle_def_list [MOM_output_literal "LBL $label_counter"] lappend label_cycle_def_list [MOM_output_literal ";$e"] lappend label_cycle_def_list [MOM_output_literal "CYCL DEF 7.0 DATUM SHIFT"] lappend label_cycle_def_list [MOM_do_template local_zero_xoffset] lappend label_cycle_def_list [MOM_do_template local_zero_yoffset] lappend label_cycle_def_list [MOM_do_template local_zero_zoffset] lappend label_cycle_def_list [MOM_output_literal "LBL 0"] incr label_counter } } } if {[CONF_HERMLE_handler subprog_output_end_of_prog] != 0 } { foreach e $mom_oper_geom { if {[lsearch $label_cycle_def_list *$e*] == -1} { lappend label_cycle_def_list "$e" lappend label_cycle_def_list "$label_counter" lappend label_cycle_def_list [MOM_output_literal "CALL LBL $label_counter"] lappend label_cycle_def_list "LBL $label_counter" lappend label_cycle_def_list ";$e" lappend label_cycle_def_list "CYCL DEF 7.0 DATUM SHIFT" lappend label_cycle_def_list "CYCL DEF 7.1 X[format %.3f $mom_origin(0)]" lappend label_cycle_def_list "CYCL DEF 7.2 Y[format %.3f $mom_origin(1)]" lappend label_cycle_def_list "CYCL DEF 7.3 Z[format %.3f $mom_origin(2)]" lappend label_cycle_def_list "LBL 0" incr label_counter } } } }