CN108549624B - 通信工程设计预算和说明文本自动化生成系统和方法 - Google Patents

Abstract

本发明属于通信工程设计技术领域，具体涉及通信工程设计预算和说明文本自动化生成系统和方法。本发明公开了通信工程设计预算和说明文本自动化生成系统及其使用方法，该系统构建包括：S1.设计专业和场景分析；S2.说明文本和表格模板设计；S3.建立各专业场景excel关联数据模型；S4.生成独立表；S5.建立预算模型；S6.各专业场景的应用程序设计；S7.运行应用程序，自动输出说明文本和表格文件。通过设计各环节内和环节间各类数据的关联，实现预算工程量、材料量等各类数据自动关联，自动生成工程设计预算和各类设计说明文本，实现了通信工程设计预算和说明文本的自动化、标准化和规范化生成，提升了设计效率及质量。

Description

通信工程设计预算和说明文本自动化生成系统和方法

技术领域

本发明属于通信工程设计技术领域，涉及通信工程设计预算和说明文本的编制，具体涉及通信工程设计预算和说明文本自动化生成系统和方法。

背景技术

通信设计过程环节多，设计过程中利用Office、CAD办公软件分阶段独立完成设计图纸、预算、说明、表格统计等内容。设计人员借助Excel对每张设计图纸人工统计和计算得到预算的施工工程量和施工材料用量；通过分析图纸、相关预算及方案信息来分别编制设计说明、批复等文本文件。

现有的通信工程设计的基本流程为：1、用CAD绘图；2、人工在图纸中统计各类工程量和材料量数据；3、人工逐条统计填写预算定额条目、设备表、材料表（表三、表四），完成预算；4、人工利用WORD逐项编写设计说明、批复、会审意见等各类文本，用excel完成设计附表。

此过程中很多信息同时在图纸、预算和说明各过程中多次人为录入和编辑，设计人员工作量大、效率低、质量参差不齐，且会出现图纸、预算、说明间关联数据间不匹配、不统一、甚至出现严重错误的问题。因此，需要对设计各环节进行自动化和关联性分析提供解决方案。

发明内容

本发明的目的是克服现有技术的不足，实现设计的自动化、标准化和规范化；提高设计的效率和设计质量，规范设计标准；通过设计各环节内和环节间各类数据的关联，实现预算工程量、材料量等各类数据自动关联，自动生成工程设计预算和各类设计说明文本。可以形象的称之为“一键出设计”。

本发明解决的具体问题是：1、预算需要人工从大量的图纸中统计工程量和材料量，这项工作非常耗费人力，且不能保证准确率，因此需解决预算自动化的问题；2、现有技术制定设计说明和表格需要逐项输入完成，共性内容不能固定，常因为录入错误导致相关信息、数据不统一，需要制定设计说明和表格标准化模板，实现共性内容固定化、个性内容自动化生成；3、现有通信工程设计在图纸、预算和说明中有许多相同的信息，需要人工多次分别编辑和录入，不但浪费人力而且还会导致相关信息、数据不一致的问题，需解决自动化批量处理、调用相关信息的问题。

为实现上述目的，本发明采用的技术方案是：通信工程设计预算和说明文本自动化生成系统，其特征在于：按如下步骤操作构建：

S1.设计专业和场景分析：首先分析设计专业，按设计的特点、设计内容、设计的数据类型，将专业分成不同场景，每种场景内容类似，具有共同设计特点，为建模做好准备。

S2.说明文本和表格模板设计，包括说明文本word模板和excel表格模板的设计。根据各专业设计场景内容、专业方案、专业特点和依据编制“设计说明模板.docx ”、“设计批复模板.docx”、“会议纪要模板.docx”、”立项报告模板.docx”、“导入任务模板.xlsm”、“部门分摊投资模板.xlsm”，还可以根据客户需要，增加其他与规模、投资等相关的设计文件模板，从而实现一键同时自动生成所有的需要的设计文件。各模板中均包含固定内容部分、需替换内容、需编辑内容。

S3.建立各专业场景的excel关联数据模型：利用excel软件，根据专业和场景涉及到的内容分别建立各专业场景excel模型框架文件，再分别列出各专业场景模型excel框架文件中各类信息表的具体内容；分析查找各专业场景模型文件各表中数据信息的直接或间接关联关系，并利用函数关系和宏命令将其全部关联起来，建成各相关专业场景excel关联数据模型文件。文件可命名为“场景关联模型. Xlsm”。

S4.生成独立表：使用宏命令对步骤S3中各专业场景excel关联数据模型文件进行处理，生成、导出独立的工程量表、材料表和设备表。

S5.建立预算模型：利用excel软件建立预算编制模型文件，文件中包含信息费率表、TSY-1表、TSY-2表、TSY-3甲表、TSY-3乙表、TSY-3丙表、TSY-4甲A表、TSY-4甲B表、TSY-5甲表。文件可命名为“预算模型. xlsm”。

S6.各专业场景的应用程序设计：利用“按键小精灵”应用小软件，选取相应功能插件，用按键小精灵自带编程工具将步骤S2中说明文本word模板和表格模板文件中的需替换内容与步骤S3中各专业场景excel关联数据模型文件中相关信息进行关联编程，完成专业场景的exe应用程序。

S7.运行应用程序，自动输出说明文本和表格文件：通过运行步骤S6中专业场景的exe应用程序，自动生成本专业场景设计的各类说明文本和表格文件。

进一步，在步骤S1中，所述专业场景为以下专业场景中的至少一个：

通信线路专业的“中继光缆、长途光缆线路工程”、“城域网光缆优化扩容工程”、“基站配套光缆接入线路工程”、“FTTH接入工程”、“集客接入光缆线路工程”五个场景；

通信管道专业的“通信管道建设工程”一个场景；

传输设备专业的“干线传输系统设备安装工程”、“波分系统设备安装工程”、“城域传送网传输设备建设工程”、“基站配套传输设备安装工程”、“集客接入设备安装工程”五个场景；

无线专业的“无线基站设备安装工程”一个场景。

进一步，在步骤S2中，所述需替换内容包括与步骤S3中各专业场景excel关联数据模型中相关联的“图纸目录表”、“说明文本替换表”、“说明表格替换表”内容；所述需编辑内容为说明文本中需描述的内容。

进一步，在步骤S3中，所述函数包括查找、判断、嵌套、计算、选择、求和、统计。

进一步的，在步骤S3中，所述各专业场景模型excel框架文件中各类信息表具体为：

通信线路专业和通信管道专业各场景模型excel框架文件中各类信息表包括：“关键参数提取表”、“基本信息输入表”、“图纸目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“材料中转表”、“预算表”、“个人信息表”9个表；

传输设备专业各场景关联模型excel框架文件中各类信息表包括：“基本信息输入表”、“配套设备表”、“传输设备表”、“目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“设备中转表”、“材料中转表”、“规模信息表”、“预算表”、“个人信息表”12个表；

无线专业的“无线基站设备安装工程”场景关联模型文件中包括：“基本信息输入表”、“配套设备表”、“目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“设备中转表”、“材料中转表”、“规模信息表”、“天线参数表”、“预算表”、“个人信息表”12个表。

在此基础上，进一步，所述步骤S4具体为：设计excel宏命令从步骤S3中的 “工程量中转表”、“材料中转表”和“设备中转表”中分别筛选提取非“0”数据条目，将结果复制到所属表格的指定筛选结果区域，再利用筛选结果区域的数据自动生成、导出独立的工程量表、材料表和设备表；所述筛选结果区域与原始数据区域不相重叠。

在此基础上，进一步，在步骤S4中，所述工程量表和材料表生成、导出前，通过设计excel宏命令对筛选结果区域数据进行初始化清空操作，以保证新的筛选结果条目数少于现有条目数时能够得到正确结果。

进一步，在步骤S5中，在所述“信息费率表”中，由人工录入通信工程预算各类费率和工程基本信息内容。

进一步，在步骤S5中，

所述TSY-1表为《工程预算总表（表一）》；

所述TSY-2表为《建筑安装工程费用预算表（表二）》；

所述TSY-3甲表为《建筑安装工程量预算表（表三）甲》；

所述TSY-3乙表为《建筑安装工程机械使用费预算表（表三）乙》；

所述TSY-3丙表为《建筑安装工程仪器仪表使用费预算表（表三）丙》；

所述TSY-4甲A表为《国内器材预算表（表四）甲（主要材料表）》；

所述TSY-4甲B表为《国内器材预算表（表四）甲（需要安装的设备表）》；

所述TSY-5甲表为《工程建设其他费用预算表（表五）甲》。

