淺談AutoLISP在農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記中的應(yīng)用

■趙欣偉　康鐵源(北京蒼穹數(shù)碼測(cè)繪有限公司北京0600；東北煤田地質(zhì)局勘察設(shè)計(jì)研究總院遼寧沈陽(yáng)003)

淺談AutoLISP在農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記中的應(yīng)用

■趙欣偉1康鐵源2
(1北京蒼穹數(shù)碼測(cè)繪有限公司北京102600；2東北煤田地質(zhì)局勘察設(shè)計(jì)研究總院遼寧沈陽(yáng)110013)

農(nóng)村土地承包經(jīng)營(yíng)權(quán)編碼格式修改是項(xiàng)耗費(fèi)時(shí)間的繁復(fù)工作，為了提高編碼格式修改的效率并保證數(shù)據(jù)的準(zhǔn)確性，通過(guò)AutoLISP計(jì)算機(jī)程序語(yǔ)言對(duì)AutoCAD軟件的二次開發(fā)，編譯編碼格式轉(zhuǎn)換的AutoCAD軟件程序命令。

AutoLISP農(nóng)村土地承包經(jīng)營(yíng)權(quán)編碼AutoCAD

1　引言

農(nóng)業(yè)部于2014年2月19日發(fā)布《農(nóng)村土地承包經(jīng)營(yíng)權(quán)要素編碼規(guī)則》（以下簡(jiǎn)稱《編碼規(guī)則》），為如何編制農(nóng)村土地承包經(jīng)營(yíng)權(quán)要素編碼提出了指導(dǎo)性意見和工作規(guī)范。在未發(fā)布《編碼規(guī)則》之前，農(nóng)業(yè)部于2012年6月印發(fā)了《農(nóng)村土地承包經(jīng)營(yíng)權(quán)登記試點(diǎn)工作規(guī)程（試行）》（以下簡(jiǎn)稱《工作規(guī)程》），《工作規(guī)程》中明確了農(nóng)村土地承包經(jīng)營(yíng)權(quán)證書（承包合同）和承包地塊編碼規(guī)則?！豆ぷ饕?guī)程》與《編碼規(guī)則》中所要求的編碼規(guī)則不同，將農(nóng)村土地承包經(jīng)營(yíng)權(quán)證書（承包合同）和承包地塊編碼轉(zhuǎn)化成《編碼規(guī)則》中所要求的編碼樣式可以使承包經(jīng)營(yíng)權(quán)編碼完全統(tǒng)一。如果采用手工修改不僅耗費(fèi)時(shí)間且易出錯(cuò)，使用AutoLISP語(yǔ)言編寫AutoCAD程序，可以方便快捷且準(zhǔn)確的轉(zhuǎn)化編碼格式。

本文以承包地塊編碼為例，介紹AutoLISP在農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記中的應(yīng)用。

2　AutoLISP簡(jiǎn)介

AutoLISP是為擴(kuò)展和自定義AutoCAD功能而設(shè)計(jì)的一種編程語(yǔ)言，它基于起源于五十年代末的LISP語(yǔ)言，LISP最初是為編寫人工智能（AI）應(yīng)用程序設(shè)計(jì)的，現(xiàn)在仍是許多人工智能程序的基礎(chǔ)。

多年來(lái)，AutoLISP一直是自定義AutoCAD的標(biāo)準(zhǔn)，現(xiàn)在Visual LISP增加了許多重要功能，代表著新一代AutoCAD LISP語(yǔ)言，VLISP對(duì)語(yǔ)言進(jìn)行了擴(kuò)展。

3　程序設(shè)計(jì)

3.1程序開發(fā)環(huán)境

（1）操作系統(tǒng)：WindowsXP

（2）計(jì)算機(jī)輔助成圖軟件：AutoCAD2004+南方CASS7.0

3.2轉(zhuǎn)換原則

根據(jù)《工作規(guī)程》和《編碼規(guī)則》中要求的承包地塊編碼可知，從《工作規(guī)程》所要求的承包地塊編碼格式轉(zhuǎn)換成《編碼規(guī)則》所要求的編碼格式，只需將《工作規(guī)程》要求的編碼結(jié)構(gòu)中的“承包農(nóng)戶”及“證書/合同編號(hào)”刪去即可。

3.3程序?qū)崿F(xiàn)

（1）啟動(dòng)CAD2004。

（2）打開Visual LISP編輯器

在AutoCAD菜單中選擇“工具”→“AutoLISP”→“Visual LISP編輯器”，或在命令行輸入命令：VLISP。

（3）代碼編寫

編碼轉(zhuǎn)換代碼如下：

（4）程序加載與運(yùn)行

在Visual LISP文本編輯窗口加載完整的AutoLISP程序，選擇菜單“工具”→“加載編輯器中的文字”。

程序完全加載后在AutoCAD命令行輸入命令“TransZdh”，運(yùn)行程序。

4　比較

從四川省南江縣南江鎮(zhèn)文星村選擇100個(gè)需要轉(zhuǎn)換編碼的承包地塊，分別采用程序及人工轉(zhuǎn)換的方式修改地塊編碼。經(jīng)檢查測(cè)定：

（1）程序轉(zhuǎn)換需要運(yùn)行2秒鐘，人工需要2小時(shí)；

（2）程序轉(zhuǎn)換正確率100%，人工為95%。

5　結(jié)束語(yǔ)

通過(guò)實(shí)際使用可以看出，在農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記工作中使用AutoLISP可以有效的提高工作效率及數(shù)據(jù)準(zhǔn)確性。另外，AutoLISP是一種嵌入在AutoCAD內(nèi)部的結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言，且語(yǔ)法簡(jiǎn)單，易于掌握；使用時(shí)方便靈活，易于交互；兼容性較好，程序設(shè)計(jì)的復(fù)雜程序和運(yùn)行風(fēng)險(xiǎn)較低，不會(huì)造成系統(tǒng)崩潰。

[1]吳永進(jìn)，林美櫻.AutoLISP&DCL基礎(chǔ)篇[M].北京：中國(guó)鐵道出版社，2003.

[2]王流陽(yáng).淺談AutoLISP語(yǔ)言在房產(chǎn)測(cè)繪中的應(yīng)用[J].北京測(cè)繪，2014，04:113-115.

[3]中華人民共和國(guó)農(nóng)業(yè)部.農(nóng)村土地承包經(jīng)營(yíng)權(quán)登記試點(diǎn)工作規(guī)程（試行）[M].北京：中華人民共和國(guó)農(nóng)業(yè)部，2013.

[4]NY/T 2538-2014.農(nóng)村土地承包經(jīng)營(yíng)權(quán)要素編碼規(guī)則[S].北京：中國(guó)農(nóng)業(yè)出版社，2014.

[5]北京蒼穹數(shù)碼測(cè)繪有限公司.蒼穹數(shù)碼農(nóng)村土地承包經(jīng)營(yíng)權(quán)作業(yè)指導(dǎo)書[M].北京：北京蒼穹數(shù)碼測(cè)繪有限公司，2014.

P62[文獻(xiàn)碼]B

1000-405X（2016）-1-158-1

趙欣偉（1987～），女，助理工程師，工學(xué)學(xué)士，研究方向?yàn)橥恋卮_權(quán)。