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

1、粉喷桩钻孔取芯检测资料整理的自动化实现方法李军海（江苏省交通规划设计院 210001）【摘 要】 钻孔取芯法在粉喷桩检测中的应用日益广泛。文章首先介绍了取芯检测资料整理的基本内容及评价方法；随后重点阐述了如何利用VB5.0结合AutoCAD的 ActiveX Automation技术以及DAO数据库编程技术进行取芯检测资料整理的自动化实现。【关键词】 粉喷桩；钻孔；客户服务器；VB；OLE自动化；数据获取对象0 引言粉喷桩作为软土路基处理方法目前在高速公路建设中已被广泛采用。已建的沪宁、锡澄等高速公路均有采用粉喷桩处理软基的成功经验，尽管如此，粉喷桩的质量状况仍是令人关注的重点问题，因为粉喷桩

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

3、钻孔取芯法进行粉喷桩检测时，单桩资料整理包括如下内容。概况：具体包括施工单位、施工标段、桩排号、孔号、施工桩长、施工日期、实际灰量和检测日期等。桩芯描述：通过钻探取样进行桩芯描述的主要内容包括颜色、软硬程度（坚硬、硬、可塑、软塑等）、结构密实程度、含灰量以及有无水泥气味等。试验：指原位标准贯入试验（其中标贯试验沿桩体深度方向上部6米试验间距为2米，6米以下试验间距为1米）和室内无侧限抗压强度试验。1.2 评价方法根据芯样的硬度或状态、抗压强度和标贯击数按表1和表2规定计分，将每根桩的综合得分按以下标准分为四级：10085分为优，8475分为良，7467.5分为合格，小于67.5分为不合格。具体

4、计分方法如下：对每层钻芯试样检测成果，标贯击数、无侧限抗压强度和硬度的各自得分按0.7、0.2和0.1的权系数加权，计算出该层得分，再用层厚加权，分别算出该桩上部和下部综合得分，最后上下两部分按权系数0.5加权计算总体评分。当某层缺少抗压强度的检测数据时，按标贯击数和硬度按0.7和0.3的权系数进行加权计分。 计分时要求上部（6.0米以上）达到75分以上，下部达到60分以上，否则判为不合格桩表1 分值对应表（6.0米以上）土名硬度或状态标贯试验抗压强度(MPa)硬度记分击数记分强度记分桩体土坚硬稍硬100>20100>0.45100硬塑751020750.150.4575可塑505

5、9500.050.1550软塑流塑000<0.050表2 分值对应表（6.0米以下）土名硬度或状态标贯试验抗压强度(MPa)硬度记分击数记分强度记分桩体土坚硬稍硬100>15100>0.45100硬塑75915750.150.4575可塑5048550.030.1550软塑流塑000<0.0302 取芯检测资料整理的自动化实现2.1 软件基本结构笔者采用Client/Server的指导思想进行程序开发。采用VB5.0为Client/Server的前端开发工具，采用AutoCAD R14作为服务器应用程序，同时利用DAO进行数据库操作。在进行资料整理时，用户只需在界面上输

6、入原始数据，随后便可通过控制命令键由程序自动调用数据模块将数据存储于指定数据库中，再由图表生成模块完成检测成果表的制作。钻孔取芯检测资料整理软件的结构图如图1所示。图1 钻孔取芯检测资料整理软件结构图2.2 软件功能2.2.1数据库操作功能新建数据库和数据表Sub DataBaseON()Set Ws = DBEngine.Workspaces(0)Set Db = Ws.CreateDatabase("D:" & Trim(gcxz.txtgcmc.Text)& ".mdb", dbLangGeneral)DBname =

7、 "d:" & Trim(gcxz.txtgcmc.Text) & ".mdb"Db.CloseEnd SubSub tableON(TXT As String)Set Db = Ws.OpenDatabase(DBname)'''建立表头数据表Tb(1).Name = TXT & "1"Set Fd(1) = Tb(1).CreateField("内容", dbText, 50)Tb(1).Fields.Append Fd(1)Db.TableDefs.Append

8、 Tb(1)'''建立桩芯描述数据表Tb(2).Name = TXT & "2"Set Fd(1) = Tb(2).CreateField("层底深度", dbSingle, 10)Set Fd(2) = Tb(2).CreateField("分层厚度", dbSingle, 10)Set Fd(3) = Tb(2).CreateField("桩土名称", dbText, 20)Set Fd(4) = Tb(2).CreateField("桩芯描述", dbTex

9、t, 100)Set Fd(5) = Tb(2).CreateField("硬度状态", dbText, 10)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 & "3"Set Fd(1) = Tb(3).Create