进一步，在步骤S5中，所述TSY-3甲表、TSY-4甲A表和TSY-4甲B表由步骤S4的工程量表、材料表和设备表调整格式，导入生成；TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表系根据《信息通信建设工程概预算编制规程》工信部通信[2016]451号中的规定，利用excel函数关联计算得出。

进一步，在步骤S6中，所述本专业场景的可执行文件为.exe文件。如“管道.exe”。

进一步，在步骤S7中，所述各类说明文本和表格文件具体为“工程设计说明.docx”、“工程设计批复.docx”、“工程会议纪要.docx”、“工程立项报告.docx”、“工程导入任务表.xlsm”、“工程部门分摊投资.xlsm”。

进一步，本发明的通信工程设计预算和说明文本自动化生成系统的使用方法，按如下步骤操作：

A1.打开相对应专业场景的excel关联数据模型文件，在每个关键参数预置赋值口录入相应参数值。其中，

通信线路专业和通信管道专业场景填写“关键参数提取表”、“基本信息输入表”；

传输设备专业场景填写“基本信息输入表”、“配套设备表”、“传输设备表”、“规模信息表”；

无线专业场景填写“基本信息输入表”、“配套设备表”、“规模信息表表”、“天线参数表”。

生成独立表：

A201.打开“工程量中转表”，利用Excel宏命令进行初始化清空操作，再提取“工程量中转表”中的非“0”数据条目自动生成、导出独立的工程量表。

A202.打开“材料中转表”，利用Excel宏命令进行初始化清空操作，再提取 “材料中转表”中的非“0”数据条目自动生成、导出独立的材料表。

A203.打开“设备中转表”，利用Excel宏命令进行初始化清空操作，再提取 “设备中转表”中的非“0”数据条目自动生成、导出独立的设备表。

A3.打开预算模型文件，将步骤A201、A202及A203中生成、导出的独立的工程量表、材料表和设备表调整格式分别导入预算模型文件中的TSY-3甲表、TSY-4甲A表、TSY-4甲B表。填写预算模型中“信息费率表”中的工程信息，通过关联计算直接得出完整的TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表结果，完成预算。

A4.将TSY-1表、TSY-5甲表的结果拷贝到各相关专业场景excel关联数据模型文件的“预算表”内。

A5. 运行专业场景的exe应用程序，在程序界面中“表格”浏览框后点击打开专业场景的excel关联数据模型，然后在软件界面内勾选设计所需要的文件框，最后点击“启动F10”键。所生成的文件全部自动放在各专业场景excel关联数据模型文件所在的目录中。

本发明的有益效果。

本项目开发应用后，对目前通信工程设计的生产工作提高的效益和指标如下：

1、实现设计自动化：提升设计效率

通信线路专业及通信管道专业：预算、说明文本部分效率提升10%~45%，整体工程设计效率提升8%~30%；

传输设备专业：预算、说明文本部分效率提升15%~35%，整体工程设计效率提升10%~25%；

无线专业：预算、说明文本部分效率提升15%~40%，整体工程设计效率提升10%~25%；

无线基站设备专业：当设计只有1~2个基站时，采用本方法不能提升设计效率；当设计中基站数量为3~10时，预算、说明部分提升为10%~25%，整体工程设计效率提升5%~20%；当设计中基站数量超过10个以上时，预算、说明文本部分效率提升为15%~40%，整体工程设计效率提升10%~30%。

2、实现设计标准化：提升设计质量

通过关联关系算法，实现基本数据输入、大量数据自动计算生成，避免了大量人工操作造成的录入错误，实现各环节数据相互统一，大幅提升设计质量。

3、实现设计规范化：提升设计统一性

实现设计工作规范化，设计工作日记取、材料用量等规范取定，统一自动计算生成，不因人为因素而改变。

附图说明

图1为本发明实施例1的通信工程设计预算和说明文本自动化生成系统构建操作流程图。

图2为本发明实施例1的通信管道专业场景excel关联数据模型文件中预算结果的相关信息关联界面图。

图3为本发明实施例1通信工程设计预算和说明文本自动化生成系统通信管道专业场景的exe应用程序界面图

图4为本发明实施例2通信工程设计预算和说明文本自动化生成系统使用操作流程图。

具体实施方式

下面结合附图对本发明的技术方案进行详细说明，但本发明的内容并不局限于此。

实施例1：

如图1所示，以通信管道专业为例，构建通信工程设计预算和说明文本自动化生成系统，按如下步骤操作：

S1.通信管道专业场景特征分析：首先分析通信管道专业的各类场景设计特点、设计内容、设计的数据类型，通信管道专业设计自动化模型设置为统一场景模型，在此条件下建模。

S2.说明文本和表格模板设计：根据通信管道专业场景内容、专业方案、专业特点和依据编制“设计说明模板.docx ”、“设计批复模板.docx”、“会议纪要模板.docx”、”立项报告模板.docx”、“导入任务模板.xlsm”、“部门分摊投资模板.xlsm”

，各模板中均包含固定内容部分、需替换内容、需编辑内容。

以“设计说明模板”为例，文本结构、内容格式设置固定化，具体文字内容分四种情况设置，一是固定说明内容，相同专业、相同场景下都有相同的说明内容，如主要设计依据、网络现状、技术指标、施工规范等内容，在模板中以固定形式体现；二是说明文本需替换内容，即随项目变化而变化的信息文字描述，采用可替换标记格式，就是可以从场景关联模型excel文件中的“说明文本替换表”直接获取的内容，在文本中设为不同的替换代号（标识性文字）；三是说明表格需替换内容，即随项目变化而变化的设计信息表格，采用可替换标记格式，就是可以从场景关联模型excel文件中“说明表格替换表”获取的内容，在文本中替换的表格的表头设为不同的替换代号；四是需编辑内容，文本自动生成后根据设计具体内容特点进行描述。

S3.建立通信管道专业场景excel关联数据模型：利用excel软件，根据通信管道专业场景涉及到的内容建立excel模型框架文件，文件名称为“管道关联模型. Xlsm”；再列出通信管道专业场景模型excel框架文件中包括：“关键参数提取表”、“基本信息输入表”、“图纸目录表” “说明文本替换表”、“说明表格替换表”、“工程量中转表”、“材料中转表”、“预算表”、“个人信息表”9个信息表的具体内容；分析查找场景模型文件中各信息表中数据信息的直接或间接关联关系，并利用函数关系和宏命令将其全部关联起来，建立通信管道专业场景的excel关联数据模型。

S301.关键参数提取表：关键参数的选取采用了“最少化、最简化”原则，在能够完全计算工程量和材料量的前提下，关键参数的数量“最少化”，关键参数的填写“最简化”，每一个关键参数都具有必要性。相比传统的工程量提取方式，这种方式减少、简化了人为需要从图纸中获取的数据和信息。

以通信管道专业为例，具体关键参数如表1所示。

表1. 通信管道专业关键参数提取表

序号	关键参数	单位	备注
				1	新建小手	个
2	新建小手窗口数(1孔)	处
				3	新建小手窗口数(2-4孔)	处
4	新建作业坑	个
				5	原有人孔壁开窗口	处
6	机械顶管（下拉菜单选择孔数）	米
				7	镀锌钢管管道（下拉菜单选择孔数）	米
8	开挖路面长度（下拉菜单选择路面型式和孔数）	米
				9	开挖管道沟长度（下拉菜单选择路面型式和孔数	米

S302.基本信息输入表：设计基本信息的输入，具体内容如表2所示，其中“信息输入项”为设计时人工录入内容。

表2. 通信管道专业基本信息输入表

项目类	信息输入项	备注
			工程总名称
单项工程名称
			建设单位
设计编号
			总负责
项目负责
			审核人
勘察人
			设计人员
日期
			编制人
审核人
			地市
县区
			施工折扣
设计折扣
			监理折扣
接入户数
			建设性质
项目编号（甲方）

S303.图纸目录表：从通信管道专业的管道光缆图纸中整理复制到此表中。

S304.工程量中转表：根据每项定额与关键参数的函数关系，逐条计算出工程量。利用上述的关键参数，可以计算出所有工程量，实现项目工程量的计算与生成，不需要其他条件辅助。由此算法得出的工程量数量满足工信部通信[2016]451号定额规定。以通信管道工程为例，工程量（定额条目）算法具体内容如表3所示。

表3. 通信管道专业工程量中转表

序号

定额编号

项目1

项目2

单位

算法

备注

1

TGD1-001

施工测量

百米

