劉先武, 余繼鋒

(湖北省地質(zhì)局 第八地質(zhì)大隊,湖北 襄陽 441002)

AutoLisp結(jié)合Excel實現(xiàn)地類面積計算與統(tǒng)計自動化

劉先武, 余繼鋒

(湖北省地質(zhì)局 第八地質(zhì)大隊,湖北 襄陽 441002)

通過實例論述應用AutoLisp語言程序結(jié)合Excel實現(xiàn)地類面積計算和統(tǒng)計自動化,分析常規(guī)方法與本方法的差別,獲得了一些有實用價值的經(jīng)驗和程序,提出了地類面積計算和統(tǒng)計中值得注意的幾個問題,具有一定的應用價值和進一步研究開發(fā)意義。

AutoLisp;地類面積；計算；統(tǒng)計;自動化

在土地整理項目測繪和地籍測量工作中,后期地類面積計算和統(tǒng)計工作量大,所需工時占項目總工時的1/4以上。以土地整理項目測繪為例,按一個行政村500個地塊核算,加上道路、水系、居民地等地類,需統(tǒng)計的地塊達到1 000個左右;而一個土地整理項目少則十幾個村,多則達百余個村,地類面積計算和統(tǒng)計工作量很大,采用常規(guī)方法計算與統(tǒng)計極其繁瑣,容易錯、重、漏,精度不高。

AutoCAD是計算機上廣泛應用的繪圖軟件[1],其繪圖功能十分強大,國內(nèi)以其為操作平臺的數(shù)字化測圖軟件如南方CASS系列、勵精思系列等已十分普及。而AutoCAD內(nèi)嵌了編程功能——AutoLisp語言,利用該編程語言編寫插件程序,可自動處理繁瑣的重復工作。數(shù)字化地形圖上地塊面積的自動計算便是其中一例。

Excel是個人計算機上普及的數(shù)據(jù)電子表格軟件,其統(tǒng)計功能十分強大,并且?guī)в幸话愕暮瘮?shù)功能和簡單的邏輯編程功能。將編寫的AutoLisp地塊面積計算程序和Excel的自動統(tǒng)計功能結(jié)合起來,可以實現(xiàn)土地整理項目測繪中地類面積計算和統(tǒng)計的自動化。

本隊2011年和2012年在老河口市仙人渡鎮(zhèn)、薛集鎮(zhèn)及李樓辦事處三個土地整理項目測繪工地應用此方法,高效完成了后期繁瑣的計算及統(tǒng)計工作,統(tǒng)計精度高,無重復遺漏,工作效率得到極大提高。

1 常規(guī)方法與本方法的差別

(1) 數(shù)字化地形圖上地塊面積計算一般采用先手工用閉合的PL線將要計算的地塊圈出,再用CAD的對象特性查詢功能查詢PL線閉合多邊形的面積,然后在圖上標注地類和面積。而計算線狀地物(如單線溝渠、單線鄉(xiāng)村路等)的面積要先量出線狀地物長度,再用計算器根據(jù)其寬度算出面積,標注在圖上。這種方法有如下弊端:①容易重算、漏算地塊及線狀地物。②作閉合PL線及查詢線狀地物長度工作量大,且精度不高。③數(shù)據(jù)標注需手工進行,工作量大且繁瑣。④數(shù)據(jù)提取采用一人讀圖另一人錄入,容易錯、重、漏,不便于統(tǒng)計。

(2) 采用本文所述的方法,地塊面積計算只要所選地塊是封閉的(不要求閉合),AutoLisp程序?qū)υ摰貕K進行自動節(jié)點尋址計算,自動標注地類和面積。同樣,對線狀地物、輸入寬度、程序、自動節(jié)點,尋址計算該線狀地物長度后計算其面積并標注。本方法有如下優(yōu)點:①工作效率大大提高。②數(shù)據(jù)自動標注,無重復遺漏。③運用程序的數(shù)據(jù)自動提取功能,數(shù)據(jù)可以自動提取,生成數(shù)據(jù)文件,便于用Excel進行分類統(tǒng)計。④計算與統(tǒng)計無錯、重、漏,精度顯著提高。

2 程序使用步驟及注意事項

2.1 使用步驟

(1) 首先在數(shù)字化地形圖上建立“面積”圖層。

(2) 加載AutoLisp程序(appload命令)。

(3) 計算地塊面積(mj命令)和線狀地物面積(mjl命令),按程序提示輸入相應內(nèi)容。

(4) 關閉其它圖層,僅保留“0”層和“面積”層,進行數(shù)據(jù)提取(tq命令),存盤(存為*.txt文件)。

2.2 注意事項

(1) 地塊應封閉,不能有虛交的缺口,這是起碼的數(shù)學要求,如圖1,1、2、3地塊可以計算,4地塊不能計算。

