LISP語言在宗地界址點成果表的應用

摘要：在農村土地確權發證的項目中，要求每一個社制作社宗地界址成果表，在工作中利用AUTOCAD的內部編程語言AUTOLISP開發實用小程序，解決生成社宗地界址點成果表的難題，提高作業效率。文章介紹了如何在南方CASS中生成社宗地界址點成果表TXT數據文件。

關鍵詞：AUTOLISP；界址點成果表；順時針；逆時針；折線距離

中圖分類號：TP391 文獻標識碼：A 文章編號：1009-2374（2013）15-0037-04

1 概述

全國正在大范圍開展農村土地確權發證項目，要求對每個村民小組進行宗地圖、宗地界址點成果表的制作，從而進行土地申報，發放土地證。本文介紹如何在南方CASS中生成社宗地界址點成果表TXT數據文件。

2 問題的提出

在農村土地確權發證的項目中，要求每一個社制作社宗地界址成果表，由于每個社宗地界址線端點太多，只需在主要拐彎處設置界址點，其余界址線端點不設置界址點，界址點號按順時針方向進行編號，界址邊長取界址線折線邊長。在南方CASS地籍圖上自動生成界址點成果表TXT文件就會碰到以下四個問題：

（1）界址線不一定是以順時針方向進行繪制的。

（2）界址點起始點位置的確定。

（3）哪些端點上有界址點及界點圓圈。

（4）如何求取兩界址點間在界址線上的折線距離。

針對以上問題，采用AUTOLISP語言編制程序進行處理，包括以下兩個子程序和一個主程序。

3 判斷界址線方向（子程序DDXFX）

上面vlax-curve-getDistAtPoint函數求取曲線從開始點到指定點的曲線段的長度，差值dis則為兩點間的曲線段長度，但如果曲線開始點在所求兩個點的中間時，則差值dis就不是兩點間的曲線段長度，而是閉合曲線長度減去差值dis為兩點間的曲線段長度。下面判斷當折線距離大于界址線（閉合曲線）總長一半時取小值為兩點間的曲線段長度。

6 結語

此LISP程序得到了社宗地界址點成果表TXT文件，工作中一般要求界址點成果表為WORD或EXCEL表格形式表示，筆者采用VB程序對TXT數據進行再處理生成EXCEL表格文件。以上程序人工干預較少，基本上達到了自動處理的效果，減少人為因素造成數據錯誤，提高了作業效率。

參考文獻

[1] 黎新懿，趙景亮.用Visual LISP開發AutoCAD2004應用程序[M].北京：科學出版社，2003.

[2] 方戈亮，孫力紅.Visual+LISP程序設計（AutoCAD+2006）[M].北京：清華大學出版社，2006.

作者簡介：鄒富生（1977—），男，重慶人，國家測繪地理信息局重慶測繪院工程師，研究方向：大比例尺數字圖測繪與技術應用。

（責任編輯：黃銀芳）