{[开挖路面长度(混凝土)(1孔)+开挖路面长度(沥青柏油)(1孔)+开挖路面长度(砂石)(1孔)+开挖路面长度(混凝土砌块)(1孔)+开挖路面长度(水泥花砖)(1孔)+开挖路面长度(条石)(1孔)+开挖路面长度(混凝土)(2孔)+开挖路面长度(沥青柏油)(2孔)+开挖路面长度(砂石)(2孔)+开挖路面长度(混凝土砌块)(2孔)+开挖路面长度(水泥花砖)(2孔)+开挖路面长度(条石)(2孔)+开挖路面长度(混凝土)(3孔)+开挖路面长度(沥青柏油)(3孔)+开挖路面长度(砂石)(3孔)+开挖路面长度(混凝土砌块)(3孔)+开挖路面长度(水泥花砖)(3孔)+开挖路面长度(条石)(3孔)+开挖路面长度(混凝土)(4孔)+开挖路面长度(沥青柏油)(4孔)+开挖路面长度(砂石)(4孔)+开挖路面长度(混凝土砌块)(4孔)+开挖路面长度(水泥花砖)(4孔)+开挖路面长度(条石)(4孔)]+[镀锌钢管管道(1孔)+镀锌钢管管道(2孔)+镀锌钢管管道(3孔)+镀锌钢管管道(4孔)]+[机械顶管(1孔)+机械顶管(2孔)+机械顶管(3孔)+机械顶管(4孔)]}/100

2

TGD1-002

人工开挖路面 混凝土

100以下

百平方米

开挖路面长度(混凝土)(1孔)*开挖宽度(1孔)+开挖路面长度(混凝土)(2孔)*开挖宽度(2孔)+开挖路面长度(混凝土)(3孔)*开挖宽度(3孔)+开挖路面长度(混凝土)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

3

TGD1-004

人工开挖路面 沥青柏油

100以下

百平方米

开挖路面长度(沥青柏油)(1孔)*开挖宽度(1孔)+开挖路面长度(沥青柏油)(2孔)*开挖宽度(2孔)+开挖路面长度(沥青柏油)(3孔)*开挖宽度(3孔)+开挖路面长度(沥青柏油)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

4

TGD1-006

人工开挖路面 砂石

100以下

百平方米

开挖路面长度(砂石)(1孔)*开挖宽度(1孔)+开挖路面长度(砂石)(2孔)*开挖宽度(2孔)+开挖路面长度(砂石)(3孔)*开挖宽度(3孔)+开挖路面长度(砂石)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

5

TGD1-008

人工开挖路面 混凝土砌块

百平方米

开挖路面长度(混凝土砌块)(1孔)*开挖宽度(1孔)+开挖路面长度(混凝土砌块)(2孔)*开挖宽度(2孔)+开挖路面长度(混凝土砌块)(3孔)*开挖宽度(3孔)+开挖路面长度(混凝土砌块)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

6

TGD1-009

人工开挖路面 水泥花砖

百平方米

开挖路面长度(水泥花砖)(1孔)*开挖宽度(1孔)+开挖路面长度(水泥花砖)(2孔)*开挖宽度(2孔)+开挖路面长度(水泥花砖)(3孔)*开挖宽度(3孔)+开挖路面长度(水泥花砖)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

7

TGD1-010

人工开挖路面 条石

百平方米

开挖路面长度(条石)(1孔)*开挖宽度(1孔)+开挖路面长度(条石)(2孔)*开挖宽度(2孔)+开挖路面长度(条石)(3孔)*开挖宽度(3孔)+开挖路面长度(条石)(4孔)*开挖宽度(4孔)

开挖宽度由管孔数确定

8

TGD1-017

人工开挖管道沟及人（手）孔坑

普通土

百平方米

[开挖管道沟长度(普通土)(1孔)*管道沟横截面积(1孔)+开挖管道沟长度(普通土)(2孔)*管道沟横截面积(2孔)+开挖管道沟长度(普通土)(3孔)*管道沟横截面积(3孔)+开挖管道沟长度(普通土)(4孔)*管道沟横截面积(4孔)+新建小手*5+新建作业坑*3]/100

管道沟横截面积由管孔数确定；新建小手和新建作业坑的开挖土方默认按普通土记取

9

TGD1-018

人工开挖管道沟及人（手）孔坑

硬土

百平方米

[开挖管道沟长度(硬土)(1孔)*管道沟横截面积(1孔)+开挖管道沟长度(硬土)(2孔)*管道沟横截面积(2孔)+开挖管道沟长度(硬土)(3孔)*管道沟横截面积(3孔)+开挖管道沟长度(硬土)(4孔)*管道沟横截面积(4孔)]/100

管道沟横截面积由管孔数确定

10

TGD1-019

人工开挖管道沟及人（手）孔坑

砂砾土

百平方米

[开挖管道沟长度(砂砾土)(1孔)*管道沟横截面积(1孔)+开挖管道沟长度(砂砾土)(2孔)*管道沟横截面积(2孔)+开挖管道沟长度(砂砾土)(3孔)*管道沟横截面积(3孔)+开挖管道沟长度(砂砾土)(4孔)*管道沟横截面积(4孔)]/100

管道沟横截面积由管孔数确定

11

TGD1-021

人工开挖管道沟及人（手）孔坑

软石

百平方米

[开挖管道沟长度(软石)(1孔)*管道沟横截面积(1孔)+开挖管道沟长度(软石)(2孔)*管道沟横截面积(2孔)+开挖管道沟长度(软石)(3孔)*管道沟横截面积(3孔)+开挖管道沟长度(软石)(4孔)*管道沟横截面积(4孔)]/100

管道沟横截面积由管孔数确定

12

TGD1-028

回填土方

夯填原土

百平方米

[开挖管道沟长度(普通土)(1孔)*回填土房截面积(1孔)+开挖管道沟长度(普通土)(2孔)*回填土房截面积(2孔)+开挖管道沟长度(普通土)(3孔)*回填土房截面积(3孔)+开挖管道沟长度(普通土)(4孔)*回填土房截面积(4孔)+新建小手*1+新建作业坑*0.6]/100+[开挖管道沟长度(硬土)(1孔)*回填土房截面积(1孔)+开挖管道沟长度(硬土)(2孔)*回填土房截面积(2孔)+开挖管道沟长度(硬土)(3孔)*回填土房截面积(3孔)+开挖管道沟长度(硬土)(4孔)*回填土房截面积(4孔)]/100+[开挖管道沟长度(砂砾土)(1孔)*回填土房截面积(1孔)+开挖管道沟长度(砂砾土)(2孔)*回填土房截面积(2孔)+开挖管道沟长度(砂砾土)(3孔)*回填土房截面积(3孔)+开挖管道沟长度(砂砾土)(4孔)*回填土房截面积(4孔)]/100+[开挖管道沟长度(软石)(1孔)*回填土房截面积(1孔)+开挖管道沟长度(软石)(2孔)*回填土房截面积(2孔)+开挖管道沟长度(软石)(3孔)*回填土房截面积(3孔)+开挖管道沟长度(软石)(4孔)*回填土房截面积(4孔)]/100

回填土方截面积=管道沟截面积-管材截面积，由管孔数确定

13

TGD2-085

敷设塑料管道

1孔

百米

[开挖管道沟长度(普通土)(1孔)+开挖管道沟长度(硬土)(1孔)+开挖管道沟长度(砂砾土)(1孔)+开挖管道沟长度(软石土)(1孔)]/100

14

TGD2-086

敷设塑料管道

2孔(2*1)

百米

[开挖管道沟长度(普通土)(2孔)+开挖管道沟长度(硬土)(2孔)+开挖管道沟长度(砂砾土)(2孔)+开挖管道沟长度(软石土)(2孔)]/100

15

TGD2-087

敷设塑料管道

3孔(3*1)

百米

[开挖管道沟长度(普通土)(3孔)+开挖管道沟长度(硬土)(3孔)+开挖管道沟长度(砂砾土)(3孔)+开挖管道沟长度(软石土)(3孔)]/100

16

TGD2-089

敷设塑料管道

4孔(2*2)

百米

[开挖管道沟长度(普通土)(4孔)+开挖管道沟长度(硬土)(4孔)+开挖管道沟长度(砂砾土)(4孔)+开挖管道沟长度(软石土)(4孔)]/100

17

TGD2-103

敷设镀锌钢管管道

1孔

百米

镀锌钢管管道(1孔)/100

18

TGD2-104

敷设镀锌钢管管道

2孔(2*1)

百米

镀锌钢管管道(2孔)/100

19

TGD2-105

敷设镀锌钢管管道

3孔(3*1)

百米

镀锌钢管管道(3孔)/100

20

TGD2-106

敷设镀锌钢管管道

4孔(2*2)

百米

镀锌钢管管道(4孔)/100

21

TGD2-036

塑料管道基础 基础宽230

C15

百米

新建小手窗口数(1孔)*0.04

22

TGD2-039

塑料管道基础 基础宽360

C15

百米

新建小手窗口数(2-4孔)*0.04

23

TGD2-054

塑料管道基础加筋（人孔/手孔窗口处）

基础宽230

