基于VBA處理AutoCAD中斷面數(shù)據(jù)的方法

向垂規(guī)+王俊

摘要： 在南方CASS成圖軟件中，根據(jù)實(shí)測(cè)斷面點(diǎn)的坐標(biāo)、高程數(shù)據(jù)整理斷面數(shù)據(jù)時(shí)，效率低下且容易漏點(diǎn)，為快速地獲取斷面數(shù)據(jù)，本文基于VBA在AutoCAD平臺(tái)上加載斷面數(shù)據(jù)處理程序，能快速生成斷面數(shù)據(jù)文件，并保存在Excel中。

Abstract： In Southern CASS mapping software， when the data of the cross-section are sorted according to the measured point coordinates and elevation data， it is inefficient and easy to miss points. In order to get the cross-section data quickly， this article loads data processing program in AutoCAD platform based on VBA， and can quickly generate cross-section data files， and save in Excel.

關(guān)鍵詞： 斷面數(shù)據(jù)處理；VBA；CASS成圖軟件；斷面圖繪制

Key words： cross section data processing；VBA；CASS mapping software；section drawing

中圖分類號(hào)：TP274 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1006-4311（2018）01-0197-03

0 引言

水利工程建設(shè)中，進(jìn)行樞紐區(qū)大壩、隧洞、溢洪道等水工建筑物設(shè)計(jì)、輸水渠道開挖、庫(kù)區(qū)清淤時(shí)，為滿足工程設(shè)計(jì)或施工需要，測(cè)繪人員要都要進(jìn)行縱、橫斷面的測(cè)量。斷面的測(cè)量成果是得到所測(cè)區(qū)域的縱、橫斷面圖，斷面圖一般包括里程及高程兩要素，繪圖時(shí)以里程值為橫坐標(biāo)，高程值為縱坐標(biāo)按比例繪制，工程技術(shù)人員可根據(jù)斷面圖進(jìn)行工程設(shè)計(jì)、方量計(jì)算及造價(jià)估算。

現(xiàn)階段，通常利用全站儀或RTK技術(shù)獲取斷面點(diǎn)的坐標(biāo)、高程數(shù)據(jù)，在南方CASS等成圖軟件中完成斷面圖的繪制。在南方CASS成圖軟件中，提供了四種斷面圖的繪制方法。一是根據(jù)已知坐標(biāo)生成斷面圖，二是根據(jù)等高線生成斷面圖，三是根據(jù)三角網(wǎng)生成斷面圖，四是根據(jù)里程文件生成斷面圖[1]。這四種方法除根據(jù)里程文件外，其它的三種方法都是由圖面按里程內(nèi)插高程點(diǎn)，而在水利工程斷面測(cè)量時(shí)，一般都要實(shí)測(cè)斷面點(diǎn)的三維數(shù)據(jù)，且斷面成果整理及資料提交是基于實(shí)測(cè)斷面數(shù)據(jù)[2]，即先整理斷面里程文件再繪制斷面圖。在南方CASS成圖軟件中根據(jù)實(shí)測(cè)斷面點(diǎn)的坐標(biāo)、高程數(shù)據(jù)整理斷面數(shù)據(jù)效率低下且容易漏點(diǎn)，不好加點(diǎn)。為快速地獲取斷面數(shù)據(jù)，本文基于VBA[3，4]在AutoCAD平臺(tái)上加載斷面數(shù)據(jù)處理程序，能快速生成斷面數(shù)據(jù)文件，并保存在Excel中。

1 程序編寫

1.1 程序編寫思路

