地形圖數據轉化城管部件數據程序開發

劉軍，王小維

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

?

地形圖數據轉化城管部件數據程序開發

劉軍*，王小維

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

摘要：城市管理信息化是當今社會發展和城市管理的大趨勢，“數字城管”為城市管理信息化的一個平臺，本文探討了如何把大比例尺地形圖數據轉化為“數字城管”的格式數據，并開發了相應的程序實現了該功能。使用本文設計的程序把地形圖數據轉化為數字城管部件數據，實踐表明它可以提高工作效率，而且滿足使用需求，為測繪單位對該類數據批量轉化提供了有益的參考。

關鍵詞：數字城管；部件；地形圖；數據轉化；程序

1引言

城市管理信息化是當今社會發展和城市管理的大趨勢，城市管理信息化水平的高低已成為衡量一個城市或地區競爭力和現代化程度的重要標志。打造常州市“數字城管”基礎平臺，使信息化成為推進城市管理工作的重要手段，以提高城市管理水平，為社會公眾創造和諧、整潔、安全、優美的城市環境，提高社會公眾的生活質量。

常州市“數字城管”項目建設的基礎數據為常州市測繪院已有的1∶500、1∶1 000大比例尺地形圖數據，考慮到地形圖上的檢修井、路燈、綠地等地物符號與城管部件的符號相同或位置相同，如果把大比例尺地形圖上的檢修井符號、路燈、地燈等地物符號轉化為數字城管部件相應的符號，不但可以提高工作效率，而且可以節約測繪成本。

2數據格式分析

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

3數據要求與程序實現

3.1程序設計思路

為了便于對轉化數據的管理，需要新建一個地形圖符號與城管部件數據轉化對應表。程序讀取地形圖中的塊名后搜索該表中與之相對應的城管部件信息，再重新繪制城管部件的符號，并給該符號添加附加屬性數據，最后刪除該地形圖符號，這樣就完成了地形圖符號轉化為數字城管部件數據。地形圖符號轉化為數字城管部件對應表如圖3所示。

3.2數據準備

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

3.3轉化流程

地形圖數據轉化為城管部件數據流程如圖4所示。

3.4程序實現

AutoCAD二次開發語言有VBA(Visual Basic Application)、Lisp以及ObjectARX等，VBA及其環境易于學習和使用，它是一個面向對象的編程環境，提供了豐富的開發功能。VBA工程可以是獨立的，也可以嵌入到圖形中，為開發人員提供了非常靈活的方式來發布程序，以下為主要源代碼。

’定義選擇集

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 "沒有選擇到對象"

Exit Sub

End If

‘檢索地形圖塊轉化為城管部件表

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 地形圖塊轉化為城管部件 where 地形圖塊名='" & objblk.name & "'"，Sql_connect，adOpenForwardOnly，adLockReadOnly

While Not Rst.EOF

k=k+1

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

XdataArrUp=Rst.Fields("部件屬性數據個數")

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"

‘繪制城管部件符號，附加XDATA屬性數據

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

CGBLK.Layer=CGBJLay

CGBLK.SetXData CGXdatatype，CGXdataval

objblk.Delete

4應用實例

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

5結語

基于AutoCAD二次開發技術編寫程序，把地形圖中的地物符號批量轉化為數字城管部件數據，不僅減少了作業人員手工數據修改的錯漏，減少了作業人員的勞動強度，而且提高了工作效率，節約了測繪成本，實踐證明是可行的。

參考文獻

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

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

[3]張帆，鄭立楷，王華杰. AutoCAD VBA開發精彩實例教程[M]. 北京：清華大學出版社，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.

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

中圖分類號：P209

文獻標識碼：B

*收稿日期：2016—03—21

作者簡介：劉軍(1978—)，男，高級工程師，注冊測繪師，主要從事測繪質量管理與測繪軟件研發工作。