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

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

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

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

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

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

6、入原始數(shù)據(jù)，隨后便可通過控制命令鍵由程序自動調(diào)用數(shù)據(jù)模塊將數(shù)據(jù)存儲于指定數(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 表框子模塊由于檢測報表的格式統(tǒng)一，為便于程序的維護(hù)編寫表框子模塊程序段，專門用于檢測報表公共部分的內(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'''''