孔取芯检测资料整理的自动化实现方法

粉喷桩钻孔取芯检测资料整理的自动化实现方法

李军海

（江苏省交通规划设计院 210001）

【摘 要】 钻孔取芯法在粉喷桩检测中的应用日益广泛。文章首先介绍了取芯检测资料整理的基本内容及评价方法；随后重点阐述了如何利用VB5.0结合AutoCAD的 ActiveX Automation技术以及DAO数据库编程技术进行取芯检测资料整理的自动化实现。

【关键词】 粉喷桩；钻孔；客户\\服务器；VB；OLE自动化；数据获取对象

0 引言 粉喷桩作为软土路基处理方法目前在高速公路建设中已被广泛采用。已建的沪宁、锡澄等高速公路均有采用粉喷桩处理软基的成功经验，尽管如此，粉喷桩的质量状况仍是令人关注的重点问题，因为粉喷桩的施工质量与其软基处理效果直接相关。目前对粉喷桩进行质量检测的方法较多，其中钻孔取芯法因其直观、评价方法全面可靠等特点而被广泛采用。粉喷桩取芯检测法是同时考虑桩体现场描述、原位标准贯入击数和室内无侧限单轴抗压强度的一种桩体质量综合评价方法。在进行资料整理时要同时将上述三方面信息随深度的变化反映在检测表中。但粉喷桩检测往往数目较大，如果资料全部由手工处理更是耗时劳力。笔者在从事此方面工作时，利用VB5.0结合AutoCAD的ActiveX Automation技术[1] 以及DAO数据库编程技术[2] 实现了粉喷桩钻孔取芯检测资料整理的自动化。 1 取芯检测资料整理的基本内容及评价方法 1.1 基本内容

采用钻孔取芯法进行粉喷桩检测时，单桩资料整理包括如下内容。

⑴概况：具体包括施工单位、施工标段、桩排号、孔号、施工桩长、施工日期、实际灰量和检测日期等。

⑵桩芯描述：通过钻探取样进行桩芯描述的主要内容包括颜色、软硬程度（坚硬、硬、可塑、软塑等）、结构密实程度、含灰量以及有无水泥气味等。

⑶试验：指原位标准贯入试验（其中标贯试验沿桩体深度方向上部6米试验间距为2米，6米以下试验间距为1米）和室内无侧限抗压强度试验。 1.2 评价方法

根据芯样的硬度或状态、抗压强度和标贯击数按表1和表2规定计分，将每根桩的综合得分按以下标准分为四级：100~85分为优，84~75分为良，74~67.5分为合格，小于67.5分为不合格。具体计分方法如下： ⑴对每层钻芯试样检测成果，标贯击数、无侧限抗压强度和硬度的各自得分按0.7、0.2和0.1的权系数加权，计算出该层得分，再用层厚加权，分别算出该桩上部和下部综合得分，最后上下两部分按权系数0.5加权计算总体评分。 ⑵当某层缺少抗压强度的检测数据时，按标贯击数和硬度按0.7和0.3的权系数进行加权计分。

⑶ 计分时要求上部（6.0米以上）达到75分以上，下部达到60分以上，否则判为不合格桩

1

表1 分值对应表（6.0米以上）

土名 硬度或状态 记分 100 75 50 0 标贯试验 抗压强度(MPa) 记分 100 75 50 0 硬度 坚硬~稍硬 桩硬塑 体可塑 土 软塑~流塑 击数 记分 强度 >20 100 >0.45 10~20 75 0.15~0.45 5~9 50 0.05~0.15 0 0 <0.05 表2 分值对应表（6.0米以下）

土名 硬度或状态 记分 100 75 50 0 标贯试验 抗压强度(MPa) 记分 100 75 50 0 硬度 坚硬~稍硬 桩硬塑 体可塑 土 软塑~流塑 击数 记分 强度 >15 100 >0.45 9~15 75 0.15~0.45 4~8 55 0.03~0.15 0 0 <0.03

2 取芯检测资料整理的自动化实现 2.1 软件基本结构

笔者采用Client/Server的指导思想进行程序开发。采用VB5.0为Client/Server的前端开发工具，采用AutoCAD R14作为服务器应用程序，同时利用DAO进行数据库操作。在进行资料整理时，用户只需在界面上输入原始数据，随后便可通过控制命令键由程序自动调用数据模块将数据存储于指定数据库中，再由图表生成模块完成检测成果表的制作。钻孔取芯检测资料整理软件的结构图如图1所示。

图1 钻孔取芯检测资料整理软件结构图

2.2 软件功能 2.2.1数据库操作功能

2.2.1.1 新建数据库和数据表 Sub DataBaseON()

Set Ws = DBEngine.Workspaces(0)

Set Db = Ws.CreateDatabase(\gcxz.txtgcmc.Text)& \

