求大神指导

天天快乐49

proc net { file } {
set file1 [ open $file r ]
set file  [ open cc  w+ ]
  while  { [ gets $file1 line ] } {
   if { $line != "" } {
   set c  [ get_object_name [get_nets -of_object [get_pins $line ] ] ]        
   puts $file "$c"  
  } else {
   break
}
close $file1
close $file
}
}
我这个proc 为什么没有循环下去    ，帮我看一下哪里有问题  不深感激