基于AutoCAD地形高程基準轉(zhuǎn)化程序設(shè)計

劉軍,王小維(常州市測繪院,江蘇常州 213003)

基于AutoCAD地形高程基準轉(zhuǎn)化程序設(shè)計

劉軍?,王小維
(常州市測繪院,江蘇常州 213003)

摘 要:為了減輕地形高程數(shù)據(jù)的內(nèi)業(yè)轉(zhuǎn)化處理,又快又好的保質(zhì)保量完成高程數(shù)據(jù)基準的轉(zhuǎn)化工作,本文提出了基于AutoCAD VBA的二次開發(fā)技術(shù)設(shè)計和編寫程序,對用圖單位提出的地形圖高程要素數(shù)據(jù)進行轉(zhuǎn)化與修改,使其符合用圖單位的需求。使用本文設(shè)計的程序?qū)Φ匦螆D高程要素數(shù)據(jù)處理,實驗表明它可以大大的提高工作效率,而且滿足需求,為測繪單位對地形圖中的高程數(shù)據(jù)批量轉(zhuǎn)化提供了有益的參考。

關(guān)鍵詞:地形圖;高程基準轉(zhuǎn)化;VBA;AutoCAD;Xdata

1　概 述

隨著我國建設(shè)事業(yè)的迅猛發(fā)展,數(shù)字地形圖越來越得到廣泛的應(yīng)用,如1∶500與1∶1 000大比例尺地形圖是城市規(guī)劃、國土、設(shè)計等單位是不可或缺的工作底圖之一。地形圖高程數(shù)據(jù)是地形圖重要的組成部分,高程要素數(shù)據(jù)在工程建設(shè)中也經(jīng)常使用到,它不僅直觀地顯示出地面的高低起伏,而且還可以用來計算兩點間的坡度,繪制地形斷面,計算土方量等。

對于已有的地形圖,其高程系統(tǒng)是已經(jīng)確定了的,比如有些城市的分幅地形圖的高程系統(tǒng)是1985國家高程基準,有的是1956年黃海高程系。如果遇到某些工程需要的高程系統(tǒng)與已有的地形圖高程系統(tǒng)不一致,這就需要把原有地形圖上的高程經(jīng)過正確轉(zhuǎn)化才能使用,如果高程點很少,大家可以手工修改,但是對于大面積的地形圖來說,手工修改工作量大,可以通過基于AutoCAD的二次開發(fā)程序解決此類難題。

2　地形圖高程點的數(shù)據(jù)格式

地形圖高程數(shù)據(jù)分為高程點符號(BlockRef)與高程注記(Text)兩部分內(nèi)容,即高程點與高程值注記。高程點符號代表該空間位置,點符號中添加了高程值等擴展數(shù)據(jù)(Xdata),其擴展數(shù)據(jù)的格式如圖1所示。高程注記代表該點位的海拔高,其擴展數(shù)據(jù)的格式如圖2所示。由圖1與圖2可知,修改地形圖中的高程要素數(shù)據(jù)需要修改高程點符號中的Xdata數(shù)據(jù)與高程注記數(shù)字。對于高程注記可以通過對AutoCAD的文字對象處理即可,修改高程點符號第一步需要讀取其擴展數(shù)據(jù),獲取高程數(shù)據(jù)并修改才能完成。

圖1　高程點符號附加數(shù)據(jù)格式

圖2　高程注記附加數(shù)據(jù)格式

3　程序設(shè)計流程圖

地形圖高程數(shù)據(jù)基準批量轉(zhuǎn)化程序設(shè)計流程圖如圖3所示。

圖3　地形圖高程數(shù)據(jù)基準轉(zhuǎn)化程序設(shè)計流程圖

4　實現(xiàn)平臺與程序源碼

AutoCAD二次開發(fā)語言有VBA、LISP以及Object-ARX等,VBA及其環(huán)境易于學習和使用,它是一個面向?qū)ο蟮木幊汰h(huán)境,提供了豐富的開發(fā)功能。VBA工程可以是獨立的,也可以嵌入到圖形中,為開發(fā)人員提供了非常靈活的方式來發(fā)布程序,下面給出地形高程批量修改程序的VBA源代碼。

'變量定義,省略

'構(gòu)造選擇集過濾器

ftype(0)= 8:fdata(0)= "GCD"

'構(gòu)造選擇集

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.Select acSelectionSetAll,,,ftype,fdata