DBname = \Db.Close

End Sub ……

Sub tableON(TXT As String)

Set Db = Ws.OpenDatabase(DBname) '''建立表头数据表

Tb(1).Name = TXT & \

Set Fd(1) = Tb(1).CreateField(\内容\Tb(1).Fields.Append Fd(1) Db.TableDefs.Append Tb(1) '''建立桩芯描述数据表 Tb(2).Name = TXT & \

Set Fd(1) = Tb(2).CreateField(\层底深度\Set Fd(2) = Tb(2).CreateField(\分层厚度\Set Fd(3) = Tb(2).CreateField(\桩土名称\Set Fd(4) = Tb(2).CreateField(\桩芯描述\Set Fd(5) = Tb(2).CreateField(\硬度状态\Tb(2).Fields.Append Fd(1) Tb(2).Fields.Append Fd(2) Tb(2).Fields.Append Fd(3) Tb(2).Fields.Append Fd(4) Tb(2).Fields.Append Fd(5) Db.TableDefs.Append Tb(2) '''建立标贯数据表标贯 Tb(3).Name = TXT & \

Set Fd(1) = Tb(3).CreateField(\深度\Set Fd(2) = Tb(3).CreateField(\击数\Tb(3).Fields.Append Fd(1) Tb(3).Fields.Append Fd(2) Db.TableDefs.Append Tb(3) '''建立抗压强度数据表 Tb(4).Name = TXT & \

Set Fd(1) = Tb(4).CreateField(\深度\Set Fd(2) = Tb(4).CreateField(\强度\Set Fd(3) = Tb(4).CreateField(\备注\Tb(4).Fields.Append Fd(1) Tb(4).Fields.Append Fd(2) Tb(4).Fields.Append Fd(3) Db.TableDefs.Append Tb(4) Db.Close End Sub

2.2.1.2 数据的输入 ''''表头信息输入

Set MyRes=mydb.OpenRecordset (TXTZK. Text & \

If MyRes.BOF = True And MyRes.EOF Then GoTo A1 MyRes.MoveFirst

Do While Not MyRes.EOF MyRes.Delete MyRes.MoveNext Loop A1:

For i = 0 To 9 MyRes.AddNew

MyRes.Fields(\内容\MyRes.Update Next i ……

2.2.2 图表制作功能

2.2.2.1 CAD基本设置 Sub CADON()

Set acadapp= CreateObject (\Set acaddoc = acadapp.ActiveDocument Set mospace = acaddoc.ModelSpace Set paspace = acaddoc.PaperSpace ……

''''图层设置

Set txlayer = acaddoc.Layers.Add(\'''字体设置

Set objtext = acaddoc.TextStyles Set sttext = objtext.Add(\宋体\

objtext.Item(acaddoc.TextStyles.Count-2). fontfile = \'''''视窗设置

Dim left(1 To 3) As Double Dim right(1 To 3) As Double left(1) = 0# left(2) = 0# left(3) = 0# right(1) = 210# right(2) = 297# right(3) = 0#

Set curvport = acaddoc.ActiveViewport Call curvport.ZoomWindow(left, right) Set pplot = acaddoc.Plot ……

acadapp.Visible = True End Sub

2.2.2.2 表框子模块

由于检测报表的格式统一，为便于程序的维护编写表框子模块程序段，专门用于检测报表公共部分的内容制作。该模块的功能类似于Excel中的模板。 ……

Set tklayer = acaddoc.ActiveLayer acaddoc.ActiveTextStyle = sttext p1(0) = 25# + num ''''画表格 p1(1) = 27# p1(2) = 0#

p2(0) = 25# + num p2(1) = 240# p2(2) = 0#

mospace.AddLine p1, p2 ……

p(0) = 73# + num ''''填文字 p(1) = 262# p(2) = 0# h = 5

tstring = \粉喷桩钻芯成果表\mospace.AddText tstring, p, h ……

2.2.2.3 数据填充及评分 ''''填充表头

Set MyRes = mydb.OpenRecordset(TXT & \MyRes.MoveFirst p(0) = 33# + num p(1) = 254# p(2) = 0# h = 2.5

tstring = MyRes.Fields(\内容\mospace.AddText tstring, p, h ……

''''填充桩芯描述部分'数据

Set MyRes = mydb.OpenRecordset(TXT & \MyRes.MoveFirst N = 1

Do While Not MyRes.EOF p1(0) = 25# + num

p1(1) = 224 - MyRes.Fields(\层底深度\p1(2) = 0#

p2(0) = 140# + num

p2(1) = 224- MyRes.Fields(\层底深度\ p2(2) = 0#

mospace.AddLine p1, p2 \层分界线 '''序号

本文来源：https://www.bwwdw.com/article/tddv.html