十处

新建小手窗口数(1孔)*0.2

24

TGD2-055

塑料管道基础加筋（人孔/手孔窗口处）

基础宽360

十处

新建小手窗口数(2-4孔)*0.2

25

TGD3-026

砖砌手孔（现场浇筑上覆）

90*120

个

新建小手

26

TGD3-094

砖砌配线手孔（SK2）

个

新建作业坑

27

TGD4-014

人孔壁开窗口

处

原有人孔壁开窗口

28

TGD9-098

机械顶管

1孔

米

机械顶管(1孔)+机械顶管(2孔)+机械顶管(3孔)+机械顶管(4孔)

该定额条目为人为定义

29

TGD9-099

机械顶管

每增加1孔

米

机械顶管(2孔)+机械顶管3孔)*2+机械顶管(4孔)*3

该定额条目为人为定义

30

TXL1-005

GPS定位

点

新建小手+新建作业坑

S305.材料中转表：实现项目设计材料的计算与生成，以通信管道工程为例，材料量由工程量和关键参数综合考虑计算得出。由于工程量本身既为关键参数的函数，本质上材料量仍由关键参数计算得出。由此算法得出的材料量满足工信部通信[2016]451号定额规定。材料算法具体内容如表4所示。

表4. 通信管道专业材料中转表

序号	材料名称	型号	单位	算法	备注
						1	电缆托架	60cm	根	TGD3-026*4
2	电缆托架穿钉	M16	根	TGD3-026*8
						3	积水罐带盖		套	TGD3-026*1
4	拉力环		个	TGD3-026*2
						5	作业坑盖板		个	TGD3-094*1
6	人孔口圈	复合型	套	TGD3-026*1
						7	水泥	425#	吨	[TGD3-026*0.53+TGD3-094*0.145]*0.86
8	粗砂		立方米	[TGD3-026*1.38+TGD3-094*0.63]/1.5
						9	碎石		立方米	[TGD3-026*0.72+TGD3-094*0.359]/1.65
10	机制砖		千块	TGD3-026*0.83+TGD3-094*0.48
						11	盘管		米	TGD2-085*1*101+TGD2-086*2*101+TGD2-087*3*101+TGD2-089*4*101
12	热轧钢筋φ6	HPB235Ⅰ级	公斤	TGD2-054*3.81+TGD2-055*5.8
						13	热轧钢筋φ10	HPB235Ⅰ级	公斤	TGD2-054*29.55+TGD2-055*39.4+TGD3-026*1.63
14	热轧钢筋φ12	HPB235Ⅰ级	公斤	TGD3-026*20.94
						15	热轧钢筋φ14	HPB235Ⅰ级	公斤	TGD3-026*13.82
16	机械顶管	1孔	孔/米	机械顶管(1孔)
						17	机械顶管	2孔	孔/米	机械顶管(2孔)
18	机械顶管	3孔	孔/米	机械顶管(3孔)
						19	机械顶管	4孔	孔/米	机械顶管(4孔)
20	镀锌钢管	φ110	米	TGD2-103*1+TGD2-104*2+TGD2-105*3+TGD2-106*4

S306.说明文本替换表：与说明文本和表格模板中设置的替换项一一对应，在“说明文本替换表”中，依次列出说明文本和表格模板中需替换内容并利用函数关系或命令将需替换内容与“关键参数提取表”、“基本信息输入表”、“预算表”、“个人信息表”中对应内容的关联和计算链接。

以通信管道专业为例，具体文本替换内容格式如表5所示。

表5. 通信管道专业文本替换表

序号	文本替换项	替换内容	来源
				1	工程名称gcmcyh	=基本信息输入!J2	与“基本信息输入表”链接
2	工程名称gcmceh	=基本信息输入!J3	与“基本信息输入表”链接
				3	工程名称gcmc	=C1&C2	与“基本信息输入表”链接
4	项目编号xmbh	=left(基本信息输入!,17)	与“基本信息输入表”链接
				5	建设单位jsdw	=基本信息输入!J4	与“基本信息输入表”链接
6	总负责zfz	=基本信息输入!J5	与“基本信息输入表”链接
				7	项目负责xmfz	=基本信息输入!J6	与“基本信息输入表”链接
8	联系电话：lxdh	="联系电话："&LOOKUP(C18,个人信息!$A$2:$A$60,个人信息!$C$2:$C$60)	判断负责人并查找“个人信息表”中对应关系链接
				9	电子邮箱dzyx	=LOOKUP(C18,个人信息!$A$2:$A$60,个人信息!$D$2:$D$60)	判断负责人并查找“个人信息表”中对应关系链接
10	审核sh	=基本信息输入!J9	与“基本信息输入表”链接
				11	勘察kc	=基本信息输入!J10	与“基本信息输入表”链接
12	设计sj	=基本信息输入!J11	与“基本信息输入表”链接
				13	日期rq	=TEXT(基本信息输入!J12,"yyyy年mm月")	与“基本信息输入表”链接
14	编制人bzr	=基本信息输入!J13	与“基本信息输入表”链接
				15	审核人shr	=基本信息输入!J14	与“基本信息输入表”链接
16	通信(概)字编制gz	="通信(费用)字"&LOOKUP(C25,个人信息!$A$2:$A$60,个人信息!$B$2:$B$60)	判断编制人并查找“个人信息表”中对应关系链接
				17	通信(概)字审核gz	="通信(费用)字"&LOOKUP(C26,个人信息!$A$2:$A$60,个人信息!$B$2:$B$60)	判断审核人并查找“个人信息表”中对应关系链接
18	工程投资gctz	="总投资"&预算表!K21&"元，设备费"&预算表!F21&"元，建筑安装工程费"&预算表!H21&"元，其他费"&预算表!I21&"元，预备费"&预算表!J21&"元"	其中数字与“预算表”中对应数据链接自动生成。
				19	工程建设规模gcjsgm	="本期工程新建通信管道全长"&关键参数提取!C21&"管程公里，共计"&关键参数提取!E21&"孔公里；其中，开挖1孔管道"&关键参数提取!L11/1000&"公里，开挖2孔管道"&关键参数提取!M11/1000&"公里，开挖3孔管道"&关键参数提取!N11/1000&"公里，开挖4孔管道"&关键参数提取!O11/1000&"公里，机械顶管1孔"&关键参数提取!C6&"米，机械顶管2孔"&关键参数提取!C7&"米，机械顶管3孔"&关键参数提取!C8&"米，机械顶管4孔"&关键参数提取!C9&"米，新建小号手孔"&关键参数提取!C1&"个，新建作业坑"&关键参数提取!C2&"个"	其中的数字与“关键参数提取”表中经过运算链接自动生成。
20	不含税的建设工程监理费bhsjlf	="不含税的建设工程监理费=（工程费*1.6%*40%）/1.06="&E20&"（元）"	E20=ROUND(预算表!H19*0.016*0.4/1.06,0)
				21	安全生产费为aqscf	="安全生产费为"& ROUND(预算表!D9,0)	数据从“预算模型”中自动链接取得
22	勘察费kcf	="勘察费="&'工程量&材料'!E5/10&"*2010*50%="&文本! E22&"（元）"	E22=ROUND('工程量&材料'!E5/10*2010*0.5,0)
				23	设计费sjf	="设计费="&基本信息输入!D4&"*3%*1.15*50%="&文本!E23&"（元）"	E23=ROUND(移动调节表一粘贴!H19*0.03*1.15*0.5,0)
24	勘察设计费kcsjf	="设计费="&基本信息输入!D4&"*3%*1.15*50%="&文本!E23&"（元）"	上面“22”、“23”项取得
				25	不含税的勘察设计费bhskcsjf	="不含税的勘察设计费=含税的勘察设计费/1.06="&E24&"/1.06="&F25&"（元）"	从上面“24”项取得
26	，开挖1孔管道0公里	=IF(关键参数提取!L11=0,"，开挖1孔管道0公里","")	判断替换
				27	，开挖2孔管道0公里	=IF(关键参数提取!M12=0,"，开挖2孔管道0公里","")	判断替换
28	，开挖3孔管道0公里	=IF(关键参数提取!N13=0,"，开挖3孔管道0公里","")	判断替换
				29	，开挖4孔管道0公里	=IF(关键参数提取!N14=0,"，开挖4孔管道0公里","")	判断替换
30	，机械顶管1孔0米	=IF(关键参数提取!C6=0,"，机械顶管1孔0米","")	判断替换
				31	，机械顶管2孔0米	=IF(关键参数提取!C7=0,"，机械顶管2孔0米","")	判断替换
32	，机械顶管3孔0米	=IF(关键参数提取!C8=0,"，机械顶管3孔0米","")	判断替换
				33	，机械顶管4孔0米	=IF(关键参数提取!C9=0,"，机械顶管4孔0米","")	判断替换
