摘要　在AutoCAD的平臺(tái)上，利用其嵌入式語(yǔ)言VBA的函數(shù)并結(jié)合Excel獲取AutoCAD繪制多義線長(zhǎng)度值的算法，完成多義線自動(dòng)統(tǒng)計(jì)到Excel中的二次開(kāi)發(fā)。該研究用于土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中新修排水溝長(zhǎng)度值的自動(dòng)統(tǒng)計(jì)，減少了煩瑣的工作量，為進(jìn)一步實(shí)現(xiàn)土地整理項(xiàng)目規(guī)劃設(shè)計(jì)的自動(dòng)化提供了可能。

　　關(guān)鍵詞　多義線　長(zhǎng)度　統(tǒng)計(jì)　AutoCAD　VBA

　　中圖分類號(hào)：TP39　文獻(xiàn)標(biāo)識(shí)碼：A

　　近年以來(lái)，隨著人口不斷增加與城鎮(zhèn)建設(shè)用地的擴(kuò)展，使得土地尤其是耕地相對(duì)短缺的問(wèn)題日益突出，土地開(kāi)發(fā)整理作為補(bǔ)充耕地的主要途徑，是保住“耕地18億畝紅線”(1.2億hm2)和國(guó)家糧食安全的主要措施。隨著我國(guó)土地整理工作在全國(guó)深入開(kāi)展，國(guó)家在土地整理中投入大量的財(cái)力、人力、物力，如何提高土地整理中工程量計(jì)算的效率以，是目前需要研究的問(wèn)題之一。目前，在土地整理規(guī)劃設(shè)計(jì)中所用的繪圖軟件主要是AutoCAD系列軟件。其中在進(jìn)行排水溝規(guī)劃設(shè)計(jì)時(shí)，通常是在規(guī)劃后逐條點(diǎn)擊其屬性統(tǒng)計(jì)長(zhǎng)度值。如果更改規(guī)劃要素，則需要再次重新統(tǒng)計(jì)，工作效率低、且易出錯(cuò)。土地整理項(xiàng)目規(guī)劃設(shè)計(jì)是一項(xiàng)涉及面廣、內(nèi)容復(fù)雜的過(guò)程，各類地物信息影響土地整理規(guī)劃設(shè)計(jì)的各個(gè)方面。如何有效快速的在規(guī)劃設(shè)計(jì)中確定規(guī)劃要素的基礎(chǔ)數(shù)據(jù)，如長(zhǎng)度值等，本研究進(jìn)行了一些探索。本文介紹如何利用AutoCAD嵌入式語(yǔ)言VBA(Visual Bacic for Applications)并結(jié)合Excel進(jìn)行二次開(kāi)發(fā)，完成在土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中各新修排水溝多義線長(zhǎng)度值的自動(dòng)統(tǒng)計(jì)。

　　1　程序設(shè)計(jì)思路流程及數(shù)據(jù)間相互關(guān)系

　　1.1　程序設(shè)計(jì)思路及流程

　　AutoCAD是目前工程圖形中使用最廣泛的計(jì)算機(jī)處理軟件。在土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中，AutoCAD中用得最多的線是多義線(polyline)，并以此來(lái)表示土地整理項(xiàng)目規(guī)劃設(shè)計(jì)專題圖中的大多數(shù)規(guī)劃要素，如排水溝，農(nóng)村道路等。在Auto-CAD中某一圖層統(tǒng)計(jì)出各多義線的長(zhǎng)度，首先確定統(tǒng)計(jì)圖層中的對(duì)象i(i表示多義線的條數(shù))，然后把圖層中各i長(zhǎng)度值i直接自動(dòng)寫(xiě)入到Excel單元格中，從而使土地整理規(guī)劃設(shè)計(jì)進(jìn)一步自動(dòng)化。開(kāi)發(fā)的程序流程見(jiàn)圖1所示。

　　1.2　數(shù)據(jù)間相互關(guān)系

　　多義線屬性數(shù)據(jù)與Excel單元格數(shù)據(jù)彼此存在著一定的聯(lián)系。每一條規(guī)劃的排水溝多義線的長(zhǎng)度值都在Excle單元格中對(duì)應(yīng)著一個(gè)相應(yīng)屬性數(shù)據(jù)記錄，兩者之間通過(guò)對(duì)Auto，CADVBA二次開(kāi)發(fā)函數(shù)接口調(diào)用屬性數(shù)據(jù)建立內(nèi)在聯(lián)系，可以使規(guī)劃人員任意顯示檢查排水溝多義線的長(zhǎng)度值。兩者之間通過(guò)二次開(kāi)發(fā)程序，把它們聯(lián)系在一起。