利用RTK或全站儀進(jìn)行斷面測(cè)量時(shí)，可得到斷面線特征點(diǎn)的點(diǎn)位坐標(biāo)和高程數(shù)據(jù)。整理斷面數(shù)據(jù)時(shí)，由設(shè)定的斷面線、斷面方向及零起點(diǎn)，在南方CASS成圖軟件中可根據(jù)所展高程點(diǎn)進(jìn)行斷面數(shù)據(jù)處理和檢查，可以直觀地生成繪制斷面圖所需的里程、高程文件。對(duì)測(cè)量數(shù)據(jù)在南方CASS成圖軟件中展點(diǎn)后，測(cè)量點(diǎn)位可能在設(shè)計(jì)線的兩邊或設(shè)計(jì)線上，獲取斷面數(shù)據(jù)時(shí)，程序能判別測(cè)量點(diǎn)位離設(shè)計(jì)斷面線的偏離距是否滿足允許限差要求，如超出限差要求，該斷面點(diǎn)的高程值在Excel中顯示為紅色，如不超出限差要求，則該斷面點(diǎn)的高程值在Excel中顯示為黑色。如圖1所示，a，b為實(shí)測(cè)高程點(diǎn)，a′，b′為a，b在設(shè)計(jì)斷面線上的垂足點(diǎn)位，設(shè)計(jì)斷面線為直線A，實(shí)測(cè)點(diǎn)連成的線為折線B，a點(diǎn)的偏離距為S，按照內(nèi)插原理，偏離距S在允許限差范圍內(nèi)，可以用垂足點(diǎn)a′代替實(shí)測(cè)點(diǎn)a，其高程不變，即進(jìn)行斷面整理時(shí)，a，b兩斷面點(diǎn)的間距取La′b′，高程取實(shí)測(cè)點(diǎn)位高程Ha，Hb。

1.2 程序編寫步驟

①在AUTOCAD中打開VBA管理器，創(chuàng)建一個(gè)新的工程。進(jìn)入VBA開發(fā)環(huán)境，在“工程資源管理器”中創(chuàng)建對(duì)Excel對(duì)象庫(kù)的引用，調(diào)用Excel中的對(duì)象，源代碼如下：

Public excel_App As Excel.Application

Public excel_Book As Excel.Workbook

Public excel_sheet As Excel.Worksheet

Public Sub linkexcel（） '引用EXCEL

On Error Resume Next

Set excel_App = GetObject（， "excel.application"）

If Err Then

Err.Clear

Set excel_App = CreateObject（"excel.application"）

If Err Then

Err.Clear

MsgBox "檢查EXCEL"

Exit Sub

End If

End If

Set excel_Book = excel_App.Workbooks.Add

Set excel_sheet = excel_Book.Worksheets（"sheet1"）

excel_App.WindowState = xlMinimized

End Sub

②聲明變量。在編輯器中定義各種本地變量Dim，定義斷面數(shù)據(jù)在Excel中輸出時(shí)各列的值，定義不同成圖比例尺下的斷面點(diǎn)相對(duì)斷面線的允許偏離值，源代碼如下：endprint

Public Sub hdm（）

Dim qd As Variant '定義起始點(diǎn)坐標(biāo)變量

Dim zd As Variant '定義終點(diǎn)坐標(biāo)變量

Dim pp As Variant '定義獲取點(diǎn)坐標(biāo)變量

Dim h As Variant '定義獲取點(diǎn)高程變量

Dim s As Single '定義累距變量

Dim l As Single '定義偏離距變量

Dim str As String '定義輸入高程變量

Dim str1 As Variant '定義輸入累距和高程變量

Dim str3 As String '定義成圖比例尺變量

Dim maxplj As String '定義允許最大偏離距變量

Dim i， j As Integer '定義excel單元格的行列號(hào)變量

Dim Lay As AcadLayer '定義圖層變量

i = 2： j = 2

Call linkexcel

excel_App.DisplayAlerts = True

excel_sheet.Cells（1， 1） = "樁號(hào)"

excel_sheet.Cells（1， 2） = "累距"

excel_sheet.Cells（1， 3） = "高程"

On Error Resume Next

Set Lay = ThisDrawing.Layers.Add（"斷面標(biāo)記"） '新建標(biāo)記圖層

Lay.LayerOn = True

Lay.color = 2

ThisDrawing.ActiveLayer = Lay

str3 = ThisDrawing.Utility.GetString（False， "斷面成圖比例尺為為1："） '輸入成圖比例尺

If str3 >= 200 And str3 <= 1000 Then '計(jì)算允許偏離距

maxplj = （5 * str3） / 1000

ElseIf str3 >= 2000 And str3 <= 5000 Then

maxplj = （3 * str3） / 1000

