林文鋒

【摘要】電信運(yùn)營(yíng)商的綜合資源管理系統(tǒng)對(duì)資源的生命周期管理逐漸前移，需要將工程階段的資源數(shù)據(jù)納入管理。通過(guò)在資源管理系統(tǒng)中集成AutoCAD技術(shù)，可以提升工程建設(shè)與網(wǎng)絡(luò)維護(hù)之間的資源數(shù)據(jù)銜接效率，顯著提高資源管理能力。

【關(guān)鍵詞】綜合資源管理系統(tǒng);駐地網(wǎng)資源;AutoCAD

1.引言

電信運(yùn)營(yíng)商的綜合資源管理系統(tǒng)大部分已完成了對(duì)全專(zhuān)業(yè)網(wǎng)絡(luò)資源數(shù)據(jù)的統(tǒng)一管理，但目前管理的生命周期僅僅是各類(lèi)資源的入網(wǎng)/運(yùn)維以及退網(wǎng)階段。在接下來(lái)的系統(tǒng)建設(shè)中，需要將逐步將管理的范圍前移，實(shí)現(xiàn)對(duì)工程、設(shè)計(jì)階段的資源數(shù)據(jù)進(jìn)行管理。

駐地網(wǎng)資源管理是綜合資源管理系統(tǒng)的傳輸專(zhuān)業(yè)的重要組成部分，本文主要探討如何將駐地網(wǎng)工程階段的數(shù)據(jù)納入傳輸管線(xiàn)系統(tǒng)管理范圍，提升工程建設(shè)與網(wǎng)絡(luò)維護(hù)之間的資源數(shù)據(jù)銜接效率。

2.現(xiàn)狀

根據(jù)資源生命周期，我們將資源管理劃分為“規(guī)劃-設(shè)計(jì)-工程-使用-維護(hù)-退網(wǎng)”六個(gè)階段。在目前的工程設(shè)計(jì)階段，駐地網(wǎng)資源管理一般采用AutoCAD進(jìn)行設(shè)計(jì)并輸出圖紙。這樣的處理過(guò)程有明顯的缺點(diǎn)：

（1）不能實(shí)現(xiàn)設(shè)計(jì)階段與施工維護(hù)階段的無(wú)縫對(duì)接。

（2）資源維護(hù)人員需要在兩個(gè)系統(tǒng)上重復(fù)錄入維護(hù)同一套數(shù)據(jù)，管理效率很低。

為解決上述問(wèn)題，需要對(duì)現(xiàn)有傳輸管線(xiàn)系統(tǒng)進(jìn)行擴(kuò)展，增加圖紙?jiān)O(shè)計(jì)功能。

3.實(shí)現(xiàn)方案

3.1 整體框架

系統(tǒng)整體框架是將現(xiàn)有傳輸管線(xiàn)系統(tǒng)與AutoCAD實(shí)現(xiàn)無(wú)縫整合，工程設(shè)計(jì)人員可以直接在傳輸管線(xiàn)系統(tǒng)中調(diào)用AutoCAD功能進(jìn)行駐地網(wǎng)資源的工程設(shè)計(jì)與出圖。

圖1

3.2 關(guān)鍵技術(shù)點(diǎn)

本方案主要通過(guò)ActiveX Automation和AutoLisp技術(shù)實(shí)現(xiàn)AutoCAD的集成。

3.2.1 ActiveX Automation

ActiveX Automation是一種使Windows應(yīng)用程序?qū)崿F(xiàn)互聯(lián)互通的技術(shù)，其前身是OLE Automation技術(shù)。ActiveX Automation由兩部分實(shí)現(xiàn)：Automation Server和Automation Controller。

3.2.1.1 AutoCAD的Automation對(duì)象模型

AutoCAD的ActiveX Automation對(duì)象體系處于最高層的對(duì)象是Application應(yīng)用對(duì)象，包含了AutoCAD ActiveX Automation對(duì)象所提供的全部功能。

在Application之下的是Preferences和Document對(duì)象。Preferences對(duì)象等于AutoCAD的Preferences界面，用于設(shè)置與存放AutoCAD的各種系統(tǒng)參數(shù)。Document對(duì)象表示當(dāng)前在AutoCAD中處于激活狀態(tài)的圖形文件，通過(guò)該對(duì)象實(shí)例可以對(duì)激活的圖形文件進(jìn)行所有的操作。

3.2.1.2 調(diào)用AutoCAD Automation Server

