4、Tcl脚本入门：Tcl基本语法、Vivado Tcl命令空间、第一个自动化脚本。

各位好，欢迎来到第四章。前面几章我们聊了工程结构、版本管理，都是偏“静态”的功夫。从这章开始，咱们要玩点动态的——用Tcl脚本让Vivado自己动起来。

说实话，我入行头两年，一直觉得Tcl是“老人”才用的东西。图形界面点一点多爽啊？直到有一次，我需要给200多个IP核挨个改参数……嗯，那晚我通宵写了个脚本，从此再也不敢小看Tcl了。

4.1 Tcl到底是什么？

Tcl，全称Tool Command Language。说白了，就是一种“胶水语言”。它本身不复杂，但能把Vivado的各种功能粘在一起。

你想想看，Vivado里每个操作——创建工程、添加文件、运行综合——背后其实都对应着一条Tcl命令。图形界面只是这些命令的“包装纸”。

4.2 Tcl基本语法——够用就行

我不打算把Tcl当一门编程语言从头讲。咱们只挑FPGA工程师最常用的几个点。

4.2.1 变量与赋值

Tcl里，变量用$符号引用。赋值用set命令。

set project_name "my_fpga_project"
set top_module "top"
set part_number "xc7k325tffg900-2"

puts "工程名: $project_name"
puts "顶层模块: $top_module"

我在项目中遇到过最坑的事：有人把变量名拼错了，结果脚本跑了半天才发现用的全是默认值。所以，变量名一定要起得有意义，别用a、b、c这种。

4.2.2 列表——FPGA工程师的好朋友

FPGA工程里，文件列表是最常见的。Tcl的列表操作非常方便。

# 创建文件列表
set src_files [list \
    "src/top.v" \
    "src/clk_gen.v" \
    "src/uart_rx.v" \
    "src/uart_tx.v" \
]

# 获取列表长度
puts "源文件数量: [llength $src_files]"

# 遍历列表
foreach file $src_files {
    puts "添加文件: $file"
}

为什么用列表？因为你可以用lappend动态添加文件，用lsearch查找文件。我曾经用这个特性写了个脚本，自动扫描目录下所有.v文件，再也不用手动添加了。

4.2.3 条件与循环

这两个和大多数语言差不多，但写法有点Tcl特色。

# if-else
set synth_opt 1
if {$synth_opt == 1} {
    puts "使用默认综合策略"
} elseif {$synth_opt == 2} {
    puts "使用性能优化策略"
} else {
    puts "使用面积优化策略"
}

# for循环
for {set i 0} {$i < 5} {incr i} {
    puts "迭代次数: $i"
}

# while循环
set count 0
while {$count < 3} {
    puts "第 [expr {$count + 1}] 次运行"
    incr count
}

4.2.4 过程（函数）

脚本写长了，肯定要封装。Tcl用proc定义过程。

proc add_sources {dir pattern} {
    set files [glob -nocomplain [file join $dir $pattern]]
    foreach f $files {
        puts "发现文件: $f"
        add_files -norecurse $f
    }
    return [llength $files]
}

# 调用
set count [add_sources "./src" "*.v"]
puts "共添加了 $count 个文件"

你看，这样就把“扫描目录+添加文件”的逻辑封装起来了。以后换个工程，改个路径就能复用。

4.3 Vivado Tcl命令空间

Vivado的Tcl命令，不是随便乱放的。它们有清晰的命名空间。

命令空间	前缀	典型命令	用途
工程管理	无前缀	create_project, open_project, close_project	创建/打开/关闭工程
文件操作	无前缀	add_files, set_property, get_files	管理源文件和约束
综合	synth_	synth_design, report_timing	运行综合和报告
实现	opt_, place_, route_	opt_design, place_design, route_design	布局布线各阶段
报告	report_	report_timing_summary, report_utilization	生成各种报告
对象查询	get_	get_cells, get_nets, get_pins	查询设计中的对象

这个表格你最好收藏一下。我刚开始学的时候，经常记混命令。后来发现，只要记住前缀，用Tab键补全，基本不会错。

4.4 第一个自动化脚本——从零到一

光说不练假把式。咱们写一个完整的自动化脚本，把前面几章的知识串起来。

这个脚本要做什么？

• 自动创建工程目录结构
• 添加所有源文件
• 设置约束文件
• 运行综合
• 生成资源利用率报告

# ============================================
# 文件名: auto_build.tcl
# 功能: 自动化创建Vivado工程并运行综合
# 作者: 你的名字
# ============================================

# 1. 定义工程参数
set project_name "led_controller"
set project_dir "./$project_name"
set part_number "xc7a35ticsg324-1L"
set top_module "led_top"

# 2. 创建工程目录
puts "=== 步骤1: 创建工程目录 ==="
file mkdir ${project_dir}/src
file mkdir ${project_dir}/constrs
file mkdir ${project_dir}/reports

# 3. 创建工程
puts "=== 步骤2: 创建Vivado工程 ==="
create_project $project_name $project_dir -part $part_number -force

# 4. 添加源文件
puts "=== 步骤3: 添加源文件 ==="
set src_files [glob ./src/*.v]
foreach f $src_files {
    puts "  添加: $f"
    add_files -norecurse $f
}

# 5. 设置顶层模块
puts "=== 步骤4: 设置顶层模块 ==="
set_property top $top_module [current_fileset]

# 6. 添加约束文件
puts "=== 步骤5: 添加约束文件 ==="
set constr_files [glob ./constrs/*.xdc]
foreach f $constr_files {
    puts "  添加约束: $f"
    add_files -fileset constrs_1 -norecurse $f
}

# 7. 运行综合
puts "=== 步骤6: 运行综合 ==="
synth_design -top $top_module -part $part_number

# 8. 生成报告
puts "=== 步骤7: 生成报告 ==="
report_utilization -file ${project_dir}/reports/utilization.rpt
report_timing_summary -file ${project_dir}/reports/timing_summary.rpt

puts "=== 自动化流程完成! ==="
puts "工程路径: $project_dir"
puts "报告路径: ${project_dir}/reports/"

这个脚本，你保存成.tcl文件，然后在Vivado Tcl Console里执行：

source auto_build.tcl

或者用命令行模式：

vivado -mode batch -source auto_build.tcl

你看，一行命令，工程创建、文件添加、综合运行、报告生成，全自动完成。这就是效率。

4.5 本章知识体系

下面这张图，帮你把本章的核心逻辑串起来：

这张图把本章内容分成了三大块：左边是Tcl语法基础，中间是Vivado命令空间，右边是自动化脚本。三者层层递进，缺一不可。

好了，这一章的内容就到这。Tcl脚本这东西，光看是学不会的。我建议你打开Vivado，把上面的脚本敲一遍，改改参数，跑一跑。遇到报错别慌，看看错误信息，基本都是语法小问题。

记住，自动化脚本不是一次写成的。先跑通，再优化，最后才是封装复用。这是我从无数次加班中总结出来的血泪教训。