10、Field("深度", dbSingle, 10)Set Fd(2) = Tb(3).CreateField("击数", dbText, 20)Tb(3).Fields.Append Fd(1)Tb(3).Fields.Append Fd(2)Db.TableDefs.Append Tb(3)'''建立抗压强度数据表Tb(4).Name = TXT & "4"Set Fd(1) = Tb(4).CreateField("深度", dbSingle, 10)Set Fd(2) = Tb

11、(4).CreateField("强度", dbText, 20)Set Fd(3) = Tb(4).CreateField("备注", dbText, 20)Tb(4).Fields.Append Fd(1)Tb(4).Fields.Append Fd(2)Tb(4).Fields.Append Fd(3)Db.TableDefs.Append Tb(4)Db.CloseEnd Sub数据的输入''''表头信息输入Set MyRes=mydb.OpenRecordset (TXTZK.Text &

12、"1", dbOpenTable)If MyRes.BOF = True And MyRes.EOF Then GoTo A1MyRes.MoveFirstDo While Not MyRes.EOF MyRes.Delete MyRes.MoveNextLoopA1:For i = 0 To 9MyRes.AddNewMyRes.Fields("内容") = CStr(jbxx(i).Text)MyRes.UpdateNext i 2.2.2 图表制作功能 CAD基本设置Sub CADON()Set acadapp= CreateObje

13、ct ("AutoCAD. Application ")Set acaddoc = acadapp.ActiveDocumentSet mospace = acaddoc.ModelSpaceSet paspace = acaddoc.PaperSpace''''图层设置Set txlayer = acaddoc.Layers.Add("tx")'''字体设置Set objtext = acaddoc.TextStylesSet sttext = objtext.Add("宋体"

14、)objtext.Item(acaddoc.TextStyles.Count-2).fontfile = "simsun.ttf"'''''视窗设置Dim left(1 To 3) As DoubleDim right(1 To 3) As Doubleleft(1) = 0#left(2) = 0#left(3) = 0#right(1) = 210#right(2) = 297#right(3) = 0#Set curvport = acaddoc.ActiveViewportCall curvport.ZoomWindow(le

15、ft, right)Set pplot = acaddoc.Plotacadapp.Visible = TrueEnd Sub 表框子模块由于检测报表的格式统一，为便于程序的维护编写表框子模块程序段，专门用于检测报表公共部分的内容制作。该模块的功能类似于Excel中的模板。Set tklayer = acaddoc.ActiveLayeracaddoc.ActiveTextStyle = sttextp1(0) = 25# + num ''''画表格p1(1) = 27# p1(2) = 0#p2(0) = 25# + nump2(1) = 240

16、# p2(2) = 0#mospace.AddLine p1, p2p(0) = 73# + num ''''填文字p(1) = 262# p(2) = 0#h = 5tstring = "粉喷桩钻芯成果表"mospace.AddText tstring, p, h 数据填充及评分''''填充表头Set MyRes = mydb.OpenRecordset(TXT & "1", dbOpenTable)MyRes.MoveFirstp(0) = 33# + nump(1

17、) = 254# p(2) = 0#h = 2.5tstring = MyRes.Fields("内容")mospace.AddText tstring, p, h''''填充桩芯描述部分'数据Set MyRes = mydb.OpenRecordset(TXT & "2", dbOpenTable)MyRes.MoveFirstN = 1Do While Not MyRes.EOFp1(0) = 25# + nump1(1) = 224 - MyRes.Fields("层底深度") *

18、 10p1(2) = 0#p2(0) = 140# + nump2(1) = 224- MyRes.Fields("层底深度") * 10 p2(2) = 0#mospace.AddLine p1, p2 ""层分界线'''序号p(0) = 26# + nump(1) = 225 - MyRes.Fields("层底深度") * 10 p(2) = 0#h = 2.5tstring = CStr(N)mospace.AddText tstring, p, htstring = CStr(MyRes.Fields

19、("桩芯描述")N = Len(tstring) If N Mod 18 = 0 Then M = Int(N 18)Else M = Int(N 18) + 1End IfFor N = 1 To M '''用于CAD中文字换行SS = Mid(tstring, 1 + (N - 1) * 18, 18)p(0) = 66# + nump(1) = 225# - MyRes.Fields("层底深度") * 10 + (M - N) * 4#p(2) = 0#h = 2.5mospace.AddText SS, p, hNext NN = N + 1MyRes.MoveNextLoop''''''''填充标贯信息Set MyRes = mydb.OpenRecordset(TXT & "3", dbOpenTable)MyRes.MoveFirstDo While Not MyRes.EOF'''''