　　2　應(yīng)用VBA技術(shù)進(jìn)行AutoCAD二次開(kāi)發(fā)

　　根據(jù)以上的二次開(kāi)發(fā)基本思想和數(shù)據(jù)結(jié)構(gòu)，本研究開(kāi)發(fā)的土地整理項(xiàng)目規(guī)劃設(shè)計(jì)制圖應(yīng)用程序，可以完成與排水溝類似的規(guī)劃制圖多義線長(zhǎng)度自動(dòng)統(tǒng)計(jì)，為土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中的工程預(yù)算提供科學(xué)、準(zhǔn)確的基礎(chǔ)數(shù)據(jù)，并利于土地整理規(guī)劃設(shè)計(jì)人員分析規(guī)劃的正確性、合理性，及時(shí)的調(diào)整規(guī)劃設(shè)計(jì)方案，直至最后形成最佳的土地整理規(guī)劃設(shè)計(jì)方案和規(guī)劃專題圖。

　　2.1　VBA在AutoCAD中的開(kāi)發(fā)特點(diǎn)

　　AutoCAD VBA允許VBA環(huán)境與AutoCAD同時(shí)運(yùn)行，并通過(guò)ActiveXAutomation接口對(duì)AutoCAD進(jìn)行編程控制，對(duì)于非專業(yè)開(kāi)發(fā)人員在程序語(yǔ)言選擇上相對(duì)其它開(kāi)發(fā)高級(jí)語(yǔ)言，如：C、C++等，VBA更易學(xué)易掌握，可構(gòu)成多種使用的專業(yè)軟包，0能快速實(shí)現(xiàn)特定功能。

　　2.2　程序代碼的完成

　　在AutoCADVBA開(kāi)發(fā)環(huán)境中的ThisDrawing模塊，首先在用戶窗體中的新修排水溝中添加一些按鈕事件，屬性欄更改名稱為工程統(tǒng)計(jì)等按鈕名稱，在其按鈕事件中加入相關(guān)程序代碼，并運(yùn)行其代碼，如圖2程序運(yùn)行界面。相關(guān)代碼較長(zhǎng)，本文中省略。

　　3　程序應(yīng)用

　　AutoCAD環(huán)境中，實(shí)現(xiàn)多義線自動(dòng)統(tǒng)計(jì)的方法簡(jiǎn)單描述(1)創(chuàng)建圖層名為新修排水溝;(2)創(chuàng)建多條新修排水溝的多義線段：(3)點(diǎn)擊工程統(tǒng)計(jì)按鈕(見(jiàn)圖2);(4)根據(jù)點(diǎn)擊按鈕提示保存Excel的統(tǒng)計(jì)值的文件路徑，打開(kāi)Excel所得各編號(hào)排水溝長(zhǎng)度值(見(jiàn)圖3)。圖2程序運(yùn)行界面中的藍(lán)色虛線為擬新修排水溝，旁邊文字為其編號(hào)，每個(gè)編號(hào)對(duì)應(yīng)圖3運(yùn)行統(tǒng)計(jì)結(jié)果Excel中的編號(hào)長(zhǎng)度值，實(shí)現(xiàn)其自動(dòng)統(tǒng)計(jì)多義線長(zhǎng)度值的功能。

　　4　結(jié)語(yǔ)

　　基于AutoCAD的自動(dòng)統(tǒng)計(jì)程序，是用其內(nèi)嵌的開(kāi)發(fā)語(yǔ)VBA，結(jié)合Excel進(jìn)行二次開(kāi)發(fā)，其優(yōu)點(diǎn)是：在土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中所涉及到的規(guī)劃要素為多義線時(shí)，能方便快捷的統(tǒng)計(jì)出同一圖層中的長(zhǎng)度值，為工程造價(jià)預(yù)算提供科學(xué)，準(zhǔn)確的基礎(chǔ)數(shù)據(jù);其程序占用內(nèi)存少，運(yùn)行速度快，簡(jiǎn)單實(shí)用，符合在土地整理項(xiàng)目規(guī)劃設(shè)計(jì)中的相關(guān)要求。