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

胡紹輝,陳海英,魏葉敏

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

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

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

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

針對常用的地籍成圖軟件在個(gè)性定制方面的不足，提出了在AutoCAD 2004平臺上實(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ù)和歷史的原因，我國以往普遍未開展能夠滿足信息化管理要求下的農(nóng)村宅基地地籍調(diào)查工作。為了落實(shí)物權(quán)法和黨中央的有關(guān)文件指示精神，全國各地陸續(xù)按照地籍調(diào)查規(guī)程的有關(guān)技術(shù)要求在縣級土地主管部門的領(lǐng)導(dǎo)下對縣域范圍內(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)村宅基地宗地圖相對傳統(tǒng)的城鎮(zhèn)地籍調(diào)查宗地圖有其獨(dú)特之處，主要區(qū)別如下：

1) 數(shù)量巨大且需要在短期內(nèi)完成。以遂寧市安居區(qū)為例，該區(qū)有20.5萬宗宅基地使用權(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è)用地面積。之所以會產(chǎn)生宗地面積與發(fā)證面積不一致的情況是由該區(qū)宅基地確權(quán)范圍規(guī)定決定的，本著尊重農(nóng)民實(shí)際宅基地占有的普遍情況，該區(qū)規(guī)定宅基地確權(quán)范圍含房屋(包括房屋附屬建筑及設(shè)施)和院壩，建筑占地面積以房屋滴水線來計(jì)算，使用權(quán)最大不得超過建筑占地面積，也即院壩面積不參與發(fā)證面積的分配。為了計(jì)算建筑占地面積，在地籍圖上專門以地類圖斑線對院壩單獨(dú)構(gòu)面。

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

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

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

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

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

基于以上分析，該軟件應(yīng)具備如下功能：照顧作業(yè)員的習(xí)慣，最好在AutoCAD 2004平臺上開發(fā)；能夠補(bǔ)充CASS對圖形邏輯錯(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)利人和宗地號大小主宗和鄰宗相差0.25， 字形均為中等線體， 主宗權(quán)利人字高為

1.75，宗地號字高為1.25。

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

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

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

6) 宗地代碼、土地權(quán)利人、所在圖幅號、宗地面積、制圖日期、審核日期、制圖者、審核者本身字體為HZ，字高為1.75，對應(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下對農(nóng)村宅基地圖形的圖層編碼進(jìn)行合法性檢查，不符合CASS 9.0標(biāo)準(zhǔn)圖層的編碼要求的全部改到錯(cuò)誤層WC中，便于對圖形修改、編輯。

2. 剔除多邊形重疊

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

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

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

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

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

5. 宗地草圖裁剪

此模塊是利用Visual LISP編程，在AutoCAD 2004下對農(nóng)村宅基地圖形中宗地根據(jù)圖上數(shù)據(jù)的編號(013007JC01001)自動(dòng)裁剪宗地草圖，存放在C:NCZD目錄下，并加CT+編號，生成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)注記對應(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)格的測評，測評在使用者和開發(fā)者互動(dòng)中進(jìn)行，使用者在使用中發(fā)現(xiàn)問題并反饋，開發(fā)者不斷改進(jìn)。在經(jīng)過了長達(dá)3個(gè)月的開發(fā)和互動(dòng)后該軟件正式投入生產(chǎn)，其中測評互動(dòng)占軟件總開發(fā)時(shí)間的2/3。現(xiàn)在將測評和生產(chǎn)情況詳細(xì)介紹如下：

1. 測評和改進(jìn)

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

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

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

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

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

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

五、結(jié)束語

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

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

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

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

[4] 遂寧市國土資源局.遂寧市人民政府辦公室《關(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].測繪通報(bào)，2009(8):44-46.

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

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

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

TheSoftwareDevelopmentofBatchProductionofParcelMapBasedonAutoCAD2004

HU Shaohui,CHEN Haiying,WEI Yemin

胡紹輝,陳海英,魏葉敏.AutoCAD 2004平臺下農(nóng)村宅基地宗地圖批量生產(chǎn)軟件的研發(fā)[J].測繪通報(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—)，男，碩士生，工程師，主要從事測繪生產(chǎn)和技術(shù)管理工作。E-mail：38115462@qq.com