Cancel
Showing results for 
Search instead for 
Did you mean: 

Re: Tool List problem

Pioneer
Pioneer

@Stefan_Pendl

Thank you so much Stefan..God bless you....Problem solved...

Re: Tool List problem

Legend
Legend

Are you sure that solution can work ?

set l [llength $aa_tool_list]
    for { set i 0 } { $i < $l } { incr i } {
     set buf [lindex $aa_tool_list $i]
     }

your loop "puts" the last element of your list

Return :

N13 T1
N10 aaToolLst
N20 ;Start of Program
N30 ;
N40 DEF REAL _camtolerance
N50 DEF REAL _X_HOME, _Y_HOME,

If your list looks like that :

set aa_tool_list {{N10 Tool List} {N11 T1} {N12 T2} {N13 T1}}

I would do like that

 if { [string match "*aaToolLst*" $buf] } {
     set l [llength $aa_tool_list]
      for { set i 0 } { $i < $l } { incr i } {
         puts $handle_w [lindex $aa_tool_list $i]
       }
	continue
          }
Production: NX11.0.2.7,VERICUT 8.1.2
Development: Tcl/Tk, Gnuplot
www.adgroupe.com

Re: Tool List problem

Pioneer
Pioneer

@mkn :

No it didn't work as it is..i modified it..but thank you for your suggestion...

Learn online





Solution Information