以下代碼為在傳輸管線(xiàn)系統(tǒng)中調(diào)用AutoCAD Automation Server、實(shí)現(xiàn)無(wú)縫整合AutoCAD功能的應(yīng)用實(shí)例：

…

acadApp：=CreateOleObject（‘a(chǎn)utocad.application）;

if（not VarisEmpty（acadApp）and not VarisNull（acadApp））then

begin

acadApp.Preferences.System.Single DocumentMode：=False;

Windows.SetParent（acadApp.HWND， ParentPnl.Handle）;

Windows.SetWindowPos（acadApp.HWND， HWND_TOP，0，0，

ParentPnl.Width，ParentPnl.Height，SWP_NOACTIVATE）;

//生成文檔對(duì)象實(shí)例并與AutoCAD的當(dāng)前活動(dòng)文檔建立連接

CurrDoc：=TAcadDocument.Create（nil）;

…

CurrDoc.ConnectTo（IUnknown（acadApp.ActiveDocument）as IAcadDocument）;

…

//遍歷當(dāng)前活動(dòng)文檔中的所有圖形對(duì)象

p3：=VarArrayCreate（[0，2]，VarDouble）;

for Idx：=0 to CurrDoc.ModelSpace.Count-1 do

begin

//讀取圖形對(duì)象的類(lèi)型名稱(chēng)與ID、句柄HANDLE以及其他屬性

pName：=（IUnknown（CurrDoc.ModelSpace.Item（Idx））as IAcadEntity）.EntityName;

pID：=inttostr（（IUnknown（CurrDoc.ModelSpace.Item（Idx））as IAcadObject）.ObjectID）;

pHandle：=（IUnknown（CurrDoc.Model Space.Item（Idx））as IAcadObject）.Handle;

//讀取圖形對(duì)象的中心點(diǎn)坐標(biāo)

（IUnknown（CurrDoc.ModelSpace.Item （Idx））as IAcadEntity）.GetBoundingBox （p1，p2）;

p3[0]：=（p1[0]+p2[0]）/2;

p3[1]：=（p1[1]+p2[1]）/2;

p3[2]：=（p1[2]+p2[2]）/2;

…

//將圖形對(duì)象信息寫(xiě)入數(shù)據(jù)庫(kù)

WriteToDB;

end;

End;

3.2.1.3 AutoCAD事件處理

Automation對(duì)象除了提供大量對(duì)象方法供客戶(hù)端程序調(diào)用AutoCAD Automation Server的各種功能，還提供了豐富的事件消息類(lèi)型，可以讓客戶(hù)端捕獲AutoCAD運(yùn)行過(guò)程中產(chǎn)生的各種事件并進(jìn)行相應(yīng)的處理。

…

//向Automation Server注冊(cè)需要接收的事件

CurrDoc.OnObjectAdded：=ObjectAdded;

//當(dāng)用戶(hù)在AutoCAD中手工選擇的圖形對(duì)象發(fā)生改變時(shí)，將會(huì)

//觸發(fā)OnSelectionChanged事件

CurrDoc.OnSelectionChanged：=SelectionChanged;

CurrDoc.OnBeginDocClose：=OnBeginDocClose;

CurrDoc.ConnectTo（IUnknown（acadApp.ActiveDocument）as IAcadDocument）;

…

//OnSelectionChanged事件處理過(guò)程

procedure TACADForm.SelectionChanged（Sender：TObject）;

begin

…

//遍歷Document對(duì)象的選擇集，獲取在AutoCAD的當(dāng)前活動(dòng)

//文檔中被選中的圖形對(duì)象

fori：=0 to CurrDoc.PickfirstSelectionSet. Count-1 do

begin

//從數(shù)據(jù)庫(kù)讀取圖形對(duì)象的詳細(xì)屬性

GetDetailInfofromDB（

CurrDoc.PickfirstSelectionSet.Item（i）. EntityName，

CurrDoc.PickfirstSelectionSet.Item（i）. ObjectID）;

//將詳細(xì)信息展示在界面上

…

end;

end;

3.2.2 AutoLISP語(yǔ)言

對(duì)于某些比較特殊的操作效果（比如選定圖形文件中某個(gè)圖元，然后居中定位并高亮顯示），Automation對(duì)象暫時(shí)還無(wú)法提供很好的實(shí)現(xiàn)方法，這個(gè)時(shí)候就需要使用AutoCAD本身自帶的、能提供更加底層的控制功能的AutoLISP語(yǔ)言來(lái)實(shí)現(xiàn)。

