淺談VLISP提取宅基地基礎數據的CAD的二次開發

摘 要：宅基地基本信息庫的建設是項耗費時間的繁復工作，為了提高宅基地基本信息庫建設的效率并保證基礎數據的準確性，通過應用Vlisp計算機程序語言對AutoCAD軟件的二次開發，編譯了從宅基地數字化地籍圖中提取宗地基本信息數據的應用與AutoCAD軟件程序命令。

關鍵詞：宅基地；地籍圖；Vlisp；AutoCAD

中圖分類號：TP391.72 文獻標志碼：A 文章編號：1673-291X（2014）02-0253-02

一、宅基地信息管理系統創建的關鍵是宅基地基本信息庫的建立

Visual LISP（簡稱Vlisp）是AutoCAD軟件自帶的可視化、集成型CAD二次開發的計算機語言，采用遞歸的語法結構控制計算機的運行，程序的設計比較簡單，易于使用戶接受。作為CAD軟件的二次開發工具，它完整地提供了集成開發環境，使用戶能夠快捷地調用CAD命令，高效地調試程序。

宅基地管理信息系統是地理信息系統的一個分支，是將宅基地權屬信息及規劃等信息在計算機技術的支持下，按照住戶信息或者地籍屬性以一定的格式輸入、存儲、管理、分析、檢索、統計、顯示以及應用決策的地理信息系統。

宅基地信息管理系統創建的關鍵是宅基地基本信息庫的建立，而宅基地基本信息庫的主要指標之一是從宅基地數字化地籍圖中提取宅基地宗地界址點坐標。為了適應這一需求，本文依據宅基地信息管理系統中宅基地基本信息庫文件的格式需求，應用Vlisp計算機語言對CAD軟件進行了二次開發的學習研究。

二、獲取數字化地籍圖中特定數據格式的程序開發

（一）宅基地宗地基礎數據庫格式要求

在獲得宅基地AutoCAD地籍圖的基礎上，為了明確工作的內容，我們先確定出所需輸出的數據的文件格式，即：

提取日期，戶主姓名，界址點1，X坐標，Y坐標，宗地編號

提取日期，戶主姓名，界址點2，X坐標，Y坐標，宗地編號

提取日期，戶主姓名，界址點3，X坐標，Y坐標，宗地編號

提取日期，戶主姓名，界址點4，X坐標，Y坐標，宗地編號

…

通過分析數據格式，我們可以知道，該格式中需要人工輸入確認的數據只有戶主的相關信息，即姓名漢字拼音簡稱，其他如提取時間、戶主姓名、界址點序號，坐標及宗地編號都是地籍圖上已有的內容或可以通過計算機后臺完成，完全可以通過Vlisp計算機語言進行快速且準確地提取。

（二） Vlisp計算機語言對宅基地宗地信息的編程實現

Vlisp計算機程序設計語言通過特定的計算機語法結構可讓用戶對AutoCAD軟件進行二次開發。

在計算機技術中，只要建立文件，就必須確定文件的存儲路徑及文件名稱。本文為了方便文件管理，將所輸出文件存儲于宅基地數字化地籍圖所在的計算機路徑下，命名為該主文件名+界址點文件，后綴根據需要設定為所需的格式后綴。為了確定輸出文件的路徑及名稱，可以讀取Vlisp語言中的dwgprefix函數，該函數能夠給出當前AutoCAD中活動文件的具體路徑，如AutoCAD中當前打開的文件名為“**地籍圖.dwg”的文件保存于計算機D盤中的“**村地籍圖文件”文件夾下，在讀取dwgprefix函數后，計算機在AutoCAD軟件中便會顯示該文件路徑為：“D：＼＼**村地籍圖文件＼＼”，在用Vlisp語言實現中我們將讀取的文件路徑定義為變量wjmlj，語言代碼為：（setq wjmlj （getvar \"dwgprefix\"））；所需輸出數據的文件名稱可以讀取DWGNAME函數，該函數直接給出AutoCAD軟件當前活動文件的文件名，如“**地籍圖.dwg”，我們所需的文件名稱應該為“**地籍圖界址點文件.txt”，這一步的實現首先需要將“**地籍圖.dwg”中的文件名后綴“.dwg”去掉，得到一個只代表文件名“**地籍圖”，通過組合字符“界址點文件.txt”確定出所要輸出的文件名稱，這一步的Vlisp語言代碼可綜合整理為：（setq wjm （getvar \"DWGNAME\"） ln （strlen wjm） wjm （substr wjm 1 （- ln 4））） （setq wjm1 （strcat wjmlj wjm \"界址點文件.txt\"））。

在確定了工作中所要輸出的文件的存儲路徑及文件名稱后，需要完成宅基地基礎數據庫所需數據的計算機寫出工作，針對輸出的數據格式要求，先確定計算機可以自動識別的“提取日期”數據，這一數據可以通過直接讀取計算機當前日期，在Vlisp計算機語言中可以用特定的函數cdate來實現。在編程中，需要定義一個有關當天日期的變量，根據Vlisp計算機語言的語法結構，我們定義rq為“提取日期”的變量名稱，具體實現表達式為：（setq rq （atoi （rtos （getvar \"cdate\"） 2 0）））；對數據庫中所需的“戶主姓名，宗地編號”兩項需要在編程過程中賦予字符型變量類型，變量名稱分別定義為hzxm，zdbh，通過直接提取宅基地AutoCAD地籍圖中的相應圖塊列表來實現，實現代碼可以寫成 （setq hzxm （cdr （assoc 1 （entget （car （entsel \"＼n請拾取戶主姓名：\"））））））及（setq zdbh （cdr （assoc 1 （entget （car （entsel \"＼n請拾取相應宗地編號：\"））））））。