34	，新建小号手孔0个	=IF(关键参数提取!C1=0," ，新建小号手孔0个","")	判断替换
				35	，新建作业坑0个	=IF(关键参数提取!C2=0,"，新建作业坑0个","")	判断替换
36	标准预算bzys	="本期工程总投资"&预算表!$E$11&"元，设备费"&预算表!$E$2&"元，建筑安装工程费"&预算表!$E$4&"元，其他费"&预算表!$E$5&"元，预备费"&预算表!$E$10&"元。	其中数字与“预算表”中对应数据链接自动生成。
				37	调节预算tjys	="总投资"&预算表!$D$11&"元，设备费"&预算表!$D$2&"元，建筑安装工程费"&预算表!$D$4&"元，其他费"&预算表!$D$5&"元，预备费"&预算表!$D$10&"元。	其中数字与“预算表”中对应数据链接自动生成。
38	资本性支出预算投资zbxzcystz元	=预算表!R19&"元"
				39	建筑安装工程费jzazgcf元	=预算表!R12&"元"
40	其他费qtf元	=预算表!R13&"元"
				41	勘察设计费kcsjf元	=预算表!R15&"元"
42	监理费jlf元	=预算表!R16&"元"
				46	建设单位管理费jsdwglf元	=预算表!R16&"元"
47	安全生产费aqscf元	=预算表!R17&"元"
				48	增值税zzs元	=SUM(预算表!Z10:Z13)&"元"
49	税一sy元	=预算表!Z10&"元"
				50	税二se元	=预算表!Z11&"元"
51	税三ss元	=预算表!Z12&"元"
				52	税四ss元	=预算表!Z13&"元"
53	勘察费电信kcfdx	=IF(G2<=0.2,R1,IF(AND(0.2<G2,G2<=1),R2,IF(AND(1<G2,G2<=3),R3,IF(AND(3<G2,G2<=5),R4,IF(AND(5<G2,G2<=10) ,R5,IF(AND(10<G2,G2<=50),R6,IF(G2>50,R7)))))))
				54	设计费电信kcfdx	=E57-Q2
55	除税勘察设计费电信cskcsjfdx	=C54&"+"&C55&"
				56	含税勘察设计费电信hskcsjfdx	=E57&"*1.06="&E58
57	地市ds	=基本信息输入!J35
				58	估算资本性支出预算投资zbxzcystz万元	=ROUND(E62/10000,1)&"万元"
59	估算建筑安装工程费jzazgcf万元	=ROUND(E63/10000,1)&"万元"
				60	估算其他费qtf万元	=(left(C62,LEN(C62)-2)-left(C63,LEN(C63)-2))&"万元"
61	估算增值税zzs万元	=ROUND(E65/10000,1)&"万元"
				62	估算税一sy万元	=ROUND(E66/10000,1)&"万元"
66	估算税二se万元	=ROUND(E67/10000,1)&"万元"
				67	估算税三ss万元	=ROUND((left(C65,LEN(C65)-2)-left(C66,LEN(C66)-2)-left(C67,LEN(C67)-2)-left(C69,LEN(C69)-2)),1)&"万元"
68	估算其税四ss万元	=ROUND(E69/10000,1)&"万元"
				69	可研批复文号kypfwh	=基本信息输入!J36
70	项目编号YDxmbh	=基本信息输入!J37
				71	设计单位sjdw	=基本信息输入!J38

S307.说明表格替换表：首先将“设计说明模板.docx”中需要根据工程内容和规模替换的表格全部依次导入通信管道专业场景excel关联数据模型文件的“说明表格替换表”中，然后将表中数据和内容利用关联关系进行计算或链接。说明表格需替换内容格式具体如表6、表7、表8、表9、表10所示。

表6. 管道建设规模表

序号	段落	路由长度（公里）	管孔数（孔）	管程公里（孔公里）	备注
						1	=IF(OFFSET(关键参数提取!E$1,0,ROW()-2)=0,0,OFFSET(关键参数提取!E$1,0,ROW()-2))	=IF(OFFSET(关键参数提取!E$64,0,ROW()-2)=0,0,OFFSET(关键参数提取!E$64,0,ROW()-2))/1000	=left(INDEX(关键参数提取!D$60:D$63,MATCH(C2*1000, 关键参数提取!E$60:E$63,0)),1)	=C2*D2
2	同上	同上	=left(INDEX(关键参数提取!D$60:D$63,MATCH(C3*1000, 关键参数提取!F$60:F$63,0)),1)	=C3*D3
						3	同上	同上	上格下拉	上格下拉
4	……	……	……	……

表7. 管道项目投资组成及占比表

序号	费用项目名称	金额（元）	占比（%）
				1	国内需要安装设备费	=基本信息输入!D2	=ROUND(L2/$L$6,2)*100&"%"
2	建筑安装工程费	=基本信息输入!D4	=ROUND(L3/$L$6,2)*100&"%"
				3	工程建设其他费	=基本信息输入!D5	=ROUND(L4/$L$6,2)*100&"%"
4	预备费	=基本信息输入!D10	=ROUND(L5/$L$6,2)*100&"%"
				5	预算总额	=基本信息输入!D11	=ROUND(L6/$L$6,2)*100&"%"

表8. 管道项目资本性支出费用表

序号	费用名称	按工信部规【2008】75号定额预算（元）	资本性支出预算（元）	市场调节系数
					1	需要安装的设备费	=IF(预算表!D6=0,"",ROUNDUP(预算表!D6,2))	=IF(预算表!E6=0,"",ROUNDUP(预算表!E6,2))	=""
2	不需安装的设备和工器具	=IF(预算表!D7=0,"",ROUNDUP(预算表!D7,2))	=IF(预算表!E7=0,"",ROUNDUP(预算表!E7,2))	=""
					3	建筑安装工程费	=IF(预算表!D8=0,"",ROUNDUP(预算表!D8,2))	=IF(预算表!E8=0,"",ROUNDUP(预算表!E8,2))	=基本信息输入!F4
4	其他费用	=IF(预算表!D9=0,"",ROUNDUP(预算表!D9,2))	=IF(预算表!E9=0,"",ROUNDUP(预算表!E9,2))
					其中
4.1	勘察设计费	=IF(预算表!D11=0,"",ROUNDUP(预算表!D11,2))	=IF(预算表!E11=0,"",ROUNDUP(预算表!E11,2))	=基本信息输入!F7
					4.2	建设工程监理费	=IF(预算表!D12=0,"",ROUNDUP(预算表!D12,2))	=IF(预算表!E12=0,"",ROUNDUP(预算表!E12,2))	=基本信息输入!F8
4.3	安全生产费	=IF(预算表!D13=0,"",ROUNDUP(预算表!D13,2))	=IF(预算表!E13=0,"",ROUNDUP(预算表!E13,2))
					5	预备费	=IF(预算表!D14=0,"",ROUNDUP(预算表!D14,2))	=IF(预算表!E14=0,"",ROUNDUP(预算表!E14,2))
6	项目总投资	=IF(预算表!D15=0,"",ROUNDUP(预算表!D15,2))	=IF(预算表!E15=0,"",ROUNDUP(预算表!E15,2))

表9. 管道项目增值税税金计算表

序号	费用名称	总费用（元）	增值税率	价款（元）	增值税（元）
						1	硬件设备及甲供材料费	=IF(预算表!I6=0,"",ROUNDUP(预算表!I6,2))	=IF(预算表!J6=0,"",ROUNDUP(预算表!J6,2))	=IF(预算表!K6=0,"",ROUNDUP(预算表!K6,2))	=IF(预算表!L6=0,"",ROUNDUP(预算表!L6,2))
2	勘察设计费	=IF(预算表!I7=0,"",ROUNDUP(预算表!I7,2))	=IF(预算表!J7=0,"",ROUNDUP(预算表!J7,2))	=IF(预算表!K7=0,"",ROUNDUP(预算表!K7,2))	=IF(预算表!L7=0,"",ROUNDUP(预算表!L7,2))
						3	建设工程监理费	=IF(预算表!I8=0,"",ROUNDUP(预算表!I8,2))	=IF(预算表!J8=0,"",ROUNDUP(预算表!J8,2))	=IF(预算表!K8=0,"",ROUNDUP(预算表!K8,2))	=IF(预算表!L86=0,"",ROUNDUP(预算表!L8,2))
4	施工合同金额	=IF(预算表!I9=0,"",ROUNDUP(预算表!I9,2))	=IF(预算表!J9=0,"",ROUNDUP(预算表!J9,2))	=IF(预算表!K9=0,"",ROUNDUP(预算表!K9,2))	=IF(预算表!L9=0,"",ROUNDUP(预算表!L9,2))

