胡紹輝,陳海英,魏葉敏

(1. 四川省煤田地質(zhì)局一三七隊(duì)，四川 達(dá)州 635000； 2. 西南交通大學(xué)，四川 成都 610000； 3. 四川省第一測(cè)繪工程院，四川 成都 610100)

AutoCAD2004平臺(tái)下農(nóng)村宅基地宗地圖批量生產(chǎn)軟件的研發(fā)

胡紹輝1,2,陳海英3,魏葉敏1

(1. 四川省煤田地質(zhì)局一三七隊(duì)，四川 達(dá)州 635000； 2. 西南交通大學(xué)，四川 成都 610000； 3. 四川省第一測(cè)繪工程院，四川 成都 610100)

針對(duì)常用的地籍成圖軟件在個(gè)性定制方面的不足，提出了在AutoCAD 2004平臺(tái)上實(shí)現(xiàn)農(nóng)村宅基地宗地圖批量裁切和整飾等功能的軟件研發(fā)。生產(chǎn)實(shí)踐表明，該軟件界面友好、操作方便、成圖高效快捷，能夠較好地滿足農(nóng)村宅基宗地圖批量生產(chǎn)的相關(guān)技術(shù)要求。

AutoCAD 2004；農(nóng)村宅基地；宗地圖；批量生產(chǎn)

農(nóng)村宅基地確權(quán)是農(nóng)村產(chǎn)權(quán)制度改革的一項(xiàng)重要工作內(nèi)容，它的工作目標(biāo)是實(shí)現(xiàn)權(quán)屬清晰、界址明確和面積準(zhǔn)確，而宅基地宗地圖是其重要的成果圖件之一，主要用于粘貼在土地證書上和存放于宗地檔案中。

由于技術(shù)和歷史的原因，我國(guó)以往普遍未開展能夠滿足信息化管理要求下的農(nóng)村宅基地地籍調(diào)查工作。為了落實(shí)物權(quán)法和黨中央的有關(guān)文件指示精神，全國(guó)各地陸續(xù)按照地籍調(diào)查規(guī)程的有關(guān)技術(shù)要求在縣級(jí)土地主管部門的領(lǐng)導(dǎo)下對(duì)縣域范圍內(nèi)農(nóng)村宅基地開展地籍調(diào)查工作。該項(xiàng)工作具有工作量大、時(shí)間緊、技術(shù)政策性強(qiáng)等特點(diǎn)，給作業(yè)單位和技術(shù)人員帶來了一定的挑戰(zhàn)。

一、農(nóng)村宅基地宗地圖

1. 主要特點(diǎn)介紹

農(nóng)村宅基地宗地圖相對(duì)傳統(tǒng)的城鎮(zhèn)地籍調(diào)查宗地圖有其獨(dú)特之處，主要區(qū)別如下：

1) 數(shù)量巨大且需要在短期內(nèi)完成。以遂寧市安居區(qū)為例，該區(qū)有20.5萬(wàn)宗宅基地使用權(quán)，需在兩年半內(nèi)完成全部地籍調(diào)查工作，按照工序劃分，留給海量宗地圖制作的時(shí)間僅半年左右。

2) 宗地圖需要反映的內(nèi)容遠(yuǎn)比規(guī)范上標(biāo)準(zhǔn)宗地圖要豐富。同樣以遂寧市安居區(qū)為例，該區(qū)宗地圖不僅要反映宗地面積，而且要反映建筑占地面積，在土地證書上共反映4個(gè)面積信息，除以上兩個(gè)外還包括使用權(quán)面積(發(fā)證面積)和其他集體建設(shè)用地面積，其邏輯關(guān)系是：宗地面積包含建筑占地面積，建筑占地面積包含使用權(quán)面積，宗地面積減使用權(quán)面積等于其他集體建設(shè)用地面積。之所以會(huì)產(chǎn)生宗地面積與發(fā)證面積不一致的情況是由該區(qū)宅基地確權(quán)范圍規(guī)定決定的，本著尊重農(nóng)民實(shí)際宅基地占有的普遍情況，該區(qū)規(guī)定宅基地確權(quán)范圍含房屋(包括房屋附屬建筑及設(shè)施)和院壩，建筑占地面積以房屋滴水線來計(jì)算，使用權(quán)最大不得超過建筑占地面積，也即院壩面積不參與發(fā)證面積的分配。為了計(jì)算建筑占地面積，在地籍圖上專門以地類圖斑線對(duì)院壩單獨(dú)構(gòu)面。

