鉆井井(孔)眼軌跡計算與圖形繪制軟件的設計

摘要:鉆井井(孔)眼軌跡計算與圖形繪制軟件是為鉆井行業設計的，采用了VB6.0編程并結合AutoCAD二次開發(VBA)的方法，完成了通過軟件讀取井眼軌跡基本參數(原始測斜數據)，計算出井眼軌跡計算參數并繪制出井眼軌跡圖形。文章簡要介紹了鉆井井(孔)眼軌跡計算與圖形繪制軟件的設計思路、功能和實現的核心程序以及軟件運行過程。

關鍵詞:鉆井;井眼軌跡;軟件

中圖分類號:TP311文獻標識碼:A文章編號:1009-3044(2009)26-7543-02

The Design of Well Course's Computing and Drawing Software

ZHANG Ji-bao1， XIE Jin2

(1.Hubei Academy of Geological Exploration of Coal， Wuhan 430070， China; 2.Shicaocun Coal Mine of Ningmei Shenhua Group， Yinchuan 751400， China)

Abstract: The well course's computing and drawing software is designing for drilling industry， the author adopted VB6.0 and the Redevelop Technology of AutoCAD have compiled read well course basal parameter by the software， then compute well course computational parameter and have well course graph drawn. The artist simply introduces the design thinking， function， core procedure and running process of well course's computing and drawing software.

Key words: bore well; well course; software

隨著油氣井鉆井深度的加大，鉆井技術、井眼設計軌道的多樣化，涌現出多種井眼軌跡計算方法和圖形表達方

式。為快速、準確計算井眼軌跡相關參數與繪制井眼軌跡圖形，以達到鉆井井眼軌跡資料的快速整理和利用，作者采用VB6.0編程并結合AutoCAD二次開發(VBA)的方法，實現了鉆井原始測斜數據的計算機讀取，井眼軌跡相關參數的計算和圖形繪制。

1 軟件設計思路

軟件設計思路如圖1所示。

2 軟件的功能

2.1 軟件提供兩種井眼軌跡相關參數計算方法

鉆井井眼軌跡是一非常復雜的空間曲線，在計算時，我們將曲線控測段由上向下分別累加計算。由于井眼軌跡的每個測段是一個空間曲線，而究竟是一個怎樣的空間曲線，我們是不知道的。我們知道的是測段的上端和下端的井深、井斜角和井斜方位角。因此，我們只好將測段假設成不同的形狀。假設不同，計算方法不同。

軟件提供平均角法和校正平均角法兩種計算方法。平均角法假設每個測段為直線段，校正平均角法假設每個測段為圓柱螺線，其中校正平均角法較平均角法更準確。我國鉆井行業標準規定，手工計算時采用平均角法，計算機計算時采用校正平均角法。

2.2 軟件提供三種井眼軌跡圖示法

軟件提供井眼軌跡圖示法有:垂直投影圖與水平投影圖組合、垂直剖面圖與水平投影圖組合和三位空間圖。

前兩種圖示法可打印在圖紙上，方便但不直觀。三維空間圖為一種新型的井眼軌跡圖示法，能在計算機上從任一視點顯示圖形，直觀，但只能以某種投影方式打印輸出。

2.3 功能

軟件讀取保存有原始測斜數據的Excel文件(*.xls)的數據，選擇適宜的方法計算出相關參數，將參數保存到一個新Excel文件(*.xls)種。軟件讀取新Excel文件(*.xls)中的數據，自動調用AutoCAD軟件繪制出井眼軌跡圖形(*.dwg)。

3 軟件效果

軟件讀取已保存到新Excel文件(*.xls)中的井眼軌跡相關參數，并通過AutoCAD二次開發(VBA)調用AutoCAD程序繪制井眼軌跡圖形(*.dwg)。繪制圖形的核心程序如下:

Dim acadapp As AutoCAD.AcadApplication

Dim acaddoc As AutoCAD.AcadDocument

Dim acadmodelspace As AutoCAD.acadmodelspace

Dim acadlin As AutoCAD.AcadLine

Dim spoint(0 To 2) As Double

Dim epoint(0 To 2) As Double

Set acadapp = New AutoCAD.AcadApplication

acadapp.Visible = True

Set acaddoc = acadapp.Documents.Open(\"C:\\Drawing1.dwg\"， False)

Set acadmodelspace = acaddoc.ModelSpace

spoint(0) = 12 : spoint(1) = 12 : spoint(2) = 0

epoint(0) = 400 : epoint(1) = 400 : epoint(2) = 0

Set acadlin = acadmodelspace.AddLine(spoint， epoint)

acadlin.Color = 1 : acaddoc.save:acaddoc.close

Set acadmodelSpace=Nothing

Set acaddoc=Nothing : Set acadapp=Nothing

軟件運行過程如圖2-圖7所示:

擇基本參數文件圖4設置計算參數保存路徑及文件名

行 圖7 軟件運行結果

4 結論

軟件集原始測斜數據讀取、井眼軌跡相關參數計算和圖形繪制為一體，可以提高井眼軌跡相關參數計算和圖形繪制的速度和準確度，有利于鉆井行業內的資料對比使用與交流。

致謝:鉆井井(孔)眼軌跡計算與繪制軟件是由河南理工大學資源環境學院湯友誼教授提出設想，并有湯友誼教授指導，得到張洲老師的熱情幫助，在此表示真誠的感謝。

參考文獻:

[1] 陳庭根，管志川.鉆井工程理論與技術[M].山東:中國石油大學出版社，2006.

[2] 鄢泰寧.巖土鉆掘工程學[M].武漢:中國地質大學出版社，2001.

[3] 馬植侃，汪濱，劉建明.鉆探工程學[M].徐州:中國礦業大學出版社，1998.

[4] 楊星，趙曉東.AutoCAD2004二次開發(VB版)及在海工模型試驗數據處理中的應用[M].北京:海洋出版社，2005.

[5] 李鳳華.AutoCAD 2002/2000 VBA開發指南[M].北京:清華大學出版社，2001.

[6] 林永，張樂強.Visual Basic 6.0 用戶編程手冊[M].2版.北京:人民郵電出版社，2001.

[7] 李道文.科技論文作者必備知識手冊[M].長沙:湖南大學出版社，1985.

[8] 羅照，李凱.VB(VBA)在AutoCAD2005二次開發中的應用[J].軟件工程信息技術與信息化，2005(5):44-46，77.