圖1 地塊封閉示意圖Fig.1 Schematic diagram of block sealing

(2) 地塊內(nèi)有不同地類的孤島,孤島面積需另行計算,同時孤島外地塊面積應標注減去孤島面積后的數(shù)據(jù)(圖2)。

圖2 孤島示意圖Fig.2 Schematic diagram of isolated island

(3) 當少數(shù)不規(guī)則地塊節(jié)點太多時,計算速度減慢,應用直線劃小地塊,使其成幾個節(jié)點較少的地塊分別計算后匯總標注。

(4) 為提高計算機運行速度,計算地塊面積時可關閉不需面積計算的相應圖層,亦可逐個圖層打開計算。植被符號一個地塊注記一個即可,待面積計算完畢后再補充注記。

3 Excel統(tǒng)計

用Excel打開提取數(shù)據(jù)時保存的*.txt文件,按字母進行排序,這樣各地類將集中到一起,根據(jù)不同地類剪切到不同的列,然后用Excel的替換功能,用空白或無字符替換掉數(shù)字前的各地類代碼(如ST,HD等),剩下的數(shù)字就是地塊面積,最后進行統(tǒng)計。

因Excel已十分普及,其詳細的使用方法不再贅述。

4 地類代碼表的編制

地類面積數(shù)據(jù)自動計算和統(tǒng)計,地類代碼編碼很重要。按照地籍測量規(guī)范和土地開發(fā)整理標準的分級分類原則,地類代碼編碼為數(shù)字型;本著方便記憶及實用便利的原則,本隊采用漢語拼音首字母編碼,遇重復編碼將不常見地類編碼另編。各單位可根據(jù)自身使用習慣和各項目區(qū)地類分級分類情況依照地籍測量規(guī)范和土地開發(fā)整理標準的原則靈活掌握。自動統(tǒng)計完成后在數(shù)字化地形圖上統(tǒng)一替換成數(shù)字型編碼。

下面是本隊在老河口市仙人渡鎮(zhèn)土地整理項目采用的地類代碼編碼,供參考。

地類編碼表(部分)

(1) 農(nóng)用地(NYD)。

Ⅰ耕地(GD):水田(ST)、旱地(HD)。

Ⅱ園地(YD):果園(GY)、菜園(CY)。

Ⅲ其它農(nóng)用地(QTNYD):農(nóng)村道路(ND)、坑塘水面(KT)、農(nóng)田水利用地(NS)。

(2) ……

5 應用評價

在具體應用方面,本方法經(jīng)2011年和2012年在老河口市仙人渡鎮(zhèn)、薛集鎮(zhèn)及李樓辦事處60多個村分村地類面積統(tǒng)計的應用,都有很好效果,工作效率提高5倍以上,統(tǒng)計精度提高2倍以上。具有較高的應用價值。

雖然作者編制的AutoLisp程序主要是配合土地整理項目測繪中的地類面積統(tǒng)計所用,但由于AutoLisp程序是開放型的,稍加改進也可用于其它方面的面積計算和統(tǒng)計。如2014年在農(nóng)村宅基地確權登記發(fā)證項目中,應用本方法作樣方統(tǒng)計,工作效率和統(tǒng)計精度都比采用常規(guī)方法提高3倍以上。同樣,在城市規(guī)劃測量、國土、森林調(diào)查及新農(nóng)村建設等方面,結(jié)合其它編程語言也可開發(fā)出相應的地類面積統(tǒng)計系統(tǒng)軟件,因而具有進一步研究開發(fā)意義。

[1] 徐泮林.數(shù)字化成圖—AutoCAD地形圖測繪高級開發(fā)[M].北京:地震出版社,2004.

(責任編輯：陳文寶)

Realization of Calculation of Area Data and Statistics Automation by AutoLisp with Excel

LIU Xianwu, YU Jifeng

(EighthGeologicalBrigadeofHubeiGeologicalBureau,Xiangyang,Hubei441002)

The paper illustrates the application of AutoLisp program with Excel to realize calculation of area data and statistics automation,analyses the difference of the normal method and this method ,get some valuable experiences and procedures,and puts forward some problems worthy of attention in calculation of area data and statistics ,has certain application value and further significance of research and development.

AutoLisp; area data; calculation; statistics; automation

2015-12-31;改回日期:2016-01-02

劉先武(1967-),男,工程師,測繪工程專業(yè),從事精密工程測量(變形監(jiān)測)及地籍測繪工作。E-mail:13871748690@163.com

P218; TP39

A

1671-1211(2016)02-0242-02

10.16536/j.cnki.issn.1671-1211.2016.02.023

數(shù)字出版網(wǎng)址:http://www.cnki.net/kcms/detail/42.1736.X.20160303.1056.004.html 數(shù)字出版日期:2016-03-03 10:56