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

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

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

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

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

土地確權；Autolisp Autocad

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

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

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

主要代碼如下：

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

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

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

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

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

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

主要代碼如下：

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

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