任航科

(福建省八閩測繪院，福建廈門 362000)

LISP語言在測繪作業(yè)中的應(yīng)用

任航科?

(福建省八閩測繪院，福建廈門 362000)

CASS作為在CAD下開發(fā)的測繪軟件，因其易學，界面友好，操作方便等特點受到廣大測繪工作者的喜愛。而并非所有你需要的命令都在其中，這個時候就需要借助LISP這個CAD二次開發(fā)工具來量身定做所需要的特殊功能。有的時候靈活的運用LISP程序進行二次開發(fā)，對于節(jié)省人力，物力，財力有著立竿見影的效果，如地籍測量后期資料的批量提供。

CAD LISP；測繪；地籍測量；程序；開發(fā)

1 引 言

AutoLISP是由Autodesk公司開發(fā)的一種LISP程序語言(LISP是List Processor的縮寫)。AutoCAD軟件包中包含大多數(shù)用于產(chǎn)生圖形的命令，但仍有某些命令末被提供。例如，AutoCAD中沒有在圖形文本對象內(nèi)繪制矩形及作全局改變的命令等其他一些命令。通過AutoLISP，你可以使用AutoLISP程序語言編制能夠在圖形文本對象內(nèi)繪制矩形或作全局選擇性改變的程序。事實上，可以用AutoLISP編制任何程序，或把它嵌入到菜單中，這樣定制你的系統(tǒng)會取得更高的效率。LISP語言以其語法簡單，功能函數(shù)強大，撰寫的環(huán)境不挑剔，直譯式程序(即寫即測)等優(yōu)點，而受到廣大編程愛好者的喜歡。由于近一兩年全國的第二次城鎮(zhèn)土地調(diào)查開展如火如荼，本人就結(jié)合在作業(yè)過程中的靈活運用LISP程序的個別案例簡單介紹如下。

2 第二次城鎮(zhèn)土地調(diào)查簡介

城鎮(zhèn)土地調(diào)查即城鎮(zhèn)地籍調(diào)查，是依照國家的相關(guān)法規(guī)，通過權(quán)屬調(diào)查和地籍測量，查清宗地的權(quán)屬、界址線、面積、用途和位置等情況，形成數(shù)據(jù)、圖件、表冊等調(diào)查成果，為土地登記、核發(fā)證書提供依據(jù)的一項集行政、技術(shù)于一體的工作。福建省八閩測繪院的作業(yè)方法是前期的地籍圖以及街坊圖的制作都是在CASS 7.1軟件下完成的，后期的建庫數(shù)據(jù)再以這些圖件為基礎(chǔ)來進行提取。城鎮(zhèn)地籍調(diào)查形成的圖件很多，如街坊圖、土地利用現(xiàn)狀圖、宗地圖、界址調(diào)查表等。其中最多的圖件算是宗地圖和界址調(diào)查表了，因為每宗地都有其對應(yīng)的宗地圖和界址調(diào)查表。這樣算下來一個調(diào)查區(qū)域也就是一個作業(yè)區(qū)域的宗地圖數(shù)目和界址調(diào)查表數(shù)目就非?？捎^了，少說也得上萬宗地。因為宗地圖和調(diào)查表需要打印成紙質(zhì)的進行外業(yè)檢查和存檔。如果在CASS中一個一個宗地打印的話，效率非常低。在這個時候可借助LISP這個CAD的內(nèi)嵌程序來幫助解決工作的效率問題。

3 程序開發(fā)的基礎(chǔ)和設(shè)計

3.1 全國第二次土地調(diào)查的宗地圖和界址調(diào)查表

如圖1、圖2所示，圖1為宗地圖，圖2為相對應(yīng)的本宗地的界址調(diào)查表。由于城鎮(zhèn)地籍調(diào)查所涉及的宗地90%以上宗地圖都是橫或者豎的A4模板，調(diào)查表都是A4豎模板。如果有一些很大宗地或者很特殊的宗地則采用A3或者自定義宗地圖模板，畢竟那都是少數(shù)，手工打印就可以了。所以這次程序主要針對A4橫、豎模板宗地圖和界址調(diào)查表的打印。

3.2 程序的設(shè)計

由于CASS軟件在生成宗地圖或者界址調(diào)查表的時候都是調(diào)用固定模板的，所以每個宗地的宗地圖和界址調(diào)查表在CAD圖中都有一個共同的塊。我們可以從這個塊著手，通過分析這個共同塊的串行資料，找到他們的共同點，然后著手程序的編寫。

A4豎宗地圖塊模板的串行資料如下:

圖1 A4豎宗地圖

圖2 A4豎界址調(diào)查表

通過上邊的串行信息我們可以看出，其中有一個重要坐標信息；(10 504118.0 3.08986e＋006 0.0)，這個坐標就是塊模板的近似左下角坐標。這個信息可以在以后調(diào)用CAD的打印命令的時候來控制打印范圍。A4豎和A4橫的模板名不一樣，分別為(2."gddjtk2")和(2. "gddjtk5")，通過這個可以讓程序自動區(qū)分打印A4豎和橫的宗地圖。針對宗地圖，每個宗地圖串行資料中的(0."INSERT")(8."TK")是唯一可以確定塊模板的串行資料對。而對于界址調(diào)查表而言(0."INSERT") (8."TK")(2."acdjtkb")則是可以確定界址調(diào)查表的串行資料對，通過整個圖面數(shù)據(jù)庫來選擇的時候，真正的調(diào)查表個數(shù)為其一半。通過上邊的分析，就可以編寫批量打印的LISP程序了。

4 程序的原代碼

批量打印宗地圖代碼:

5 結(jié) 語

通過程序可以使得原本單調(diào)乏味的工作變得很輕松，再也不需要對著數(shù)以萬計的宗地圖一個個來打印，不僅節(jié)約了時間，更節(jié)省了人力、物力、財力。其實LISP程序的功能很強大，也很好用。像平時測圖中批量標注，批量查錯，批量檢核打點精度，還有這次調(diào)查中用來批量修改宗地圖面信息和部分CASS命令難以修改的屬性等。在平時的工作當中，適當?shù)木帉懸恍┬〕绦?，可以大幅度的提高工作效率，并且能保證工程的質(zhì)量。

[1] 黎新懿，趙景亮.有Visual LISP開發(fā)AutoCAD 2004應(yīng)用程序[M].北京:科學出版社，2005

[2] 樊志全.地籍調(diào)查第二版[M].北京:中國農(nóng)業(yè)出版社，2005

LISP Language Application in Surveying and Mapping

Ren HangKe
(Fujian Province Bamin Institute of Surveying and Mapping，Xiamen 361012，China)

Developed under the surveying software of CAD，cass is loved by most Surveying and mapping workers beacause easy to studing，friendly interface，easy operation，and so on..Sometimes，you can use the language of LISP to develop the special function which fiting to you，beacause CAD cannot contain all the command.Secondary development of CAD using LISP Can save a lot of human，material and financial resources sometimes，such as the data providing of cadastral surveying.

Computer aided design；List Processor；Surving and mapping；Program；Develop

1672－8262(2011)01－110－03

P209

B

2010—07—14

任航科(1983—)，男，助理工程師，主要從事工程測量、數(shù)據(jù)建庫的應(yīng)用研究。