3) 宗地圖制作與數(shù)據(jù)庫(kù)建庫(kù)是由不同作業(yè)單位用不同的軟件完成的，且其數(shù)據(jù)要能夠與后續(xù)建庫(kù)精準(zhǔn)對(duì)接。

2. 常用的宗地圖編制軟件局限性分析

基于AutoCAD 2004平臺(tái)軟件而開發(fā)的CASS 8.0軟件是目前用于地籍調(diào)查中最廣泛的軟件之一，也是測(cè)量技術(shù)人員最熟悉的軟件之一。

該軟件具有操作簡(jiǎn)單、界面友好和功能強(qiáng)大等諸多優(yōu)點(diǎn)，能夠?qū)崿F(xiàn)地籍調(diào)查制圖和簡(jiǎn)單的報(bào)表輸出等功能，基本上能夠完成除數(shù)據(jù)庫(kù)建設(shè)外的所有工作。但針對(duì)農(nóng)村宅基地宗地圖的快速高效制作，它有一定的局限性，因?yàn)槠鋬?nèi)置的模板并不適應(yīng)農(nóng)村宅基地宗地圖的獨(dú)特要求，要得到合格的成果，在經(jīng)過自動(dòng)裁切輸出后還需要花費(fèi)相當(dāng)多的時(shí)間對(duì)自動(dòng)裁切的圖件進(jìn)行編輯和處理。

相對(duì)專門的GIS軟件，CASS在圖形邏輯關(guān)系檢查能力和數(shù)據(jù)導(dǎo)出能力方面較弱，如對(duì)于影響界址點(diǎn)數(shù)目和宗地面積的共點(diǎn)懸掛錯(cuò)誤，該軟件無相關(guān)檢查工具，雖然可以通過導(dǎo)出權(quán)屬線信息的方式導(dǎo)出權(quán)利人、宗地面積和圖幅號(hào)等信息，但對(duì)界址點(diǎn)個(gè)數(shù)卻無法辦到。

基于以上分析，該軟件應(yīng)具備如下功能：照顧作業(yè)員的習(xí)慣，最好在AutoCAD 2004平臺(tái)上開發(fā)；能夠補(bǔ)充CASS對(duì)圖形邏輯錯(cuò)誤檢查的不足，如共點(diǎn)懸掛錯(cuò)誤；在較少人工的干預(yù)下實(shí)現(xiàn)在合格地籍圖上自動(dòng)裁切整飾宗地圖和批量打印輸出；批量導(dǎo)出農(nóng)村宅基地確權(quán)需要的宗地信息。

二、軟件架構(gòu)設(shè)計(jì)

1. 宅基地宗地圖樣圖設(shè)計(jì)

宗地圖樣圖如圖1所示，具體如下：

圖1 宗地圖樣圖

1) 圖紙規(guī)格：A4豎向幅面，打印比例尺為1∶1，繪圖比例尺決定裁切圖的縮放尺度，注記文字高度和大小不隨圖形縮放而縮放。

2) 權(quán)屬線寬度和界址點(diǎn)圓圈大小主宗和鄰宗相同，均為0.3 mm寬，直徑1.2 mm。為了突出顯示主宗，主宗權(quán)屬線和界址點(diǎn)及注記顏色均為黑色，鄰宗為默認(rèn)的紅色，權(quán)利人和宗地號(hào)大小主宗和鄰宗相差0.25， 字形均為中等線體， 主宗權(quán)利人字高為

1.75，宗地號(hào)字高為1.25。

3) 界址點(diǎn)注記：字形為隸書，字高為1.0，寬高比為0.8。

4) 房屋、公路、院壩等地理要素文字注記統(tǒng)一規(guī)定：字形為HZ，字高為1.25，注記遇到宗地號(hào)、權(quán)利人需要移位。

5) 用于輔助四至填寫的村組等行政地名注記統(tǒng)一規(guī)定：字形為中等線體，字高為1.25。

6) 宗地代碼、土地權(quán)利人、所在圖幅號(hào)、宗地面積、制圖日期、審核日期、制圖者、審核者本身字體為HZ，字高為1.75，對(duì)應(yīng)所填內(nèi)容的字形為中等線體，字高為1.5。

7) 比例尺字形為中等線體，字高為1.75。

8) 圖框注記規(guī)格：宗地圖字形中等線體，字高3.0；單位為中等線體，字高1.75；單位名稱為中等線體，字高2.0。

2. 輸入輸出文件結(jié)構(gòu)設(shè)計(jì)

(1) 輸入文件“宗地圖整飾”設(shè)計(jì)

