Why I run tcl but it does't work?

I run the tcl script and it is executed,but it didn't change anything,the pin didn't set as i want? Cound you give any help?:(