LISP語言和Word的郵件合并功能在地籍調(diào)查中的應(yīng)用

徐 陽,王鵬程,王子健

(1.山東省煤田地質(zhì)局第一勘探隊(duì),山東 青島 266555;2.山東泰山技師學(xué)院,山東 棗莊 277500)

0 引 言

農(nóng)村地籍調(diào)查是國家推出的明確農(nóng)村住房和宅基地產(chǎn)權(quán)歸屬、保障農(nóng)民合法權(quán)益、深入推進(jìn)農(nóng)村制度改革的一項(xiàng)重要舉措,其具體工作需要深入每家每戶,測量每個(gè)房屋的界址點(diǎn),確認(rèn)房屋的所屬權(quán)利人并調(diào)查權(quán)利人的身份信息等。測量調(diào)查工作量十分龐大,在后期整理數(shù)據(jù)需要大量的人工篩選和圖形編輯繪制等工作[1-2]。

農(nóng)村地籍調(diào)查宗地?cái)?shù)量龐大,使用傳統(tǒng)的技術(shù)方法需要大量的人工操作,工作效率低下,急需一種新的方法提高工作效率。本人在工作中發(fā)現(xiàn)地籍調(diào)查的數(shù)據(jù)結(jié)構(gòu)具有一定的共性,研究出一種通過運(yùn)用Word郵件合并功能將CASS 8.0導(dǎo)出的宗地屬性中的數(shù)據(jù)直接導(dǎo)入地籍調(diào)查表格中[3-4],并進(jìn)行了批量打印,大大縮短了人工填寫的時(shí)間。

在CASS 8.0生成的單張宗地圖中,發(fā)現(xiàn)所生成的圖形仍舊需要大量的人工調(diào)整,其調(diào)整步驟具有一定的統(tǒng)一性和順序性,LISP語言是一種基于CAD基礎(chǔ)上發(fā)展的具有人工智能的匯編語言,編程方式簡單且針對性強(qiáng),利用在CAD基礎(chǔ)上的二次開發(fā)的LISP語言簡化CASS 8.0生成的宗地圖的修改步驟,替代了手動(dòng)修改宗地圖的過程,提高了修改宗地圖的效率與質(zhì)量,降低出錯(cuò)率,該種方法在保證質(zhì)量的前提下有效的提高了宗地圖的輸出速度,在正常修改宗地圖速度下每人每日最多處理25張圖的情況下,將修改宗地圖速度提高到了每日200張左右的速度,使地籍調(diào)查工作更加科學(xué)、便捷。本文首次提出利用在CAD基礎(chǔ)上的利用LISP語言對宗地圖進(jìn)行批量的修改并分類,大大提高了修改宗地圖的效率[5-10]。

1 地籍調(diào)查中Word郵件合并功能和LISP語言的應(yīng)用

1.1 使用傳統(tǒng)方法生成地籍調(diào)查成果

在地籍調(diào)查中發(fā)現(xiàn),每戶宗地需要采集以下信息并填入地籍調(diào)查表中,如表1所示。

表1 地籍調(diào)查表所需信息

例如一個(gè)500戶左右自然村,如果采用人工手動(dòng)填寫,需填寫的數(shù)據(jù)可達(dá)上萬處。

根據(jù)《第三次全國國土調(diào)查技術(shù)規(guī)程》(TD/T 1055-2019),在野外測量數(shù)據(jù)采集后,在CASS中根據(jù)規(guī)程要求設(shè)置好成圖模板后,通過CASS 8.0的成圖系統(tǒng)批量生成的單張宗地圖(圖1),需要通過大量的人工修改整理調(diào)整等工作才能符合標(biāo)準(zhǔn)(圖2)。

圖1 CASS自動(dòng)生成的原始宗地圖樣式

圖2 宗地圖人工修改操作步驟流程圖

在所生成的圖形中,需要大量的重復(fù)性的處理工作。在有限的時(shí)間內(nèi)整理出完整的資料需要大量的人工操作,工作效率急需提高。

1.2 使用Word的郵件合并功能和LISP語言生成地籍調(diào)查成果

1.2．1 使用Word郵件合并功能自動(dòng)化填充地籍調(diào)查表格

在使用Word郵件合并功能后僅僅需要以下幾個(gè)簡單的步驟(圖3)即可自動(dòng)化填充地籍表格并完成批量打印的操作,極大提高了工作效率。

圖3 郵件合并功能自動(dòng)填充地籍調(diào)查表步驟

具體操作步驟如下(以Word2019為例):

(1)將數(shù)據(jù)整理成表1的格式,并保存為1.xls。

(2)使用Word 2019打開空白的電子版的地籍調(diào)查表,點(diǎn)擊“引用”,點(diǎn)擊最右側(cè)的郵件;點(diǎn)擊“打開數(shù)據(jù)源”,選擇桌面1.xls,選擇sheet1,點(diǎn)擊“確定”。