表10. 管道项目市场调节预算费用变化表

序号	费用名称	标准取费（元）	市场调节取费（元）	调节费用（元）
					1	建筑安装工程费	=IF(预算表!I13=0,"",ROUNDUP(预算表!I13,2))	=IF(预算表!J13=0,"",ROUNDUP(预算表!J13,2))	=IF(预算表!L13=0,"",ROUNDUP(预算表!L13,2))
2	勘察设计费	=IF(预算表!I14=0,"",ROUNDUP(预算表!I14,2))	=IF(预算表!J14=0,"",ROUNDUP(预算表!J14,2))	=IF(预算表!L14=0,"",ROUNDUP(预算表!L14,2))
					3	建设工程监理费	=IF(预算表!I15=0,"",ROUNDUP(预算表!I15,2))	=IF(预算表!J15=0,"",ROUNDUP(预算表!J15,2))	=IF(预算表!L15=0,"",ROUNDUP(预算表!L15,2))

S308.预算表：利用步骤S5中预算模型完成预算，将完成的TSY-1表和TSY-5甲表返回导入到通信管道专业场景excel关联数据模型文件的“预算表”内，如图2所示，将预算结果关联到通信管道专业场景excel关联数据模型文件中相应表格的相关位置处。

S309.个人信息表：包括单位人员姓名、电话、预算编号等，具体内容如表11所示。

表11. 通信管道专业个人信息表

姓名	预算证编号	电话号码	邮箱

S4.生成独立表：通过宏命令生成、导出独立的工程量表、材料表和设备表。

设计excel宏命令从步骤S3中的 “工程量中转表”、“材料中转表”中分别筛选提取非“0”数据条目，将结果复制到所属表格的指定筛选结果区域，再利用筛选结果区域的数据自动生成、导出独立的工程量表和材料表；所述筛选结果区域与原始数据区域不相重叠。在所述工程量表和材料表生成、导出前，通过设计excel宏命令对筛选结果区域数据进行初始化清空操作，以保证新的筛选结果条目数少于现有条目数时能够得到正确结果。

下面以工程量表为例说明：

S401.工程量表的生成

Sub 工程量生成()

Range("A2:I550").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"J2:J3"), CopyToRange:=Range("L2:T550"), Unique:=False

*在A2：I550区域以J2：J3区域所标示的条件（数量不为0）进行筛选，筛选结果复制到L2：T550区域。对工程量表而言就是筛选出数量不为0的条目，然后复制到指定区域待下一步操作。

Dim fname0

Dim fname

Range("J1").Select

Selection.Copy

Range("K1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _

:=False, Transpose:=False

fname = ActiveSheet.Cells(1, 11).Value

Range("F1").Select

Selection.Copy

Range("H1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _

:=False, Transpose:=False

fname0 = ActiveSheet.Cells(1, 8).Value

*利用excel公式和宏命令构建了下一步所生成工程量导表所需的文件名及全路径名，分别存入fname及fname0。

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=fname, _

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Workbooks.Open Filename:=fname

Windows("管道关联模型.xlsm").Activate

Range("L2:T550").Select

Selection.Copy

Windows(fname0).Activate

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWorkbook.Save

ActiveWindow.Close

*新建一个名为fname的excel文件，保存路径为fname0。将筛选后的结果复制到该文件（即为最终导入预算软件的导表），保存并关闭。

S402.工程量表的初始化

Sub 删除工程量()

Range("L2:T550").ClearContents

Sheets("工程量生成").Select

End Sub

*初始化进行的操作是对筛选结果区域进行数据清空（删除），以保证新的筛选结果条目数少于现有条目数时能够得到正确结果。

S5.通信管道专业预算模型的建立：利用excel软件建立预算编制模型文件，命名为“管道预算. Xlsm”，包含信息费率表、TSY-1表、TSY-2表、TSY-3甲表、TSY-3乙表、TSY-3丙表、TSY-4甲A表、TSY-4甲B表、TSY-5甲表。

其中，信息费率表包括两部分内容，一是通信管道工程基本信息，二是通信管道工程费率信息。

S501通信管道工程基本信息

具体内容如表12所示。

表12. 通信管道工程基本信息表

名称	信息填写	备注
			建设项目名称：		手动填写
单项工程名称：		手动填写
			单位工程名称：		手动填写
建设单位名称：		手动填写
			设计负责人：		手动填写
审核：		手动填写
			编制：		手动填写
编制日期：		手动填写
			专业类别	通信管道工程	下拉菜单选择
特殊地区	不需要	下拉菜单选择
			工程名称	通信管道工程	下拉菜单选择
	通信管道工程	下拉菜单选择
				通信管道工程	下拉菜单选择
	通信管道工程	下拉菜单选择
				通信管道工程	下拉菜单选择
	II	下拉菜单选择
			大型施工机械	光缆接续车	下拉菜单选择
可行性研究费计费调整系数		手动填写
			可行性研究批复总投资（万元）		手动填写
设计费计费调整系数		手动填写
			建管费率		手动填写
扩容工日调增系数		手动填写
			特殊地区调整系数		手动填写
调遣里程	Km	手动填写
			调遣运距	Km	手动填写
设备运输里程	Km	手动填写
			器材运输里程	Km	手动填写
新建基站数	站	手动填写
			机械台班系数	1	手动填写
是否需要表三乙(机械表)	是	下拉菜单选择
			是否需要表三丙(仪器表)	是	下拉菜单选择
是否需要表四甲（国内材料）	是	下拉菜单选择

S502通信管道工程费率信息：根据《信息通信建设工程概预算编制规程》中的规定，将通信管道工程中概预算相关单价、费率输入表中，做为预算编制基础数据，包括人工费单价、辅助材料费率、搬运费率等。详细内容及规定见《信息通信建设工程概预算编制规程》。

其中，TSY-3甲表、TSY-4甲A表和TSY-4甲B表由步骤S4的工程量表、材料表和设备表调整格式，导入生成；TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表系根据《信息通信建设工程概预算编制规程》中的规定，利用excel函数关联计算得出。

S6. 通信管道专业场景exe应用程序设计：利用“按键小精灵”应用小软件，选取相应功能插件，用按键小精灵自带编程工具将步骤S2说明文本word模板和Excel表格模板文件中的需替换内容与步骤S3专业场景的excel关联设计模型中相关信息进行关联编程，完成通信管道专业场景的exe应用程序，命名为“管道.exe”。可执行文件工作界面见图3。

对于word文本的写入：通过对事先在word中人为设定的唯一“标识性文字”进行替换，来达到修改文本和写入内容的功能。替换与被替换的内容利用excel进行计算并逐行记录，通过“按键精灵”软件进行逐行读取并执行替换操作，替换word中的“标识性文字”。

对于word表格的写入：利用“按键精灵”软件查找到表格的“标识性文字”，进而定位word中的表格。表格中需要填写的内容通过excel计算、整理并生成，通过“按键精灵”软件进行逐行读取并写入word的对应表格。

具体源程序如下：

//lj0 =C:\Documents and Settings\guc\桌面\q2\管道关联模型.xlsm

//说明文本名称-手动

Dim smwb

//表格路径、中转路径、文本路径

Dim ljex, lj0, ljwo

//工程名称－页眉、变更文件名称用

Dim gcmc

//替换项总行数

Dim wbhs

//替换项总行数所在sheet、行、列-手动

Dim 文本参数1，文本参数2，文本参数3

文本参数1=5

文本参数2=1

文本参数3=4

//替换项、替换内容所在sheet、列1，列2-手动

Dim 文本参数4，文本参数5，文本参数6

文本参数4 =5

文本参数5 =2

文本参数6 = 3

//替换项与替换内容

Dim 查找y(255), 查找s(255)

//-----------------------------------------------------

//表格总数

Dim bgzs

//说明表格表数量所在sheet、行、列-手动

Dim 表格参数1，表格参数2，表格参数3

If Form1.CheckBox11.value = 1 and Form1.CheckBox12.value = 0 Then

表格参数1=14

表格参数2=2

表格参数3=9

ElseIf Form1.CheckBox11.value = 0 and Form1.CheckBox12.value = 1 Then

表格参数1=14

表格参数2=10

表格参数3=9

End If

//说明表格表头所在sheet、第一格所在行、列-手动

Dim 表格参数4，表格参数5，表格参数6

If Form1.CheckBox11.value = 1 and Form1.CheckBox12.value = 0 Then

表格参数4 =14

表格参数5 = 2

表格参数6 = 2

ElseIf Form1.CheckBox11.value = 0 and Form1.CheckBox12.value = 1 Then

表格参数4 =14

表格参数5 =10

表格参数6 = 2

End If

//表格表头

Dim 查找b(255,255)

//表格序号

Dim 表格序号

//表格内容

Dim 表格(255, 255, 255)

//word表格索引

Dim wordbgsy(255)

//-------------------------------------------------------

//表格名称字符长度含.xlsx（n+5）

Dim t

t = 11。

//-----------------过程事件---------------------------------------

Event Form1.Button1.Click

t=11

If Form1.CheckBox11.value = 1 and Form1.CheckBox12.value = 0 Then

smwb = "通信管道设计说明Y.docx" （移动）

ElseIf Form1.CheckBox11.value = 0 and Form1.CheckBox12.value = 1Then

smwb = "通信管道设计说明D.docx" （电信）

End If

ljex = Form1.BrowseBox1.Path

lj0=left(ljex, len(ljex) - t)

PutAttachment lj0, smwb

End Event

//------------子函数------------------------------------------

Sub 表格路径处理

ljex = Form1.BrowseBox1.Path

End Sub

Sub 文本选择处理

If Form1.CheckBox11.value = 1 and Form1.CheckBox12.value = 0 Then

smwb = "通信管道设计说明Y.docx" （移动）

ElseIf Form1.CheckBox11.value = 0 and Form1.CheckBox12.value = 1Then

smwb = "通信管道设计说明.docx" （电信）

End If

End Sub

Sub 文本路径处理

If Form1.CheckBox10.value = 1 Then

ljwo = Form1.BrowseBox2.Path

Else

lj0 = left(ljex, len(ljex) - t)

PutAttachment lj0,smwb

ljwo = lj0 & smwb

End If

Form1.CheckBox10.value = 0

End Sub

Sub 读取替换内容

wbhs = Plugin.LazyOffice.ExcelRead(文本参数1,文本参数2,文本参数3,excelsy)

n = 1

For wbhs

查找y(n)=Plugin.LazyOffice.ExcelRead(文本参数1,n,文本参数5,excelsy)

查找s(n) = Plugin.LazyOffice.ExcelRead(文本参数1,n,文本参数6,excelsy)

n=n+1

Next

End Sub

Sub 执行文本替换

n = 1

For wbhs

Plugin.LazyOffice.WordFind 查找y(n),查找s(n),wordsy

n=n+1

Next

End Sub

sub 读取表格参数

bgzs=Plugin.LazyOffice.ExcelRead(表格参数1,表格参数2,表格参数3,excelsy)

n= 1

m=1

For bgzs

m=1

For 7

查找b(n,m) = Plugin.LazyOffice.ExcelRead(表格参数4,n+表格参数5-1,m+表格参数6-1,excelsy)

m=m+1

Next

n=n+1

Next

End Sub

Sub 读取表格内容

n = 1

b = 1

c = 1

For bgzs

b=1

c=1

For 查找b(n ,3)

c=1

For 查找b(n,4)

表格(n,b,c)=Plugin.LazyOffice.ExcelRead(查找b(n,2),b+查找b(n,5)-1,c+查找b(n,6)-1,excelsy)

c = c + 1

Next

b=b+1

Next

n=n+1

Next

End Sub

Sub 写入表格内容

n = 1

b = 1

c = 1

For bgzs

b = 1

c = 1

Plugin.LazyOffice.WordFind 查找b(n, 1), 0, wordsy

Plugin.LazyOffice.WordSetCursor "行", 1, 0, 0, wordsy

wordbgsy(n) = Plugin.LazyOffice.WordTableSelected(wordsy)

If 查找b(n,7) = 1 Then

For 查找b(n, 3) - 2

Plugin.LazyOffice.WordTableRowAdd wordbgsy(n),wordsy

Next

End If

For 查找b(n,3)

c=1

For 查找b(n, 4)

If 0<表格(n,b,c) < 1 Then

Plugin.LazyOffice.WordTableWrite wordbgsy(n),b,c,"0"&表格(n,b,c),wordsy

Else

Plugin.LazyOffice.WordTableWrite wordbgsy(n),b,c,表格(n,b,c),wordsy

End If

c=c + 1

Next

b=b+1

Next

n = n + 1

Next

End Sub

Sub 获取工程名称

gcmc = Plugin.LazyOffice.ExcelRead(5, 3, 3, excelsy)

End Sub。

//-------------------------------main--------------------------

If Form1.CheckBox9.value = 1 Then

If Form1.CheckBox11.value = 1 and Form1.CheckBox12.value = 1 Then

Goto aa

ElseIf Form1.CheckBox11.value = 0 and Form1.CheckBox12.value = 0Then

Goto aa

End If

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex,0)

Delay 500

Call 读取替换内容

Call 读取表格参数

Call 读取表格内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

Call 文本选择处理

Call 文本路径处理

wordsy = Plugin.LazyOffice.wordOpen(ljwo, 1)

Delay 500

Call 执行文本替换

Call 写入表格内容

Plugin.LazyOffice.WordSetPage "页眉",gcmc,wordsy

Plugin.LazyOffice.WordSave wordsy

Plugin.LazyOffice.WordClose wordsy

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 & gcmc & ".docx"

End If

Rem aa。

//------------------------立项报告----------------------

If Form1.CheckBox5.Value = 1 Then

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex, 0)

