孔取芯檢測資料整理的自動(dòng)化實(shí)現(xiàn)方法

1、粉噴樁鉆孔取芯檢測資料整理的自動(dòng)化實(shí)現(xiàn)方法李軍海（江蘇省交通規(guī)劃設(shè)計(jì)院 210001）【摘 要】 鉆孔取芯法在粉噴樁檢測中的應(yīng)用日益廣泛。文章首先介紹了取芯檢測資料整理的基本內(nèi)容及評價(jià)方法；隨后重點(diǎn)闡述了如何利用VB5.0結(jié)合AutoCAD的 ActiveX Automation技術(shù)以及DAO數(shù)據(jù)庫編程技術(shù)進(jìn)行取芯檢測資料整理的自動(dòng)化實(shí)現(xiàn)?！娟P(guān)鍵詞】 粉噴樁；鉆孔；客戶服務(wù)器；VB；OLE自動(dòng)化；數(shù)據(jù)獲取對象0 引言粉噴樁作為軟土路基處理方法目前在高速公路建設(shè)中已被廣泛采用。已建的滬寧、錫澄等高速公路均有采用粉噴樁處理軟基的成功經(jīng)驗(yàn)，盡管如此，粉噴樁的質(zhì)量狀況仍是令人關(guān)注的重點(diǎn)問題，因?yàn)榉蹏姌?/p>

2、的施工質(zhì)量與其軟基處理效果直接相關(guān)。目前對粉噴樁進(jìn)行質(zhì)量檢測的方法較多，其中鉆孔取芯法因其直觀、評價(jià)方法全面可靠等特點(diǎn)而被廣泛采用。粉噴樁取芯檢測法是同時(shí)考慮樁體現(xiàn)場描述、原位標(biāo)準(zhǔn)貫入擊數(shù)和室內(nèi)無側(cè)限單軸抗壓強(qiáng)度的一種樁體質(zhì)量綜合評價(jià)方法。在進(jìn)行資料整理時(shí)要同時(shí)將上述三方面信息隨深度的變化反映在檢測表中。但粉噴樁檢測往往數(shù)目較大，如果資料全部由手工處理更是耗時(shí)勞力。筆者在從事此方面工作時(shí)，利用VB5.0結(jié)合AutoCAD的ActiveX Automation技術(shù)1 以及DAO數(shù)據(jù)庫編程技術(shù)2 實(shí)現(xiàn)了粉噴樁鉆孔取芯檢測資料整理的自動(dòng)化。1 取芯檢測資料整理的基本內(nèi)容及評價(jià)方法1.1 基本內(nèi)容采用

3、鉆孔取芯法進(jìn)行粉噴樁檢測時(shí)，單樁資料整理包括如下內(nèi)容。概況：具體包括施工單位、施工標(biāo)段、樁排號、孔號、施工樁長、施工日期、實(shí)際灰量和檢測日期等。樁芯描述：通過鉆探取樣進(jìn)行樁芯描述的主要內(nèi)容包括顏色、軟硬程度（堅(jiān)硬、硬、可塑、軟塑等）、結(jié)構(gòu)密實(shí)程度、含灰量以及有無水泥氣味等。試驗(yàn)：指原位標(biāo)準(zhǔn)貫入試驗(yàn)（其中標(biāo)貫試驗(yàn)沿樁體深度方向上部6米試驗(yàn)間距為2米，6米以下試驗(yàn)間距為1米）和室內(nèi)無側(cè)限抗壓強(qiáng)度試驗(yàn)。1.2 評價(jià)方法根據(jù)芯樣的硬度或狀態(tài)、抗壓強(qiáng)度和標(biāo)貫擊數(shù)按表1和表2規(guī)定計(jì)分，將每根樁的綜合得分按以下標(biāo)準(zhǔn)分為四級：10085分為優(yōu)，8475分為良，7467.5分為合格，小于67.5分為不合格。具體

4、計(jì)分方法如下：對每層鉆芯試樣檢測成果，標(biāo)貫擊數(shù)、無側(cè)限抗壓強(qiáng)度和硬度的各自得分按0.7、0.2和0.1的權(quán)系數(shù)加權(quán)，計(jì)算出該層得分，再用層厚加權(quán)，分別算出該樁上部和下部綜合得分，最后上下兩部分按權(quán)系數(shù)0.5加權(quán)計(jì)算總體評分。當(dāng)某層缺少抗壓強(qiáng)度的檢測數(shù)據(jù)時(shí)，按標(biāo)貫擊數(shù)和硬度按0.7和0.3的權(quán)系數(shù)進(jìn)行加權(quán)計(jì)分。 計(jì)分時(shí)要求上部（6.0米以上）達(dá)到75分以上，下部達(dá)到60分以上，否則判為不合格樁表1 分值對應(yīng)表（6.0米以上）土名硬度或狀態(tài)標(biāo)貫試驗(yàn)抗壓強(qiáng)度(MPa)硬度記分擊數(shù)記分強(qiáng)度記分樁體土堅(jiān)硬稍硬100>20100>0.45100硬塑751020750.150.4575可塑505