End If

③編寫循環(huán)語(yǔ)句提取CASS展點(diǎn)圖中的坐標(biāo)、高程值，在Excel中生成斷面數(shù)據(jù)。主要運(yùn)行步驟為：1）選擇斷面起點(diǎn)、終點(diǎn)，定義斷面方向。2）輸入偏距值，在選點(diǎn)時(shí)如偏距值大于設(shè)定值，則在表中顯示為紅色，提示超限。3）選取斷面高程點(diǎn)或加點(diǎn)時(shí)輸入高程點(diǎn)，輸入斷面樁號(hào)。在Excel中生成斷面數(shù)據(jù)，并循環(huán)進(jìn)行下一點(diǎn)的操作。4）該條斷面完成后，輸入“N”進(jìn)行下一條斷面數(shù)據(jù)的采集或輸入“E”結(jié)束斷面數(shù)據(jù)的采集，結(jié)束斷面數(shù)據(jù)采集時(shí)，提示“及時(shí)保存數(shù)據(jù)”。其源代碼省略。

1.3 程序的操作

①程序加載。先將程序文件acad.dvb導(dǎo)入CAD中的support文件夾中，再在CASS中找到system文件夾，打開acad.rx，加寫“acvba”，這時(shí)打開南方CASS成圖軟件即可加載。

②獲取斷面數(shù)據(jù)。先打開南方CASS7.0成圖軟件，完成斷面測(cè)量數(shù)據(jù)的展點(diǎn)及設(shè)計(jì)斷面線的繪制。再在菜單欄激活“獲取斷面數(shù)據(jù)”菜單，然后根據(jù)狀態(tài)欄的提示，用鼠標(biāo)點(diǎn)擊處理斷面線的斷面起點(diǎn)位置及終點(diǎn)方向。用鼠標(biāo)選擇斷面線上的高程點(diǎn)位（點(diǎn)擊后的高程點(diǎn)位用圓圈加以標(biāo)記），獲得該點(diǎn)在設(shè)計(jì)斷面線上的斷面里程及高程數(shù)據(jù)，并保存在Excel里，如圖2。

在斷面數(shù)據(jù)獲取過(guò)程中，可增加斷面上未測(cè)地形特征點(diǎn)（如增加量取的坎腳點(diǎn)），在第一條斷面處理完成后，可選擇接著處理第二條斷面（輸入命令“N”）或選擇退出程序（輸入命令“E”）。在斷面數(shù)據(jù)處理完成后，輸入命令“E”結(jié)束時(shí)，CASS對(duì)話框提示“斷面數(shù)據(jù)已形成，請(qǐng)及時(shí)保存”。如圖3。

2 結(jié)束語(yǔ)

利用VBA編寫的斷面數(shù)據(jù)處理程序，該程序可以加載在CASS及AutoCAD菜單命令下，利用該程序進(jìn)行縱斷面和橫斷面數(shù)據(jù)處理，能快速獲取繪制斷面圖所需的里程、高程數(shù)據(jù)文件，結(jié)合CASS展點(diǎn)圖及現(xiàn)場(chǎng)草圖能方便的進(jìn)行斷面數(shù)據(jù)的檢查。處理斷面數(shù)據(jù)時(shí)，可進(jìn)行人機(jī)交互式數(shù)據(jù)輸入，具有速度快、效率高且不易出錯(cuò)等特點(diǎn)，生成的斷面數(shù)據(jù)形成Excel文檔及文本文檔，便于測(cè)量人員、設(shè)計(jì)人員使用及歸檔保存。

參考文獻(xiàn)：

[1]CASS7.0標(biāo)準(zhǔn)教程[R].廣州：南方測(cè)繪儀器有限公司，2007.

[2]SL52-2015.水利水電工程施工測(cè)量規(guī)范[S].北京：中國(guó)水利水電出版社，2015.

[3]羅朝盛.Visual Basic 6.0程序設(shè)計(jì)教程[M]. 北京：人民郵電出版社，2002.

[4]張強(qiáng)，劉飚，等.Excel2007與VBA編程從入門到精通 [M]. 北京：電子工業(yè)出版社，2008.endprint