Call 读取替换内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

smwb = "立项报告.docx"

Call 文本路径处理

wordsy = Plugin.LazyOffice.wordOpen(ljwo, 0)

Call 执行文本替换

Plugin.LazyOffice.WordSave wordsy

Plugin.LazyOffice.WordClose wordsy

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 & gcmc & "立项报告.docx"

End if。

//------------------------评审会议纪要-------------------

If Form1.CheckBox2.Value = 1 Then

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex, 0)

Call 读取替换内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

smwb = "关于《》评审会议纪要.docx"

Call 文本路径处理

wordsy = Plugin.LazyOffice.wordOpen(ljwo, 0)

Call 执行文本替换

Plugin.LazyOffice.WordSave wordsy

Plugin.LazyOffice.WordClose wordsy

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 &"关于《"&gcmc & "》评审会议纪要.docx"

End I。

//------------------------设计批复-------------------

If Form1.CheckBox4.Value = 1 Then

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex, 0)

Call 读取替换内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

smwb = "关于《》设计的批复.docx"

Call 文本路径处理

wordsy = Plugin.LazyOffice.wordOpen(ljwo, 0)

Call 执行文本替换

Plugin.LazyOffice.WordSave wordsy

Plugin.LazyOffice.WordClose wordsy

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 &"关于《"&gcmc&"》设计的批复.docx"

End If。

//------各部门分担投资---------------------------------------

If Form1.CheckBox1.Value = 1 Then

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex, 0)

Call 读取替换内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

smwb = "各部门分担投资-.xls"

Call 文本路径处理

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 &"各部门分担投资-"&gcmc & ".xls"

End If。

//------------------------导入任务模板---------------

If Form1.CheckBox13.Value = 1 Then

Call 表格路径处理

excelsy = Plugin.LazyOffice.ExcelOpen(ljex, 0)

Call 读取替换内容

Call 获取工程名称

Plugin.LazyOffice.ExcelSave excelsy

Plugin.LazyOffice.ExcelClose excelsy

smwb = "导入任务模板-.xlsx"

Call 文本路径处理

Plugin.lxj_Plug.lxj_Rename lj0 & smwb, lj0 &"导入任务模板-"& gcmc& ".xlsx"

End If。

S7.运行通信管道专业场景exe应用程序，自动输出说明文本和表格文件：运行“管道.exe”，自动输出说明文本和表格文件，包括“工程设计说明.docx ”、“工程设计批复.docx”、“工程会议纪要.docx”、“工程立项报告.docx”、“工程导入任务表.xlsm”、“工程部门分摊投资.xlsm”。

实施例2：

如图4所示，以通信管道专业为例，说明通信工程设计预算和说明文本自动化生成系统的使用方法，按如下步骤操作：

A1.打开通信管道专业场景excel关联数据模型文件，填写“关键参数提取表”、“基本信息输入表”；

A2.生成独立表：

A201.打开“工程量中转表”，利用Excel宏命令进行初始化清空操作，再提取“工程量中转表”中的非“0”数据条目自动生成、导出独立的工程量表。

A202.打开“材料中转表”，利用Excel宏命令进行初始化清空操作，再提取 “材料中转表”中的非“0”数据条目自动生成、导出独立的材料表。

A3.打开通信管道专业场景预算模型文件，将步骤A201、A202生成、导出的独立的工程量表、材料表和设备表调整格式分别导入预算模型文件中的TSY-3甲表、TSY-4甲A表。填写预算模型中“信息费率表”中的工程信息，通过关联计算直接得出完整的TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表结果，完成预算。

A4.将TSY-1表、TSY-5甲表的结果拷贝到通信管道专业场景excel关联数据模型文件的“预算表”内。

