高频切换背景色，麻烦不止一点点
哪些方式能实现？
零基础也能上手的优势
零基础也能获取可用VBA代码
很多人会犯难： “我没学过VBA，连接口函数、变量都不懂，怎么写代码？
其实无需自己写——借助AI工具（如豆包），只需清晰描述需求，就能获得可用代码。具体步骤如下：
步骤1：向AI清晰提需求
打开豆包，复制以下需求描述（越具体，AI给出的代码越精准）：
“我是中望CAD用户，没有软件开发基础。需要一个VBA工具，实现三个功能：
1. 一键将背景色设为黑色；
2. 一键将背景色设为白色；
3. 一键切换黑白背景。”
步骤2：AI生成适配代码（附最终可用代码）
经过需求校准，最终可用的VBA代码如下：
Option Explicit
‘ 全局变量，用于存储当前背景色（记录当前状态，避免切换出错）
Public CurrentBackgroundColor As Long
‘ 初始化函数：获取当前CAD背景色，为后续切换做准备
Sub InitBackgroundColor()
CurrentBackgroundColor =
ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor End Sub
‘ 功能1：一键设置黑色背景
Sub SetBlackBackground()
‘ 调用初始化，确保CurrentBackgroundColor已获取当前背景色（避免变量为空） If CurrentBackgroundColor = 0 Then
InitBackgroundColor
End If
‘ 调用中望CAD接口，将背景色设为黑色（vbBlack为系统内置黑色常量）
ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = vbBlack
‘ 更新全局变量，记录当前背景色为黑色
CurrentBackgroundColor = vbBlack
‘ 弹出提示，告知操作结果
MsgBox “背景色已设置为黑色“, vbInformation
End Sub
‘ 功能2：一键设置白色背景
Sub SetWhiteBackground()
‘ 调用初始化，确保CurrentBackgroundColor有值
If CurrentBackgroundColor = 0 Then
InitBackgroundColor
End If
‘ 调用中望CAD接口，将背景色设为白色（vbWhite为系统内置白色常量）
ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = vbWhite
‘ 更新全局变量，记录当前背景色为白色
CurrentBackgroundColor = vbWhite
‘ 弹出提示，告知操作结果
MsgBox “背景色已设置为白色“, vbInformation
End Sub
‘ 功能3：一键切换背景色（黑白双向切换）
Sub ToggleBackgroundColor()
‘ 调用初始化，确保CurrentBackgroundColor已获取当前背景色
If CurrentBackgroundColor = 0 Then
InitBackgroundColor
End If
‘ 判断当前背景色，执行相反颜色切换
If CurrentBackgroundColor = vbBlack Then
SetWhiteBackground ‘ 若当前为黑色，切换为白色
Else
SetBlackBackground ‘ 若当前为白色，切换为黑色
End If
End Sub
从代码到“一键切换” ，5步搞定
拿到代码后，只需5步就能配置完成，全程不超过10分钟，零基础也能操作：
其实无需自己写——借助AI工具（如豆包），只需清晰描述需求，就能获得可用代码。具体步骤如下：
步骤1：打开VBA编辑器，插入代码
1. 在中望CAD绘图界面，按快捷键Alt+F11，直接打开VBA编辑器；
2. 右键左侧“工程”面板的根节点（若未显示工程面板，可按 Ctrl+R调出） → 选择“插入”→“模块”；
3. 将上文的VBA代码完整复制，粘贴到右侧的代码编辑区（确保无遗漏字符）。
步骤2：保存VBA文件，避免代码丢失
1. 按快捷键Ctrl+S ，弹出 “另存为”对话框；
2. 选择文件保存路径（建议存在CAD安装目录下或个人常用的“CAD工具”文件夹，避免误删）；
3. 文件名设为BgColorSwitch.zvb（便于后续识别，后缀 .zvb是中望CAD VBA文件专用格式），点击“保存”。
步骤3：加载文件并设为启动项（避免每次重启CAD都加载）
1. 回到中望CAD绘图界面，在命令行输入APPLOAD ，按回车打开“加载应用程序文件”对话框；
2. 点击对话框下方的“添加”按钮，选择刚才保存的BgColorSwitch.zvb 文件，点击“打开”，点击“加载”；
3. 点击“添加到启动组”，将其加入“启动组”——下次重启CAD时，文件会自动加载，无需重复操作。
步骤4：自定义快捷键（绑定“一键切换”功能）
1. 在命令行输入CUI ，按回车打开“ 自定义用户界面”对话框；
2. 左侧“命令列表”区域点击“创建新命令”按钮（五角星），在右侧设置参数：
● “名称” ：输入“一键切换背景” （自定义名称，便于识别）；
●“宏” ：粘贴代码^C^Cvbarun BgColorSwitch.zvb!ToggleBackgroundColor（作用是触发VBA中的“切换背景色”函数，注意文件名和函数名需与前文一致）；
3. 右侧切换到“键盘快捷键”选项卡，在“快捷键”列表中找到常用快捷键（如Ctrl+T ，建议选未被占 用的组合键），选中后点击“指定” ，将新命令绑定到该快捷键。
步骤5：测试效果，确认功能可用
回到中望CAD绘图界面，按刚设置的快捷键（如 Ctrl+T ）：
● 若当前为黑色背景，会弹出“背景色已设置为白色”提示，背景同步切换；
● 若当前为白色背景，会弹出“背景色已设置为黑色”提示，实现双向切换——至此，一键切换功能配置成功！
备注：由于代码中添加了消息提示，最后测试通过后，可以把消息提示注释掉，见附件的源代码文件，可以通过加载代码后，运行VBAIDE命令查看源代码并进行注释。
零基础也能做“CAD小开发”
学习了