(3)將光標(biāo)放在需要填寫姓名的空格內(nèi),點(diǎn)擊“插入合并域”彈出如圖4(a)所示對話框,點(diǎn)擊“姓名”,點(diǎn)擊“插入”,即可將姓名這一列中所有內(nèi)容合并與地籍調(diào)查表中。

圖4 地籍調(diào)查表自動(dòng)填充

(4)重復(fù)以上步驟,分別將證件編號、土地坐落等內(nèi)容插入地籍調(diào)查表中,生成如圖4(b)所示內(nèi)容;點(diǎn)擊“查看合并數(shù)據(jù)”即可查看每一位宗地權(quán)利所屬人的地籍信息。

(5)點(diǎn)擊“合并到打印機(jī)”即可對所生成的地籍調(diào)查表進(jìn)行批量打印。

利用以上方法,同樣可以解決申請書的批量填寫問題,大大節(jié)省了人工填寫的時(shí)間。

1.2．2 使用LISP語言批量處理地籍調(diào)查中的宗地圖

本項(xiàng)目提出利用在CAD基礎(chǔ)上的二次開發(fā)的LISP語言簡化CASS 8.0生成的宗地圖的修改步驟,替代了手動(dòng)修改宗地圖的過程,提高了修改宗地圖的效率與質(zhì)量,降低出錯(cuò)率,該種方法在保證質(zhì)量的前提下有效的提高了宗地圖的輸出速度,在正常修改宗地圖速度下每人每日最多處理25張圖的情況下,將修改宗地圖速度提高到了每日200張左右的速度,使地籍調(diào)查工作更加科學(xué)、便捷。調(diào)整后的圖形如圖5所示。

圖5 通過LISP小程序批量處理后的宗地圖

具體可以通過LISP語言調(diào)整部分如下:

(1)宗地代碼由未修改的編號改為本宗地權(quán)利人編號并變?yōu)橐?guī)定的字體。

(2)土地權(quán)利人的姓名由未填寫變?yōu)楸咀诘貦?quán)利人姓名并放在對應(yīng)的位置。

(3)所在圖幅號調(diào)整位置后并改為規(guī)定的字體。

(4)宗地面積由未填寫變?yōu)楸咀诘氐拿娣e并填寫到對應(yīng)的位置。

(5)宗地圖的四至由未填充變?yōu)樽詣?dòng)填充到對應(yīng)的位置。

(6)對相應(yīng)的紅色權(quán)屬線進(jìn)行前置處理。

(7)刪除左上角的參考四至以及左下角解析界址點(diǎn)上自動(dòng)生成的日期。

(8)將權(quán)利人的姓名以及宗地代碼填充到圖形中間正確的位置。

(9)對圍墻線有交叉出錯(cuò)的部分進(jìn)行自動(dòng)修剪并刪除。

(10)刪除界址線以外的其他鄰宗的界址點(diǎn),只保留界址線的部分。

(11)對生成的新的宗地圖按照比例進(jìn)行重新命名。

(12)對經(jīng)過人工再處理后的宗地圖進(jìn)行分類并分文件夾放置,并生成宗地草圖。

為解決以上問題,本文通過研究LISP語言,利用宗地圖權(quán)屬線屬性中的數(shù)據(jù),編輯小程序?qū)σ陨蠁栴}進(jìn)行批量處理,并將同一比例尺的宗地圖存放在同一文件夾內(nèi)。

LISP語言是在CAD的基礎(chǔ)上二次開發(fā)的語言,可以運(yùn)用到任何以CAD為基礎(chǔ)開發(fā)的軟件中,如CASS 8.0中,下面以填寫宗地代碼、宗地所在圖符號。宗地面積為例,簡要說明批量處理的步驟(圖6)。

圖6 批量處理程序代碼

本文通過編寫能夠?qū)ψ诘貓D進(jìn)行批量處理的LISP程序,使其在CASS 8.0的環(huán)境中正常運(yùn)行。采用該程序后的處理過程如圖7所示。

圖7 運(yùn)行LISP程序后的宗地圖修改步驟

通過LISP程序處理后的宗地圖替代了人工操作的很多步驟,無鄰宗的單張宗地圖甚至無須任何處理。通過人工進(jìn)一步修改后即可進(jìn)行批量打印操作。在提高修圖正確率的同時(shí),速度由單人修圖日均25份的提升至單人修圖日均200份左右,工作效率得到大大的提升。

2 結(jié) 語

本文通過LISP和Word的郵件合并功能實(shí)現(xiàn)了地籍調(diào)查成果的自動(dòng)化輸出,提高了輸出效率與質(zhì)量,得到了如下結(jié)論。

(1)利用Word郵件合并功能,可以批量打印同一文本框中不同內(nèi)容的地基調(diào)查表,節(jié)省了大量的人工填寫時(shí)間,降低了出錯(cuò)率。

(2)運(yùn)用LISP編程語言對生成的宗地圖進(jìn)行批量預(yù)處理,完善了CASS 8.0在宗地圖的繪制,極大的提高了工作效率和工作質(zhì)量。

未來的地籍調(diào)查相關(guān)工作將會(huì)越來越自動(dòng)化,軟件化,代替人工操作提高工作效率。