A5.运行通信管道专业场景的exe应用程序，在程序界面中“表格”浏览框点击打开专业场景excel关联数据模型文件，然后在软件界面内勾选设计所需要的文件框，最后点击“启动F10”键。所生成的文件全部自动放在通信管道专业场景excel关联数据模型文件所在的目录中。

A6.打开生成的各类说明文本文件，完成需要手动处理的内容，结束设计。

以上所述，仅是本发明的较佳实施例，并非用以限制本发明的权利范围。任何以本申请专利范围所涵盖的权利范围实施的技术方案，或者任何熟悉本领域的技术人员，利用上述揭示的方法内容做出许多可能的变动和修饰的方案，均属于本发明的保护范围。

Claims (7)

1.通信工程设计预算和说明文本自动化生成系统，其特征在于：按如下步骤操作构建：

S1.设计专业和场景分析：首先分析设计专业，按设计的特点、设计内容、设计的数据类型，将专业分成不同场景，每种场景内容类似，具有共同设计特点，为建模做好准备；

S2.说明文本和表格模板设计：包括说明文本word模板和excel表格模板的设计，根据各专业设计场景内容、专业方案、专业特点和依据编制“设计说明模板.docx ”、“设计批复模板.docx”、“会议纪要模板.docx”、”立项报告模板.docx”、“导入任务模板.xlsm”、“部门分摊投资模板.xlsm”，各模板中均包含固定内容部分、需替换内容、需编辑内容；

S3.建立各专业场景excel关联数据模型：利用excel软件，根据专业和场景涉及到的内容分别建立各专业场景excel模型框架文件，再分别列出各专业场景模型excel框架文件中各类信息表的具体内容；分析查找各专业场景模型文件各表中数据信息的直接或间接关联关系，并利用函数关系和宏命令将其全部关联起来，建成各相关专业场景excel关联数据模型文件；

S4.生成独立表：使用宏命令对步骤S3中各专业场景excel关联数据模型文件进行处理，生成、导出独立的工程量表、材料表和设备表；

S5.建立预算模型：利用excel软件建立预算编制模型文件，文件中包含信息费率表、TSY-1表、TSY-2表、TSY-3甲表、TSY-3乙表、TSY-3丙表、TSY-4甲A表、TSY-4甲B表、TSY-5甲表；在所述“信息费率表”中，由人工录入通信工程预算各类费率和工程基本信息内容；所述TSY-3甲表、TSY-4甲A表和TSY-4甲B表由步骤S4的工程量表、材料表和设备表调整格式，导入生成；所述TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表系根据《信息通信建设工程概预算编制规程》工信部通信[2016]451号中的规定，利用excel函数关联计算得出；

S6.各专业场景的应用程序设计：利用“按键小精灵”应用小软件，选取相应功能插件，用按键小精灵自带编程工具将步骤S2中说明文本word模板和表格模板文件中的需替换内容与步骤S3中各专业场景excel关联数据模型文件中相关信息进行关联编程，完成专业场景的exe应用程序；

S7.运行应用程序，自动输出说明文本和表格文件：通过运行步骤S6中专业场景的exe应用程序，自动生成本专业场景设计的各类说明文本和表格文件

所述步骤S4具体为：设计excel宏命令从步骤S3中的“工程量中转表”、“材料中转表”和“设备中转表”中分别筛选提取非“0”数据条目，将结果复制到所属表格的指定筛选结果区域，再利用筛选结果区域的数据自动生成、导出独立的工程量表、材料表和设备表；所述筛选结果区域与原始数据区域不相重叠；

在步骤S4中，所述工程量表和材料表生成、导出前，通过设计excel宏命令对筛选结果区域数据进行初始化清空操作，以保证新的筛选结果条目数少于现有条目数时能够得到正确结果。

2.如权利要求1所述的通信工程设计预算和说明文本自动化生成系统，其特征在于：

在步骤S1中，所述专业场景为以下专业场景中的至少一个：

通信线路专业的“中继光缆、长途光缆线路工程”、“城域网光缆优化扩容工程”、“基站配套光缆接入线路工程”、“FTTH接入工程”、“集客接入光缆线路工程”五个场景，

通信管道专业的“通信管道建设工程”一个场景，

传输设备专业的“干线传输系统设备安装工程”、“波分系统设备安装工程”、“城域传送网传输设备建设工程”、“基站配套传输设备安装工程”、“集客接入设备安装工程”五个场景；

无线专业的“无线基站设备安装工程”一个场景。

3.如权利要求1所述的通信工程设计预算和说明文本自动化生成系统，其特征在于：在步骤S3中，所述各专业场景模型excel框架文件中各类信息表具体为：

通信线路专业和通信管道专业各场景模型excel框架文件中各类信息表包括：“关键参数提取表”、“基本信息输入表”、“图纸目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“材料中转表”、“预算表”、“个人信息表”9个表；

传输设备专业各场景关联模型excel框架文件中各类信息表包括：“基本信息输入表”、“配套设备表”、“传输设备表”、“目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“设备中转表”、“材料中转表”、“规模信息表”、“预算表”、“个人信息表”12个表；

无线专业的“无线基站设备安装工程”场景关联模型文件中包括：“基本信息输入表”、“配套设备表”、“目录表”、“说明文本替换表”、“说明表格替换表”、“工程量中转表”、“设备中转表”、“材料中转表”、“规模信息表”、“天线参数表”、“预算表”、“个人信息表”12个表。

4.如权利要求3所述的通信工程设计预算和说明文本自动化生成系统，其特征在于：在步骤S2中，所述需替换内容包括与步骤S3中各专业场景excel关联数据模型中相关联的“图纸目录表”、“说明文本替换表”、“说明表格替换表”内容；所述需编辑内容为说明文本中需描述的内容。

5.如权利要求1所述的通信工程设计预算和说明文本自动化生成系统，其特征在于：在步骤S3中，所述函数关系包括查找、判断、嵌套、计算、选择、求和、统计。

6.如权利要求1所述的通信工程设计预算和说明文本自动化生成系统，其特征在于：在步骤S7中，所述各类说明文本和表格文件具体为“工程设计说明.docx”、“工程设计批复.docx”、“工程会议纪要.docx”、“工程立项报告.docx”、“工程导入任务表.xlsm”、“工程部门分摊投资.xlsm”。

7.一种通信工程设计预算和说明文本自动化生成系统的使用方法，按如下步骤操作：

A1.打开相对应专业场景的excel关联数据模型文件，在每个关键参数预置赋值口录入相应参数值，其中，

通信线路专业和通信管道专业场景填写“关键参数提取表”、“基本信息输入表”；

传输设备专业场景填写“基本信息输入表”、“配套设备表”、“传输设备表”、“规模信息表”；

无线专业场景填写“基本信息输入表”、“配套设备表”、“规模信息表表”、“天线参数表”；

A2.生成独立表：

A201.打开“工程量中转表”，利用Excel宏命令进行初始化清空操作，再提取“工程量中转表”中的非“0”数据条目自动生成、导出独立的工程量表；

A202.打开“材料中转表”，利用Excel宏命令进行初始化清空操作，再提取“材料中转表”中的非“0”数据条目自动生成、导出独立的材料表；A203.打开“设备中转表”，利用Excel宏命令进行初始化清空操作，再提取“设备中转表”中的非“0”数据条目自动生成、导出独立的设备表；

所述工程量表和材料表生成、导出前，通过设计excel宏命令对筛选结果区域数据进行初始化清空操作，以保证新的筛选结果条目数少于现有条目数时能够得到正确结果；

所述A201、A202及A203步骤具体为：设计excel宏命令从“工程量中转表”、“材料中转表”和“设备中转表”中分别筛选提取非“0”数据条目，将结果复制到所属表格的指定筛选结果区域，再利用筛选结果区域的数据自动生成、导出独立的工程量表、材料表和设备表；所述筛选结果区域与原始数据区域不相重叠；

A3.打开预算模型文件，将步骤A201、A202及A203中生成、导出的独立的工程量表、材料表和设备表调整格式分别导入预算模型文件中的TSY-3甲表、TSY-4甲A表、TSY-4甲B表；填写预算模型中“信息费率表”中的工程信息，通过关联计算直接得出完整的TSY-1表、TSY-2表、TSY-3乙表、TSY-3丙表、TSY-5甲表结果，完成预算；

A4.将TSY-1表、TSY-5甲表的结果拷贝到各相关专业场景excel关联数据模型文件的“预算表”内；

A5.运行专业场景的exe应用程序，在程序界面中“表格”浏览框后点击打开专业场景的excel关联数据模型，然后在软件界面内勾选设计所需要的文件框，最后点击“启动F10”键；所生成的文件全部自动放在各专业场景excel关联数据模型文件所在的目录中。

Images