高鵬遠(yuǎn)河北省煤田地質(zhì)局物測地質(zhì)隊

Autolisp程序在土地確權(quán)內(nèi)業(yè)工作中的一些有效應(yīng)用

高鵬遠(yuǎn)
河北省煤田地質(zhì)局物測地質(zhì)隊

基于Autolisp語言設(shè)計的程序，能高效便捷的解決土地確權(quán)內(nèi)業(yè)工作中的相關(guān)問題。

土地確權(quán)；Autolisp Autocad

現(xiàn)在我國正在大范圍開展農(nóng)村土地確權(quán)項目，在外業(yè)測量工作完成后，還有大量重復(fù)繁瑣的內(nèi)業(yè)工作，主要會遇到宗地界址坐標(biāo)提取問題、拓?fù)鋯栴}、以及宗地歸屬信息與地塊的匹配問題。Autolisp是cad的內(nèi)置語言，利用lisp語言開發(fā)的一些程序可以有效的解決土地確權(quán)內(nèi)業(yè)處理過程中的一些實際問題，極大的縮減了內(nèi)業(yè)工作量，降低成本，創(chuàng)造財富。

1、利用autolisp程序獲取宗地所屬界址坐標(biāo)點

宗地界址坐標(biāo)在cad中查看時比較繁瑣，而且宗地數(shù)量很多，挨塊查看費時費力，利用lisp程序可以批量提取。

主要代碼如下：

這樣可以將宗地所屬界址坐標(biāo)點加入到pl這個集合當(dāng)中，可利用上述程序制作宗地界址成果表。

2、利用宗地所屬界址坐標(biāo)點獲取宗地邊界線坐標(biāo)，從而解決拓?fù)溴e誤

對于宗地來說，宗地的一條邊只能在圖上出現(xiàn)兩次，我們在獲取宗地邊界線坐標(biāo)后，只要與圖上其他宗地的邊界線作數(shù)量對比，如果數(shù)量小于兩次，宗地肯定有縫隙、重疊、懸掛等拓?fù)溴e誤。如果數(shù)量超過兩次則肯定是重復(fù)邊界。

獲取宗地邊界線坐標(biāo)主要代碼如下：

3、利用宗地所屬界址坐標(biāo)點檢查圖中宗地內(nèi)文字是否出框及壓蓋問題

在圖上每塊宗地內(nèi)都會有戶主姓名、實測畝數(shù)、/、合同畝數(shù)4個文字，在文字錄入過程中可能會存在文字過大出框壓蓋到相鄰地塊中，以及宗地內(nèi)出現(xiàn)2個相同文字互相壓蓋的問題，由于每個村宗地數(shù)量眾多，挨塊宗地查看費時費力，在獲取宗地所屬界址坐標(biāo)點后，利用lisp的窗選功能，將宗地內(nèi)文字加入到一個選集當(dāng)中，然后查看選集的數(shù)量是否為4，如果不等于4說明存在上述問題。

主要代碼如下：

通過我們在項目中的實際應(yīng)用，上述程序能極大的縮減內(nèi)業(yè)的工作量，并且錯誤率極低，可以減少人工處理的繁瑣工作，給土地確權(quán)數(shù)據(jù)處理工作帶來很大的便利。

[1]吳永進(jìn)，林美櫻.AutoCAD程序設(shè)計魔法書，2002(12)