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 为什么没有循环下去 ,帮我看一下哪里有问题 不深感激