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

任航科

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

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

任航科?

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

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

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

1 引 言

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

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

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

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

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

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

3.2 程序的設(shè)計(jì)

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

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

圖1 A4豎宗地圖

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

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

4 程序的原代碼

批量打印宗地圖代碼:

5 結(jié) 語

通過程序可以使得原本單調(diào)乏味的工作變得很輕松，再也不需要對(duì)著數(shù)以萬計(jì)的宗地圖一個(gè)個(gè)來打印，不僅節(jié)約了時(shí)間，更節(jié)省了人力、物力、財(cái)力。其實(shí)LISP程序的功能很強(qiáng)大，也很好用。像平時(shí)測(cè)圖中批量標(biāo)注，批量查錯(cuò)，批量檢核打點(diǎn)精度，還有這次調(diào)查中用來批量修改宗地圖面信息和部分CASS命令難以修改的屬性等。在平時(shí)的工作當(dāng)中，適當(dāng)?shù)木帉懸恍┬〕绦颍梢源蠓鹊奶岣吖ぷ餍?，并且能保證工程的質(zhì)量。

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

[2] 樊志全.地籍調(diào)查第二版[M].北京:中國(guó)農(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—)，男，助理工程師，主要從事工程測(cè)量、數(shù)據(jù)建庫(kù)的應(yīng)用研究。