高鵬遠河北省煤田地質局物測地質隊

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

高鵬遠
河北省煤田地質局物測地質隊

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

土地確權；Autolisp Autocad

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

1、利用autolisp程序獲取宗地所屬界址坐標點

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

主要代碼如下：

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

2、利用宗地所屬界址坐標點獲取宗地邊界線坐標，從而解決拓撲錯誤

對于宗地來說，宗地的一條邊只能在圖上出現兩次，我們在獲取宗地邊界線坐標后，只要與圖上其他宗地的邊界線作數量對比，如果數量小于兩次，宗地肯定有縫隙、重疊、懸掛等拓撲錯誤。如果數量超過兩次則肯定是重復邊界。

獲取宗地邊界線坐標主要代碼如下：

3、利用宗地所屬界址坐標點檢查圖中宗地內文字是否出框及壓蓋問題

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

主要代碼如下：

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

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