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?:(