Here are a few examples of Tcl and Tcl/Tk scripts that we've found useful in our own simulation and synthesis work. Of course they probably won't exactly meet your needs, but we hope they will provide you with some starting points for your own scripting efforts.
Interactive GUI tool to help you understand, develop and debug Tcl Regular Expressions.
Add buttons for frequently used commands to any Tcl based EDA tool.
Adds a new polar (constellation) display to ModelSim's waveform viewer, so that you can interactively observe the relationship between two multi-bit numeric values - typically representing the in-phase and quadrature components of a digitised signal. Shows how to add new GUI features to ModelSim, and how to make your own Tcl code interact effectively with the tool's own GUI.
This text-only Tcl script works within Synopsys Design Compiler. Given the name of any port, pin or net, the script will look around the design hierarchy and report the hierarchical name of the gate that drives that signal. Shows a number of useful tricks for exploring the DC design database.
This script clearly demonstrates why you should improve your productivity with scripting. This script saves hours of working the ModelSim GUI to recompile and resimulate VHDL/Verilog code during development. It is really easy to use and will save you lots of time starting right now with your current VHDL/Verilog design or verification work.