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

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

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

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

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

1　引言

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

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

2　AutoLISP簡介

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

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

3　程序設(shè)計

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

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

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

3.2轉(zhuǎn)換原則

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

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

（1）啟動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個需要轉(zhuǎn)換編碼的承包地塊，分別采用程序及人工轉(zhuǎn)換的方式修改地塊編碼。經(jīng)檢查測定：

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

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

5　結(jié)束語

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

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

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

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

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

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

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

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

趙欣偉（1987～），女，助理工程師，工學(xué)學(xué)士，研究方向為土地確權(quán)。