在“C:NCZD”目錄下有一個(gè)“文件宗地圖整飾.txt”，農(nóng)村宅基地宗地圖批量整飾時(shí)從該文件中讀取信息，根據(jù)村名、制圖者、審核者的不同而修改存盤即可。其設(shè)計(jì)結(jié)構(gòu)如圖2所示。

(2) 輸出文件“宗地面積匯總”設(shè)計(jì)

批量宗地圖整飾完后，在“C:NCZD”目錄下自動(dòng)創(chuàng)建“宗地面積匯總.xls”文件，其設(shè)計(jì)結(jié)構(gòu)如圖3所示。

圖3

3. 軟件界面設(shè)計(jì)

在CASS軟件界面里增加一個(gè)下拉式菜單“農(nóng)村宗地編輯”，如圖4所示。

圖4

三、功能模塊實(shí)現(xiàn)

1. 數(shù)據(jù)合法性檢查

此模塊是利用Visual LISP編程，在AutoCAD 2004下對(duì)農(nóng)村宅基地圖形的圖層編碼進(jìn)行合法性檢查，不符合CASS 9.0標(biāo)準(zhǔn)圖層的編碼要求的全部改到錯(cuò)誤層WC中，便于對(duì)圖形修改、編輯。

2. 剔除多邊形重疊

此模塊是利用Visual LISP編程，在AutoCAD 2004下對(duì)農(nóng)村宅基地圖形的多邊形封閉面進(jìn)行重疊排錯(cuò)，自動(dòng)刪除圖形中重疊的多邊形。

3. 數(shù)據(jù)拓?fù)錂z查

此模塊是利用Visual LISP編程，在AutoCAD 2004下對(duì)農(nóng)村宅基地圖形中權(quán)屬界線和房屋進(jìn)行拓?fù)溴e(cuò)誤檢查和定位，查出圖上的共點(diǎn)錯(cuò)誤、懸掛錯(cuò)誤、殘點(diǎn)殘線等，并在有疑問處畫一個(gè)在WC層的圓圈，便于對(duì)圖形修改、編輯。

4. 線面重點(diǎn)處理

此模塊是利用Visual LISP編程，在AutoCAD 2004下對(duì)農(nóng)村宅基地圖形進(jìn)行懸掛處理，自動(dòng)清除線和面重疊及重點(diǎn)。

5. 宗地草圖裁剪

此模塊是利用Visual LISP編程，在AutoCAD 2004下對(duì)農(nóng)村宅基地圖形中宗地根據(jù)圖上數(shù)據(jù)的編號(hào)(013007JC01001)自動(dòng)裁剪宗地草圖，存放在C:NCZD目錄下，并加CT+編號(hào)，生成CAD圖。其裁剪圖形核心編碼如下：

(command′zoom′w′(list minx miny)(list maxx maxy))

(command′zoom′′0.5x′)

(setq h9(-maxx minx)s9(-maxy miny)h91(/(+maxx minx)2)s91(/(+maxy miny)2))

(setq hbsl(/120 h9)sbsl(/140 h9))

