Using a tcl script to assign pins

Is it possible to use a tcl script file to make I/O pin assignments instead of using the Pin Planner? I tried doing that with a script file such as the following: package require ::...