基于VBA语言的中压配电柜二次接线图全过程程序化制图系统

czw00

先使用 AutoCAD VBA 程序自动读取 CAD 图元数据并生成 txt 格式数据文件。再使用 Excel VBA 程序自动读取 txt 数据文件，自动生成 CAD 端子排图和 CAD 元器件接线图。

游客，支付 30金钱 解锁    免费获取金币    赞助会员（全站免币）点此下载

czw00

程序4个模块的演示视频汇总：
1-（演示视频）CAD原理图生成端子排、接线图、接线表
2-（演示视频）CAD元器件图形转Excel数据，生成txt图元数据文件
3-（演示视频）统计二次设备元器件
4-（演示视频）统计二次线长（涉及工艺参数，不公开程序）
链接: https://pan.baidu.com/s/1j_L3gkg-TJDfii2qJsVw8g?pwd=f768 提取码: f768[/url]

czw00

1、程序流程说明：先使用 AutoCAD VBA 程序自动读取 CAD 图元数据并生成 txt 格式数据文件。再使用 Excel VBA 程序自动读取 txt 数据文件，自动生成 CAD 端子排图和 CAD 元器件接线图。程序的详细架构说明可以参考“中压配电柜二次接线图的全过程程序化制图系统”，万方、普维、百度上都可以搜到

通过网盘分享的文件：基于VBA语言的中压配电柜二次接线图全过程程序化制图系统 链接: [url]https://pan.baidu.com/s/1S9BInr9KjMtSqN4k7vyjmA?pwd=2q9n 提取码: 2q9n[/url]

2、VBA程序变量、自定义的函数、过程都是中文命名，VBA程序通用于所有带VBA工具的Excel和CAD，开发环境是Excel2007、CAD2008、2014、2018。CAD08版自带VBA，14版、18版需要单独安装VBA。VBA安装文件和CAD版本转换软件链接里都有。
3、主程序演示视频在“1-（程序演示视频）CAD原理图生成端子排、接线图、接线表.mp4”。
4、CAD的VBA仅读取中压柜二次原理图上的直线、圆、圆弧、文字图元，会打断原理图上所有的多段线，转换成直线读取，跳过所有块图元。读取完成后Ctrl+Z撤销几次就能完全复原。
5、主程序在“1- CAD原理图生成端子排、接线图、接线表”文件夹。
5.1、“2025-12-26- 读取二次原理图，生成txt图元数据文件.dvb”是CAD的VBA程序文件，在CAD的VBA工具中打开、使用，用于读取CAD 图元数据并生成 txt 格式数据文件。Excel可以直接读取txt文件，Tab符是换列，回车符是换行。
5.2、Excel分为3大部分，主代码在“2025-12-26-1-CAD原理图生成端子排、接线图、接线表 -（项目编号）项目名【示例_GP1 高压出线屏CAD2018版】.xlsm”，用于读取txt文件数据，并在Excel中自动生成与CAD原理图对应的等分网格图。并会调用“0_程序文件_1_模板_等分网格图.xlsx”模板生成独立的Excel网格图文件，因为程序是纯图像识别，生成的时候有可能有错误，可以在这个独立文件里面修改，防止手动修改和VBA前后程序打架。同时可以在程序中直接调用另外2个程序运行。
5.3、程序识别依靠的是图元颜色，颜色设定在主程序.xlsm文件Sheet“控制面板”的右上部。蓝色单元格可修改，绿色是公式，黄色是注释。
6、“0_程序文件_2_生成端子排表.xlsm”用于读取Excel等分网格图，并生成端子排CAD文件。在主程序中调用。第一次运行时会根据当天日期生成一个新的.xlsm文件，这个文件可以在手动更改独立的Excel网格图文件后，独立打开运行。
7、“0_程序文件_3_生成元器件图_接线表.xlsm”用于读取端子排.xlsm文件并生成元器件接线图、接线表。第一次运行时会根据当天日期生成一个新的.xlsm文件，这个文件可以独立打开运行。
8、“0_模板_接线表_1.xlsx”是生成接线表的模板文件。
9、“2- CAD元器件图形转Excel数据，生成txt图元数据文件”文件夹是用于读取CAD中绘制的元器件并自动生成Excel程序能用的数据集用的。

10、本程序仅做交流学习之用，任何涉及商业盈利目的均不得使用。
11、代码文件全开源，互勉。

czw00

Excel2007效率奇高，WPS次之，Excel2019、2024能运行但速度及其无语。
txt文件我放到网盘里了，CAD可以不用打开，直接运行Excel。
不建议用高版本的Excel，你会觉得死机了。用Excel2007，快的话一分多钟就刷完一个流程了。WPS高版本也非常卡。