If sset.count=0 Then Exit Sub

'處理高程注記

If Obj.ObjectName="AcDbText" Then

Set objtext=Obj

objtext.GetXData "",XType1,XData1

If Val(objtext.textString)＜＞0 Then

objtext.Refresh

End If

End If

'處理高程點符號

Obj.GetXData "",XType1,XData1 '讀取擴展數(shù)據(jù)

Set objBlock=Obj

newInsertpnt(0)= objBlock.insertionPoint(0)

newInsertpnt(1)= objBlock.insertionPoint(1)

newInsertpnt(2)= objBlock.insertionPoint(2)+Val(dh)

xtypeGC(i)= XType1(i)

xdataGC(i)= XData1(i)

xdataGC(i)= str(Val(XData1(i))+ Val(dh))

'修改高程點的Z值,重新注記高程點位

Set newgcp = ThisDrawing.ModelSpace.InsertBlock(newInsertpnt,"D:map2000gc200.dwg",x_y_scale,x_y_scale,x_y_scale,0)

newgcp.SetXData xtypeGC,xdataGC '重新附加擴展數(shù)據(jù)

objBlock.Delete '刪除舊的高程點符號

5　應(yīng)用實例

某河道綜合整治工程,要求現(xiàn)勢帶狀地形圖約2.0 km2,河道橫斷面測量斷面間距要求每隔100 m測量一個,測量范圍自河道中心線向兩側(cè)各100 m。我院已有該河道的1∶1 000地形圖,但高程系統(tǒng)是1956年黃海高程系,而甲方要求地形圖與河道橫斷面的高程系統(tǒng)必須是吳淞高程系,需要對地形高程基準轉(zhuǎn)化。我院對該工程的總體設(shè)計方案是:首先河道斷面高程數(shù)據(jù)與地形圖高程均采用1956年黃海高程系進行測量,最終提交給甲方的資料須通過本文的程序轉(zhuǎn)化處理,即把1956年黃海高程系高程轉(zhuǎn)化為甲方要求的吳淞高程系,檢查無誤后,進行河道斷面圖繪制等后繼工作。這樣既保證了我院地形圖高程基準的一致性,又能滿足甲方用圖要求。高程數(shù)據(jù)轉(zhuǎn)化前與轉(zhuǎn)化后如圖4、圖5所示。

圖4　轉(zhuǎn)化前1956年黃海高程系高程成果

圖5　轉(zhuǎn)化后吳淞高程系高程成果

6　結(jié) 語

基于AutoCAD二次開發(fā)技術(shù)編寫程序,批量處理地形圖中的高程數(shù)據(jù),實踐證明是可行的,它不僅減少了作業(yè)人員手工數(shù)據(jù)修改的錯漏,減少了作業(yè)人員的勞動強度,而且提高了工作效率。

參考文獻

[1] 范亞男,李勝超,葉泀含.基于AutoCAD的紅線樣式處理程序的實現(xiàn)[J].城市勘測,2014(2):127～130.

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

[3] 李志銳,李法虎.基于VBA技術(shù)的AutoCAD二次開發(fā)在地形圖繪制中的應(yīng)用[J].農(nóng)業(yè)工程學報,2008(10):25～30.

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

[5] 曾洪飛,盧擇林,張帆.AutoCAD VBA&VB.NET開發(fā)基礎(chǔ)與實例教程(第二版)[M].北京:中國電力出版社,2013.

The Program Design of AutoCAD Elevation Datum Based on Transformation

Liu Jun,Wang Xiaowei
(Chang Zhou of Surveying and Mapping Institute,Jiangsu 213003,China)

Abstract:In order to reduce the inner terrain elevation data conversion,conversion work fast and good quality and quantity to complete elevation datum,this paper puts forward two development technology of AutoCAD VBA and programming based on data,topographic maps the map unit to transform and modified,to meet with map unit demand.Using the program of this paper on topographic maps data processing,experimental results show that it can greatly improve the work efficiency,but also to meet the demand,as a surveying and mapping unit on the topographic map elevation data batch conversion provides the beneficial reference.

Key words:topographic maps;elevation datum transformation;VBA;AutoCAD ;Xdata

文章編號:1672-8262(2015)01-116-03中圖分類號:P209

文獻標識碼:B

收稿日期:?2014—07—18

作者簡介:劉軍(1978—),男,高級工程師,主要從事測繪質(zhì)量管理與測繪軟件開發(fā)工作。