圖2 效果圖

以下的代碼實(shí)例，就是使用AutoLISP語(yǔ)言，根據(jù)指定的圖形對(duì)象id，在圖形文件中進(jìn)行居中定位和高亮顯示：

…

IHighlightEntity：IAcadEntity;

SelVariant，p1，p2：OleVariant;

…

//根據(jù)ID獲取圖形對(duì)象

IHighlightEntity：=CurrDoc.ObjectIDTo Object（iObjectID）as IAcadEntity;

//定位并縮放，將所選的圖形對(duì)象置于屏幕中心

IHighlightEntity.GetBoundingBox（p1，p2）;

p1[0]：=p1[0]-50;

p1[1]：=p1[1]-50;

p2[0]：=p2[0]+50;

p2[1]：=p2[1]+50;

acadApp.ZoomWindow（p1，p2）;

//向AutoCAD發(fā)送AutoLISP指令，將選中的對(duì)象高亮顯示

CurrDoc.SendCommand（‘（setq ourset nil）（setq e1（handent”

+IUnknown（IHighlightEntity as IAcad Object）.Handle

+”））（setq ourset（ssadd e1））（sssetfirst nil ourset）+#13）;

…

3.3 集成方案

3.3.1 定義規(guī)范的資源CAD圖元

平常的CAD圖紙，都用某種圖元代表某種資源對(duì)象。因此，集成AutoCAD后，我們通過(guò)在傳輸管線(xiàn)系統(tǒng)中擴(kuò)展一套規(guī)范化的資源CAD圖元，并且圖元擁有資源屬性。

3.3.2 提供標(biāo)準(zhǔn)化的資源圖紙?jiān)O(shè)計(jì)界面

當(dāng)使用圖元進(jìn)行繪圖時(shí)候，通過(guò)Automation調(diào)用AutoCAD的功能，可以實(shí)現(xiàn)和AutoCAD一樣的繪圖操作功能。我們可以讓圖紙?jiān)O(shè)計(jì)界面延續(xù)設(shè)計(jì)人員畫(huà)圖習(xí)慣。

3.3.3 提供資源數(shù)據(jù)到CAD圖紙的轉(zhuǎn)換

因?yàn)橘Y源對(duì)象和CAD圖元有了對(duì)應(yīng)關(guān)系，現(xiàn)在可以將存量資源數(shù)據(jù)進(jìn)行導(dǎo)出，轉(zhuǎn)化為圖元，生成AutoCAD圖紙。

3.3.4 與工程管理流程的結(jié)合

集成了AutoCAD之后，綜合資源管理系統(tǒng)具備了駐地網(wǎng)資源的“圖紙?jiān)诰€(xiàn)設(shè)計(jì)”功能。以前獨(dú)立于資源管理生命周期之外的工程階段設(shè)計(jì)圖紙，也能夠納入資源系統(tǒng)中進(jìn)行管理。

4.應(yīng)用效果

在傳輸管線(xiàn)系統(tǒng)中整合了基于AutoCAD的駐地網(wǎng)資源管理模塊后，維護(hù)人員對(duì)駐地網(wǎng)資源數(shù)據(jù)的處理速度和效率得到了極大的提升，比之前需要先在AutoCAD中畫(huà)圖然后在傳輸管線(xiàn)系統(tǒng)再重復(fù)錄入一遍的方式，平均提高了10～12倍。

5.結(jié)束語(yǔ)

通過(guò)集成AutoCAD實(shí)現(xiàn)對(duì)工程階段的資源進(jìn)行管理，有利于提升工程建設(shè)與網(wǎng)絡(luò)維護(hù)之間的資源數(shù)據(jù)銜接效率，有利于加強(qiáng)工程建設(shè)過(guò)程管理的規(guī)范化，還有利于加強(qiáng)設(shè)計(jì)管理規(guī)范化。因此非常值得去嘗試，讓資源管理產(chǎn)生更大的價(jià)值。

參考文獻(xiàn)

[1]潘愛(ài)民.COM原理與應(yīng)用[M].清華大學(xué)出版社，1999.

[2]Autodesk.AutoCAD 2008幫助[M].2008.

[3]Autodesk.AutoCAD 2008開(kāi)發(fā)人員幫助[M].2008.

[4]中國(guó)移動(dòng)設(shè)計(jì)工程階段網(wǎng)絡(luò)資源數(shù)據(jù)管理規(guī)范——工程管理平臺(tái)分冊(cè)_V1.0[S].2013.