5、9500.050.1550軟塑流塑000<0.050表2 分值對應(yīng)表（6.0米以下）土名硬度或狀態(tài)標(biāo)貫試驗(yàn)抗壓強(qiáng)度(MPa)硬度記分擊數(shù)記分強(qiáng)度記分樁體土堅(jiān)硬稍硬100>15100>0.45100硬塑75915750.150.4575可塑5048550.030.1550軟塑流塑000<0.0302 取芯檢測資料整理的自動(dòng)化實(shí)現(xiàn)2.1 軟件基本結(jié)構(gòu)筆者采用Client/Server的指導(dǎo)思想進(jìn)行程序開發(fā)。采用VB5.0為Client/Server的前端開發(fā)工具，采用AutoCAD R14作為服務(wù)器應(yīng)用程序，同時(shí)利用DAO進(jìn)行數(shù)據(jù)庫操作。在進(jìn)行資料整理時(shí)，用戶只需在界面上輸

6、入原始數(shù)據(jù)，隨后便可通過控制命令鍵由程序自動(dòng)調(diào)用數(shù)據(jù)模塊將數(shù)據(jù)存儲(chǔ)于指定數(shù)據(jù)庫中，再由圖表生成模塊完成檢測成果表的制作。鉆孔取芯檢測資料整理軟件的結(jié)構(gòu)圖如圖1所示。圖1 鉆孔取芯檢測資料整理軟件結(jié)構(gòu)圖2.2 軟件功能2.2.1數(shù)據(jù)庫操作功能新建數(shù)據(jù)庫和數(shù)據(jù)表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)'''建立表頭數(shù)據(jù)表Tb(1).Name = TXT & "1"Set Fd(1) = Tb(1).CreateField("內(nèi)容", dbText, 50)Tb(1).Fields.Append Fd(1)Db.TableDefs.Append

8、 Tb(1)'''建立樁芯描述數(shù)據(jù)表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("硬度狀態(tài)", 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)'''建立標(biāo)貫數(shù)據(jù)表標(biāo)貫Tb(3).Name = TXT & "3"Set Fd(1) = Tb(3).Create

10、Field("深度", dbSingle, 10)Set Fd(2) = Tb(3).CreateField("擊數(shù)", dbText, 20)Tb(3).Fields.Append Fd(1)Tb(3).Fields.Append Fd(2)Db.TableDefs.Append Tb(3)'''建立抗壓強(qiáng)度數(shù)據(jù)表Tb(4).Name = TXT & "4"Set Fd(1) = Tb(4).CreateField("深度", dbSingle, 10)Set Fd(2) = Tb

11、(4).CreateField("強(qiáng)度", 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數(shù)據(jù)的輸入''''表頭信息輸入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("內(nèi)容") = CStr(jbxx(i).Text)MyRes.UpdateNext i 2.2.2 圖表制作功能 CAD基本設(shè)置Sub CADON()Set acadapp= CreateObje

13、ct ("AutoCAD. Application ")Set acaddoc = acadapp.ActiveDocumentSet mospace = acaddoc.ModelSpaceSet paspace = acaddoc.PaperSpace''''圖層設(shè)置Set txlayer = acaddoc.Layers.Add("tx")'''字體設(shè)置Set objtext = acaddoc.TextStylesSet sttext = objtext.Add("宋體"

14、)objtext.Item(acaddoc.TextStyles.Count-2).fontfile = "simsun.ttf"'''''視窗設(shè)置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 表框子模塊由于檢測報(bào)表的格式統(tǒng)一，為便于程序的維護(hù)編寫表框子模塊程序段，專門用于檢測報(bào)表公共部分的內(nèi)容制作。該模塊的功能類似于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 數(shù)據(jù)填充及評分''''填充表頭Set MyRes = mydb.OpenRecordset(TXT & "1", dbOpenTable)MyRes.MoveFirstp(0) = 33# + nump(1

17、) = 254# p(2) = 0#h = 2.5tstring = MyRes.Fields("內(nèi)容")mospace.AddText tstring, p, h''''填充樁芯描述部分'數(shù)據(jù)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''''''''填充標(biāo)貫信息Set MyRes = mydb.OpenRecordset(TXT & "3", dbOpenTable)MyRes.MoveFirstDo While Not MyRes.EOF'''''