現在，必須確定要輸出的相應宗地的界址點序號及相應的坐標數據，這需要使用Vlisp語言的循環語法。界址點序號變量通過代碼（setq rm1 \"界址點\"）首先定義出界址點序號中不變的部分，再在循環過程中首先定義一個從數字1開始的變量i，然后在循環中根據變量i的遞增通過定義新的變量（setq rmm1 （strcat rm1 （rtos i 5））） 確定其界址點序號。界址點坐標數據則通過從宅基地AutoCAD地籍圖上點取各相應宗地的界址點坐標，應用Vlisp語言的getpoint函數提取相應界址點圖塊，并將其賦予特定的變量中（本文中定義p1及p為該變量），然后通過car及cadr函數將特定點的坐標從其圖塊列表中分離出來，變量定義為x1，y1及xp，yp；編碼（setq p1 （getpoint \"＼n指定第一個界址點：\"） （setq y1 （rtos （car p1） 2 3） （setq x1 （rtos （cadr p1） 2 3））確定了第一個界址點的坐標信息，這時需要將從宅基地數字化地籍圖中獲得的數據信息按數據格式要求輸出到特定路徑下的特定文件中去，這里根據數據格式需要應用Vlisp語言代碼（setq fn1 （open wjm1 \"a\"）），（write-line （strcat rq \"，\" hzxm \"，\" \"\" \"，\" rmm1 \"，\" x1 \"，\" y1 \"，\" zdbh） fn1）。由于建立宅基地基礎信息庫是個比較耗費時間的工作，為了防止重復提取或遺漏，通過每完成一戶在特定圖層繪制pline線加以區分，首先在編程過程中通過編碼（command \"-layer\" \"m\" \"界址點連線\" \"c\" \"3\" \"\" \"\" \"\"）建立一個名稱為“界址點連線”的顏色為綠色的新圖層用于存放提取界址點坐標時新繪的pline線，代碼（command \"pline\" p1 \"w\" \"0.5\" \"0.5\" ）用來調用AutoCAD中的pline命令在AutoCAD軟件平臺上繪制pline線，Vlisp語言的while循環語句以空格作為循環結束控制，所以，Vlisp語言循環語法提取相應宅基地宗地界址點信息的代碼（while （（progn （initget 8 \"x\"） （setq p （getpoint \"＼n指定下一放線點：\"）） （command p） （if （= 'list （type p）） （prong （setq i （+ i 1）） （setq rmm （rtos i 5）） （setq rmm1 （strcat rm1 rmm）） （setq yp1 （rtos （car p） 2 3）） （setq xp1 （rtos （cadr p） 2 3）） （write-line （strcat rq \"，\" hzxm \"，\" \"\" \"，\" rmm1 \"，\" xp1 \"，\" yp1 \"，\" zdbh） fn1））））））通過循環逐個按特定的數據格式將相應宅基地宗地的界址點坐標及宅基地信息管理系統所需的數據輸出到了計算機特定路徑下的特定文件中。

（三）Vlisp程序語言與AutoCAD軟件的銜接

在Vlisp計算機程序語言的編程代碼經過編譯運行無誤后，需要在AutoCAD軟件下便捷使用，AutoCAD軟件提供了對應的接口，可以在AutoCAD軟件界面直接使用其命令appload加載Vlisp編譯的相應程序文件，通過在AutoCAD中直接鍵入Vlisp語言定義的特定命令名稱來執行所需的工作；也可以在AutoCAD軟件的菜單文件中加入使用Vlisp計算機語言編制的命令，通過menuload命令更新AutoCAD菜單的方式實現Vlisp語言編寫的程序命令。

結語

使用Vlisp計算機程序語言編譯的從數字化地籍圖提取宅基地基礎信息的程序能較大程度且準確地提高宅基地基礎信息數據庫的建設效率，通過其對AutoCAD軟件的二次開發，擴展了AutoCAD軟件在特定專業需求的功能，能使宅基地基礎信息庫的建立順利開展。

參考文獻：

[1] 高華峰.基于VLISP對地形圖中橫斷面的提取并生成橫斷面圖的研究[J].科技咨詢，2012，（12）.

[2] 代莉，吳晨耀，聶荔.VLISP支持下的CAD二次開發與應用[J].地理空間信息，2010，（5）.

[3] 鄭偉.農村宅基地登記管理系統的設計與實現[D].成都：電子科技大學，2012.

Discussion about the two development of the CAD in the VLISP extraction homestead basic data

ZHANG Hai-chun，MA Ying

（Management college，Xinjiang Agricultural University，Urumqi 830000，China）

Abstract：The construction of basic information database of homestead is a time consuming and complicated work，in order to improve the efficiency of the basic information database of land and to ensure the accuracy of the data base，by using the Vlisp computer program language to develop two times on the AutoCAD software，compiled with the application of AutoCAD software program to extract the data from the basic information of command curtilage base of Digital Cadastral map.

Key words：homestead ；cadastral map；Vlisp；AutoCAD

[責任編輯 李 可]