Something like this should do. This script will take a list of addresses starting with the source address.
set source [lindex $argv 0]
foreach addr [lrange $argv 1 end] {
traceroute $addr source $source
}
Save this into a file, then run it like:
Router#tclsh tr.tcl source_ip addr1 addr2 ...