地形圖數(shù)據(jù)轉(zhuǎn)化城管部件數(shù)據(jù)程序開(kāi)發(fā)

劉軍，王小維

(常州市測(cè)繪院，江蘇 常州　213000)

?

地形圖數(shù)據(jù)轉(zhuǎn)化城管部件數(shù)據(jù)程序開(kāi)發(fā)

劉軍*，王小維

(常州市測(cè)繪院，江蘇 常州213000)

摘要：城市管理信息化是當(dāng)今社會(huì)發(fā)展和城市管理的大趨勢(shì)，“數(shù)字城管”為城市管理信息化的一個(gè)平臺(tái)，本文探討了如何把大比例尺地形圖數(shù)據(jù)轉(zhuǎn)化為“數(shù)字城管”的格式數(shù)據(jù)，并開(kāi)發(fā)了相應(yīng)的程序?qū)崿F(xiàn)了該功能。使用本文設(shè)計(jì)的程序把地形圖數(shù)據(jù)轉(zhuǎn)化為數(shù)字城管部件數(shù)據(jù)，實(shí)踐表明它可以提高工作效率，而且滿(mǎn)足使用需求，為測(cè)繪單位對(duì)該類(lèi)數(shù)據(jù)批量轉(zhuǎn)化提供了有益的參考。

關(guān)鍵詞：數(shù)字城管；部件；地形圖；數(shù)據(jù)轉(zhuǎn)化；程序

1引言

城市管理信息化是當(dāng)今社會(huì)發(fā)展和城市管理的大趨勢(shì)，城市管理信息化水平的高低已成為衡量一個(gè)城市或地區(qū)競(jìng)爭(zhēng)力和現(xiàn)代化程度的重要標(biāo)志。打造常州市“數(shù)字城管”基礎(chǔ)平臺(tái)，使信息化成為推進(jìn)城市管理工作的重要手段，以提高城市管理水平，為社會(huì)公眾創(chuàng)造和諧、整潔、安全、優(yōu)美的城市環(huán)境，提高社會(huì)公眾的生活質(zhì)量。

常州市“數(shù)字城管”項(xiàng)目建設(shè)的基礎(chǔ)數(shù)據(jù)為常州市測(cè)繪院已有的1∶500、1∶1 000大比例尺地形圖數(shù)據(jù)，考慮到地形圖上的檢修井、路燈、綠地等地物符號(hào)與城管部件的符號(hào)相同或位置相同，如果把大比例尺地形圖上的檢修井符號(hào)、路燈、地?zé)舻鹊匚锓?hào)轉(zhuǎn)化為數(shù)字城管部件相應(yīng)的符號(hào)，不但可以提高工作效率，而且可以節(jié)約測(cè)繪成本。

2數(shù)據(jù)格式分析

雖然大比例尺地形圖數(shù)據(jù)與數(shù)據(jù)城管的數(shù)據(jù)格式均為AutoCAD的dwg格式，數(shù)據(jù)均由點(diǎn)線(xiàn)面以及文字注記構(gòu)成，但是兩者還存在不同地方。一是部分地形圖檢修井符號(hào)與數(shù)字城管部件的符號(hào)樣式有別，如地形圖雨水檢修井蓋與數(shù)字城管的雨水井符號(hào)樣式不同；二是符號(hào)的附加屬性數(shù)據(jù)(Xdata)有別，如屬性數(shù)據(jù)的內(nèi)容不同，地形圖的附加屬性數(shù)據(jù)一般不會(huì)關(guān)注地物的權(quán)屬單位，但是數(shù)字城管部件的附加屬性數(shù)據(jù)對(duì)權(quán)屬單位有特別的要求；三是兩者的屬性數(shù)據(jù)的個(gè)數(shù)也不同，地形圖的屬性數(shù)據(jù)個(gè)數(shù)一般的有3個(gè)～6個(gè)，數(shù)字城管部件的屬性數(shù)據(jù)個(gè)數(shù)一般均大于10個(gè)，如圖1、圖2所示。

3數(shù)據(jù)要求與程序?qū)崿F(xiàn)

3.1程序設(shè)計(jì)思路

為了便于對(duì)轉(zhuǎn)化數(shù)據(jù)的管理，需要新建一個(gè)地形圖符號(hào)與城管部件數(shù)據(jù)轉(zhuǎn)化對(duì)應(yīng)表。程序讀取地形圖中的塊名后搜索該表中與之相對(duì)應(yīng)的城管部件信息，再重新繪制城管部件的符號(hào)，并給該符號(hào)添加附加屬性數(shù)據(jù)，最后刪除該地形圖符號(hào)，這樣就完成了地形圖符號(hào)轉(zhuǎn)化為數(shù)字城管部件數(shù)據(jù)。地形圖符號(hào)轉(zhuǎn)化為數(shù)字城管部件對(duì)應(yīng)表如圖3所示。

3.2數(shù)據(jù)準(zhǔn)備

根據(jù)以上對(duì)兩種數(shù)據(jù)的分析可知，設(shè)計(jì)程序轉(zhuǎn)化數(shù)據(jù)前需要準(zhǔn)備 1∶500或 1∶1 000大比例尺的地形圖數(shù)據(jù)，地形圖的數(shù)據(jù)格式要求為AutoCAD 2000 Drawing(*.dwg)的格式，該數(shù)據(jù)中需要有路燈、雨水井蓋、電力井蓋、通信井蓋等點(diǎn)狀地物符號(hào)，且這些點(diǎn)狀地物符號(hào)數(shù)據(jù)的類(lèi)型必須為AutoCAD的塊參照(BlockReference)，但對(duì)地物符號(hào)的附加屬性數(shù)據(jù)(Xdata)不作要求，如圖1所示，以上數(shù)據(jù)準(zhǔn)備完畢即可進(jìn)行數(shù)據(jù)轉(zhuǎn)化程序的設(shè)計(jì)工作了。