(if(

(setq hbsl(atoi(rtos hbsl 2 0)))

(if(>hbsl 11)(setq b122 10))

(if(and(>hbsl 6)(<=hbsl 11))(setq b122 5))

(if(and(>=hbsl(/10 3))(<=hbsl 6))(setq b122(/10 3)))

(if(and(>=hbsl(/10 4))(

(if(and(>=hbsl(/10 5))(

(if(and(>=hbsl(/10 6))(

(if(and(>=hbsl(/10 7))(

(if(and(>=hbsl(/10 8))(

(if(and(>=hbsl(/10 9))(

(if(and(>=hbsl 1)(

(if(

(setq ss6(ssget′C′)(list(-h91(*12(/10 BL22)))(-s91(*12(/10 BL22))))

(list(+h91(*12(/10 BL22)))(+s91(*12(/10 BL22))))))

(if(AND(/=ss6 nil)(/=zdh nil))

(progn

(command′copy′ss6′′(0 0)′(0 0))

(setq zdh1(strcat′c:\nczd\ct′zdh))

(if(findfile(strcat zdh1′.dwg′))

(command′wblock′zdh1′y′′′’(0 0)ss6′′)

(command′wblock′zdh1′′’(0 0)ss6′′)

)

))

6. 宗地圖整飾

此模塊是利用Visual LISP和Visual Basic 6.0編程，在AutoCAD 2004下調(diào)用程序，根據(jù)“C:NCZD宗地圖整飾.txt”和C:NCZD目錄宗地裁剪生成的草圖DWG文件自動(dòng)生產(chǎn)農(nóng)村宗地權(quán)屬圖，并自動(dòng)標(biāo)注各種信息，根據(jù)圖形大小分在C:NCZDDT目錄下。修改“C:NCZD宗地圖整飾.txt”中村名“七里店村”等信息，自動(dòng)與圖中組名組合注記在農(nóng)村宗地圖里,以及自動(dòng)注記對(duì)應(yīng)的其他注記，自動(dòng)生成“宗地面積匯總.xls”，把圖形中各宗地的宗地代碼、戶主名、界址點(diǎn)個(gè)數(shù)、宗地面積、院壩面積等信息寫入文件里。其Visual Basic 6.0編程把信息寫入“宗地面積匯總.xls”的核心編碼如下：

ChDir′C:NCZD′

Workbooks.Open FileName:=′C:Progran FilesAutoCAD 2004Support宗地面積匯總.xls′

Do While i

If jzd(i,2)<>′′Then

Range(′A′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,1)

Range(′B′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,2)

Range(′C′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,3)

Range(′D′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,4)

Range(′E′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,5)

Range(′F′+Format(ymsl,′0′)).Select

ActiveCell.FormuaR1C1=′1:′+jzd(i,6)

Range(′G′+Format(ymsl,′0′)).Select

ActiveCell.FormulaR1C1=jzd(i,7)

ymsl=ymsl+1

End If

i=i+1

Loop

If Len(Dir(′C:NCZD宗地面積匯總.xls′))>0 Then Kill(′c: czd宗地面積匯總.xls′)

ActiveWorkbook.SaveAs FileName:=′C:NCZD宗地面積匯總.xls′，F(xiàn)ileFormat:=xlNormal_

,Password:=′′,WriteResPassword:=′′,ReadOnlyRecommended:False,_

CreateBackup:=False

7. 批量打印宗地圖

此模塊是利用Visual LISP編程，在AutoCAD 2004下選中的CAD圖形自動(dòng)打印，不需要人工干預(yù)，通過設(shè)置好的打印機(jī)一宗一宗地自動(dòng)打印宗地圖，節(jié)約了大量的人力、物力。其中部分核心編碼如下：

(foreach n fnb

(setq acdwg(vla-open(vla-get-documents app)n))

(vla-ZoomExtents app)

(vla-PurgeAll acdwg)

(if(wcmatch(getvar′acadver′)′16.#*′)(vla-save acdwg))；不然始終保存為2008版

(setq fx′P′);(setq fx′縱向P′)(setq fx′橫向L′) (setq blc′1∶1′)

(vla-sendcommand acdwg′-plot n模型 上一次打印 n y n ′)

(if(wcmatch(getvar′acadver′)′16.#*′)

(vla-sendcommand acdwg(strcat′-plot y模型 ′′A4′′ m ′fx′ n e ′blc′ 居中打印(C) y y a n y y ′))

(vla-sendcommand acdwg(strcat′-plot y模型 ′′A4′′ m ′fx′ n e ′blc′ C y y a n y y ′))

)

(vla-close acdwg:vlax-false)

)

8. 目錄打印宗地圖

此模塊是利用Visual LISP編程，在AutoCAD 2004下選中目錄的CAD圖形自動(dòng)打印，不需要人工干預(yù)。

9. 批量宗地轉(zhuǎn)圖片

此模塊是利用Visual LISP編程，在AutoCAD 2004下選中的CAD圖形自動(dòng)轉(zhuǎn)換為JPG圖片，不過每宗宗地圖轉(zhuǎn)換時(shí)需人工干預(yù)一下，點(diǎn)擊保存即可。

四、應(yīng)用情況

在正式使用前，該軟件經(jīng)過了嚴(yán)格的測(cè)評(píng)，測(cè)評(píng)在使用者和開發(fā)者互動(dòng)中進(jìn)行，使用者在使用中發(fā)現(xiàn)問題并反饋，開發(fā)者不斷改進(jìn)。在經(jīng)過了長(zhǎng)達(dá)3個(gè)月的開發(fā)和互動(dòng)后該軟件正式投入生產(chǎn)，其中測(cè)評(píng)互動(dòng)占軟件總開發(fā)時(shí)間的2/3。現(xiàn)在將測(cè)評(píng)和生產(chǎn)情況詳細(xì)介紹如下：

1. 測(cè)評(píng)和改進(jìn)

測(cè)評(píng)主要考查軟件普適性和效率。在試用中陸續(xù)發(fā)現(xiàn)了如下主要問題：①裁圖后相鄰的房屋注記吸附在一起；②少量宗地?zé)o法整飾；③少量宗地院壩面積統(tǒng)計(jì)有誤；④部分共點(diǎn)和懸掛無法查出來；⑤部分注記整飾后縮放有誤；⑥圖幅號(hào)未保留到小數(shù)點(diǎn)后兩位；⑦遇到故障宗地后整飾操作過程無法中斷。

以上問題除④外均得到了較好的解決和完善?？紤]該軟件的主要功能是宗地圖的自動(dòng)裁切整飾，并且共點(diǎn)和懸掛錯(cuò)誤還要經(jīng)過GIS軟件的檢查，因此僅僅是初步篩查，故未對(duì)其進(jìn)行深入研究和改進(jìn)。

2. 生產(chǎn)情況報(bào)告

該軟件已用于遂寧市安居區(qū)農(nóng)村集體建設(shè)用地測(cè)繪建庫(kù)及確權(quán)登記項(xiàng)目的生產(chǎn)，能夠較好地完成宗地圖的自動(dòng)裁切整飾和批量打印輸出，能夠?qū)ψ诘貓D的源數(shù)據(jù)地籍圖進(jìn)行初步數(shù)據(jù)入庫(kù)預(yù)處理檢查，能夠?qū)崿F(xiàn)宗地屬性數(shù)據(jù)的Excel報(bào)表輸出等功能。

該軟件生產(chǎn)效率較高，可以在筆記本電腦和臺(tái)式電腦上運(yùn)行，運(yùn)行時(shí)間與硬件配置有關(guān)。表1是遂寧市安居區(qū)聚賢鄉(xiāng)木蓮寺村430宗地自動(dòng)裁切整飾用時(shí)測(cè)試情況。

表1 用時(shí)測(cè)試統(tǒng)計(jì)表 min

五、結(jié)束語(yǔ)

基于AutoCAD 2004平臺(tái)實(shí)現(xiàn)農(nóng)村宅基地宗地圖批量裁切和整飾等功能的軟件研發(fā)較好地解決了農(nóng)村宅基地確權(quán)生產(chǎn)中的技術(shù)問題，減輕了作業(yè)人員的工作強(qiáng)度，提高了產(chǎn)品的生產(chǎn)效率和質(zhì)量，取得了一定的社會(huì)和經(jīng)濟(jì)效益。

[1] 劉炳文.精通Visual Basic 6.0中文版[M].北京： 電子工業(yè)出版社，1999.

[2] 陳伯雄，馮偉.Visual LISP程序設(shè)計(jì)—技巧與范例[M].北京：人民郵電出版社，2002.

[3] 中華人民共和國(guó)國(guó)土資源部.地籍調(diào)查規(guī)程：TD/T1001—2012[S].北京: 中國(guó)標(biāo)準(zhǔn)出版社, 2012.

[4] 遂寧市國(guó)土資源局.遂寧市人民政府辦公室《關(guān)于印發(fā)遂寧市進(jìn)一步規(guī)范農(nóng)村集體土地確權(quán)登記發(fā)證工作方案》的通知[EB/OL].2012-11-16.http:∥gtzyj.scsn.gov.cn/Item/45478.aspx.

[5] 陳重奎，李乃良.基于AutoCAD的多邊形間的間隙核查[J].測(cè)繪通報(bào)，2009(8):44-46.

[6] 肖劍平，劉美春.基于地形圖的宗地圖自動(dòng)生成方案的設(shè)計(jì)與實(shí)現(xiàn)[J].測(cè)繪通報(bào)，2003(10)：43-45.

[7] 蘇韜，方鵬，陳勝林，等.基于MicroStation的宗地圖動(dòng)態(tài)標(biāo)注研究[J].測(cè)繪通報(bào)，2012(4)：83-85.

[8] 張欽偉.基于ArcEngine的宗地圖注記批量編輯研究[J].現(xiàn)代測(cè)繪，2013(2)：56-58.

TheSoftwareDevelopmentofBatchProductionofParcelMapBasedonAutoCAD2004

HU Shaohui,CHEN Haiying,WEI Yemin

胡紹輝,陳海英,魏葉敏.AutoCAD 2004平臺(tái)下農(nóng)村宅基地宗地圖批量生產(chǎn)軟件的研發(fā)[J].測(cè)繪通報(bào)，2016(9)：83-86.

10.13474/j.cnki.11-2246.2016.0300.

P258

B

0494-0911(2016)09-0083-04

2015-12-04

胡紹輝(1980—)，男，碩士生，工程師，主要從事測(cè)繪生產(chǎn)和技術(shù)管理工作。E-mail：38115462@qq.com