if {[file exist [project env]] > 0} {project close}
if {[file exist "F:/workfile/fft//fft.mpf"] == 0} {
  project new F:/workfile/fft// fft
} else {
project open fft
}
if {[file exist work] ==0}  {
  exec vlib work
  exec vmap work work}     
vlog d:/altera/quartus60//eda/sim_lib/220model.v
vlog d:/altera/quartus60//eda/sim_lib/altera_mf.v
vlog d:/altera/quartus60//eda/sim_lib/sgate.v
vlog fft.vo
vlog fft_tb.v
vsim fft_tb -pli d:/altera/quartus60///bin/convert_hex2ver.dll
do fft_wave.do
run 102400 ns;

在modelsim中运行do {f:/tcl路径/??.tcl}

自己修改后的tcl，

if {[file exist [project env]] > 0} {project close}
if {[file exist "F:/workfile/irdx//irdx.mpf"] == 0} {
  project new F:/workfile/irdx// irdx
} else {
project open irdx
}
if {[file exist work] ==0}  {
  exec vlib work
  exec vmap work work}     
vlog *.v
vsim work.irdx_top_tb
add wave sim:/irdx_top_tb/clk
add wave sim:/irdx_top_tb/rst_n
add wave sim:/irdx_top_tb/irda
add wave sim:/irdx_top_tb/sw1
add wave sim:/irdx_top_tb/sw2
add wave sim:/irdx_top_tb/sw3
add wave sim:/irdx_top_tb/hc_cp
add wave sim:/irdx_top_tb/hc_si
add wave sim:/irdx_top_tb/irda_send
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/IDLE
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/LEADER_9
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/LEADER_4
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/DATA_STATE
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/rst_n
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/sw1
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/sw2
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/sw3
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/irda_send
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/carrier_cnt
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_108
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_9
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_4
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_056
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_0565
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clk_cnt_169
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clear_cnt
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/clear_cnt_flag
add wave sim:/irdx_top_tb/yu/irda_send_loop_inst/start

add wave sim:/irdx_top_tb/yu/hc164_driver_inst/clk
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/rst_n
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/led
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/dot
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/seg_value
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_cp
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_si
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/tx_cnt
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hex2led
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_data_34bit
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_data_31bit
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_data
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hc_data_inv
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/clk_cnt
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/seg_led_num
add wave sim:/irdx_top_tb/yu/hc164_driver_inst/hex
run 102400 ns;
add wave可以修改，add wave sim：/*

也可以写个wave。do文件在tcl中调用。