单元式板块加工数据自动化处理系统

单元式板块加工数据自动化处理系统

张超

深圳金粤幕墙装饰工程有限公司

摘要：单元式板块加工数据自动化处理系统，其功能在于：只需要输入单元板块的一些基本必要的原始数据，就可以实现杆件编号、加工长度、加工数量、板块组框信息表与杆件配料信息汇总自动化生成。

关键词：单元式板块；加工数据；自动化

1、背景：

建筑外观日趋复杂，加工图设计难度剧增。大量重复的绘图、填表操作，费时费力，错误难以避免。尤其单元式幕墙，加工图设计有一定难度，对设计师有较高的技术要求，需要长期投入主设计。迫切需要一种方法，把设计师从枯燥的体力劳动中解放出来，把更多精力用在技术创新发展上。

本方法将单元式幕墙加工图内容上分为两个部分：加工图及组框图；形式上分为两个部分：图纸及数据。

其中一块分格倾斜单元板块编号：

XG—W01RQD

XG-西面高区板块

W-板块倾角为外斜

01-序列号

R-支座且右侧支座侧埋（隐含左侧顶埋）。程序自动识别C、L、X等判断支座信息，选择对应加工图号并填表。

Q-防风销。程序自动识别，选择对应横梁加工图号并填表。

D-灯槽连接件。程序自动识别，选择对应立柱加工图号并填表。

单元板块编号完成后，在Excel表格中建立如下工作簿：

BK——板块基本信息

ZK——单元板块组框数据

BKNO——辅助计算表格

杆件乘数——板块中加工件数量

数据汇总——该批次所有加工件下料长度汇总

SG-01——组框表格（和组框图纸配套，正式打印）

BG-JMUW28025-1——加工件加工数据（和加工图纸配套，正式打印）

表格架构建立完成后，第一步填入单元编号及单元分格尺寸基本信息。

杆件加工数据表格大部份自动生成，以下四处需要手动调整

a)、数量旁边（H、I、J列）的W，W1,W2,三个参数必须要与对应该的杆件加工图中参数一致，如果没有，则不填。第一位参数必须是杆件的加工长度。这个与杆件配料一起使用。本标准只支持三个加工参数，如果需要三个以上，需要把这表做微调。

b)、备注旁边（V、W、X列）的W，W1,W2,三个参数必须根据对应的杆件加工图来填写参数计算公式；例如V10的单元格中的公式为

=IF(R10="",IF(S10="",IF(T10="",IF(U10="","","U"),"T"),"S"),"R")，加工图适用适用范围A的，对应计算公式代替"R"；适用范围B的，对应计算公式代替"S"；适用范围C的，对应计算公式代替"T"；适用范围D的，对应计算公式代替"U"；

c)、单元格AB9的值必须与单元板块组框信息表的表名相一致；

d)、单元格N47图号中的前缀“DQ”需要手动改成出图的批次编号，以区别不同的批次；

2、结束语

1.优点：主设计做完样板图纸，后续批量设计工作可以由普通设计师完成。经实际测算，每批次约2000平米单元板块数据处理仅需要1-2工/日。

2.通用性：2014年本方法的初步版已应用佛山北滘项目的单元式幕墙加工图中。仅由1名普通设计师完成全部4万平单元板块加工图设计，没出现任何技术原因的材料浪费。对简单项目通用性好；2016年深圳湾生态园4区12栋幕墙项目中，通用在单元板块编号中增加更多有含义的字符，在程序增加相应的判断循环，2名普通设计师完成15万平米复杂单元式幕墙深化加工设计工作。

3.未来：目前阶段加工图设计还停在CAD传统平台上，二次开发只能有针对性的解决某个项目问题。所以我们仅取加工组框数据设计这一部分内容出来申报科技进步成果，考虑到随着BIM系统的发展应用，这一成果未来还有进一步提升的空间。

附录A：

Sub数据汇总()

Dimi

DimstrAsString

Dimstr1AsString

DimnAsInteger

DimLAsString

DimJAsInteger

DimKAsInteger

J=10

K=3

Fori=1ToSheets.Count

IfStrComp(Sheets(i).Name,"数据汇总",1)=0Then

n=i

ExitFor

EndIf

Next

Fori=1ToSheets.Count

str=Mid(Sheets(i).Name,1,2)

IfStrComp(str,"JM",1)=0OrStrComp(str,"BT",1)=0OrStrComp(str,"BG",1)=0Then

IfSheets(i).Cells(J,6)<>""Then

Do

Sheets(n).Cells(K,2)=Sheets(i).Cells(J,6)

Sheets(n).Cells(K,3)=Sheets(i).Cells(J,8)

Sheets(n).Cells(K,4)=Sheets(i).Cells(J,7)

Sheets(n).Cells(K,5)=Sheets(i).Cells(7,9)

J=J+1

K=K+1

LoopWhile(Sheets(i).Cells(J,6)<>"")

J=10

EndIf

EndIf

Nexti

EndSub

附录B：

Sub列出所有表单名字()

Dimi

DimstrAsString

Dimstr1AsString

DimnAsInteger

DimJAsInteger

DimKAsInteger

J=14

K=3

Fori=1ToSheets.Count

IfStrComp(Sheets(i).Name,"数据汇总",1)=0Then

n=i

ExitFor

EndIf

Next

Fori=1ToSheets.Count

str=Sheets(i).Name

Sheets(n).Cells(K,14).Value=str

K=K+1

Nexti

EndSub