3.3轉(zhuǎn)化流程

地形圖數(shù)據(jù)轉(zhuǎn)化為城管部件數(shù)據(jù)流程如圖4所示。

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

AutoCAD二次開(kāi)發(fā)語(yǔ)言有VBA(Visual Basic Application)、Lisp以及ObjectARX等，VBA及其環(huán)境易于學(xué)習(xí)和使用，它是一個(gè)面向?qū)ο蟮木幊汰h(huán)境，提供了豐富的開(kāi)發(fā)功能。VBA工程可以是獨(dú)立的，也可以嵌入到圖形中，為開(kāi)發(fā)人員提供了非常靈活的方式來(lái)發(fā)布程序，以下為主要源代碼。

’定義選擇集

If Not IsNull(ThisDrawing.SelectionSets.Item("this")) Then

Set sset=ThisDrawing.SelectionSets.Item("this")

sset.Delete

End If

Set sset=ThisDrawing.SelectionSets.Add("this")

sset.SelectOnScreen

If sset.count=0 Then

MsgBox "沒(méi)有選擇到對(duì)象"

Exit Sub

End If

‘檢索地形圖塊轉(zhuǎn)化為城管部件表

Sql_connect="Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C：MAP2010VbaMap2010.mdb；Persist Security Info=False"

For Each obj In sset

Select Case obj.ObjectName

Set objblk=obj

blocksName=objblk.name

insetPoint=objblk.insertionPoint

inscood(0)=insetPoint(0)：inscood(1)=insetPoint(1)

inscood(2)=insetPoint(2)

Rst.Open "select * from 地形圖塊轉(zhuǎn)化為城管部件 where 地形圖塊名='" & objblk.name & "'"，Sql_connect，adOpenForwardOnly，adLockReadOnly

While Not Rst.EOF

k=k+1

dxtBlock=Rst.Fields("地形圖塊名")

XdataArrUp=Rst.Fields("部件屬性數(shù)據(jù)個(gè)數(shù)")

CGBJLay=Rst.Fields("城管圖層")

cgblkname=Rst.Fields("城管部件塊名")

Rst.MoveNext

Wend

Rst.Close

If k>=1 And cgblkname <> "" Then

Dim newblkname As String

newblkname=DXTblocks_path+cgblkname+".DWG"

‘繪制城管部件符號(hào)，附加X(jué)DATA屬性數(shù)據(jù)

Set CGBLK=ThisDrawing.ModelSpace.InsertBlock(inscood，newblkname，dScale，dScale，dScale，0#)

CGBLK.Layer=CGBJLay

CGBLK.SetXData CGXdatatype，CGXdataval

objblk.Delete

4應(yīng)用實(shí)例

選擇某區(qū)塊地形圖數(shù)據(jù)，使用該程序把地形圖的地物符號(hào)轉(zhuǎn)化為數(shù)字城管部件符號(hào)，其效果如圖5(1∶500地形圖數(shù)據(jù))、圖6(轉(zhuǎn)化后的數(shù)字城管數(shù)據(jù))所示。

5結(jié)語(yǔ)

基于AutoCAD二次開(kāi)發(fā)技術(shù)編寫(xiě)程序，把地形圖中的地物符號(hào)批量轉(zhuǎn)化為數(shù)字城管部件數(shù)據(jù)，不僅減少了作業(yè)人員手工數(shù)據(jù)修改的錯(cuò)漏，減少了作業(yè)人員的勞動(dòng)強(qiáng)度，而且提高了工作效率，節(jié)約了測(cè)繪成本，實(shí)踐證明是可行的。

參考文獻(xiàn)

[1]馮宏偉，羅宏. 基于VB的自動(dòng)繪制立面圖程序的設(shè)計(jì) [J]. 城市勘測(cè)，2012(2)：94～97.

[2]張區(qū)旺，劉晉虎. 基于VBA的高程注記點(diǎn)匹配檢查實(shí)現(xiàn)[J]. 煤炭工程，2013(8)：135～136.

[3]張帆，鄭立楷，王華杰. AutoCAD VBA開(kāi)發(fā)精彩實(shí)例教程[M]. 北京：清華大學(xué)出版社，2004.

Topographic Map Data Transformation of Urban Management Components Application Development

Liu Jun，Wang Xiaowei

(Chang Zhou of Surveying and Mapping Institute，ChangZhou 213003，China)

Key words：digital urban management；components；topographic map；data conversion；program

Abstract：Urban management informatization is the trend of today′s social development and urban management，“digital urban management” a platform for urban management informatization，this paper discusses how to put the large scale topographic map data into the format of the “digital urban management”，has made the beneficial attempt，and develop the corresponding application implements this feature. Used in this paper，the application of design the topographic map data into digital urban management unit，experiments show that it can greatly improve the work efficiency，and meet the demand，for surveying and mapping unit to batch convert the data provides the beneficial reference.

文章編號(hào)：1672-8262(2016)03-121-03

中圖分類(lèi)號(hào)：P209

文獻(xiàn)標(biāo)識(shí)碼：B

*收稿日期：2016—03—21

作者簡(jiǎn)介：劉軍(1978—)，男，高級(jí)工程師，注冊(cè)測(cè)繪師，主要從事測(cè)繪質(zhì)量管理與測(cè)繪軟件研發(fā)工作。