基于AutoCAD及ADO的遠程設計在電纜布線系統(tǒng)中的應用

1、基于AutoCAD及ADO的遠程設計在電纜布線系統(tǒng)中的應用 沈曉東 楊明 南京航空航天大學機電學院摘要： 本文以航空電纜布線為例，介紹AutoCAD與客戶程序及數(shù)據(jù)庫的應用連接,并以ADO實現(xiàn)遠程設計中的數(shù)據(jù)連接,有望聯(lián)系起矢量繪圖及數(shù)據(jù)庫管理兩大功能為一身，實現(xiàn)遠程CAD設計，在EDA領域有廣泛的應用。關鍵詞： AutoCAD ADO DXF EDA 自動布線Abstract: This paper introduces the realization of the aviation cable layout .It involved the VB active automation ,da

2、ta access from DXF ,ADO control and the alorithms about cable layout. It also describes the typical application of the long-distance design in the nonstandard EDA.Keywords: AutoCAD; ADO; DXF; EDA1. 引言在計算機輔助設計（CAD）中，AutoCAD一直占據(jù)重要地位，但缺乏與其他系統(tǒng)的通用數(shù)據(jù)庫的聯(lián)系，且它不具備orCAD,Protel等專業(yè)EDA(電子設計自動化)工具的布線功能，通過VBA技術可以實現(xiàn)

3、VB控制AutoCAD的繪圖，但無法實現(xiàn)人工繪圖信息自動回歸，所以數(shù)據(jù)交換仍多采用數(shù)據(jù)交換文件DXF，鑒于VB在控制AutoCAD及數(shù)據(jù)庫管理均有良好功能，在自動布線環(huán)節(jié)又可起到算法數(shù)據(jù)的管理，此項技術可聯(lián)系兩者的優(yōu)點，并消除了其他布線系統(tǒng)只是針對集成電路，印刷板電路，對大型系統(tǒng)布線有使用困難的弱點；以及有無法自己定制數(shù)據(jù)庫交換的缺陷，可為專業(yè)領域的繪圖、布線，提供更高層次的功能：導線的遺漏檢測，導線接插件端子的匹配、導線型號、規(guī)格、顏色、長度的選擇、導線電流計算，非標準化器件繪制，與計算機輔助制造（CAM）及計算機輔助測試（CAT）互連提供良好接口。2. AutoCAD與數(shù)據(jù)庫信息交換 通過

4、對DXF格式文件的掃描，產生數(shù)據(jù)庫表以交互圖形信息。 DXF文件的格式：典型的DXF文件由以下幾個節(jié)組成：（1） 標題節(jié)（HEADER） 標題節(jié)記錄了圖形的一般信息。它包括AutoCAD圖形數(shù)據(jù)庫的版本號以及大量的系統(tǒng)變量。每個參數(shù)都有表示變量名字符串的9組和若干個表示變量值的組。（2） 類節(jié)（CLASSES） 類節(jié)保存由應用程序定義的類，而該類的實例出現(xiàn)在塊節(jié)、實體節(jié)、對象節(jié)中。（3） 表節(jié)（TABLES）表節(jié)按順序包含表1所述9個符號表信息序號表名說明1APPID應用程序標志符表2BLOCK_RECORD塊引用描述表3DIMSTYLE尺寸標注格式描述表4LAYER層描述表5LTYPE線型定

5、義表6STYLE文本格式表7UCS用戶坐標系統(tǒng)表8VIEW視圖表9VPORT視口配置表表1。1（4） 塊節(jié)（BLOCKS）塊節(jié)描述圖形中包含的塊的定義,包括塊內的實體（5） 實體節(jié)（ENTITIES）實體節(jié)描述構成圖形所有圖形實體和塊引用,但不包括塊內的實體.（6） 對象節(jié)（OBJECTS）對象節(jié)包含圖形數(shù)據(jù)庫中所有非圖形實體的定義數(shù)據(jù).所有不是實體,也不是符號表記錄,又不是符號表的實體出現(xiàn)在該節(jié)中.用VB設計應用程序DXF文件接口程序的示例如下： Open CommonDialog1.FileName For Input As #1(打開選中的DXF文件) Do While Not EOF(

6、1)(外層循環(huán)開始,到文件結束為止)Line Input #1, txtline(txtline為STRING型變量,作用是存儲DXF文件中的每一行數(shù)據(jù))Select Case txtline Case "LAYER": Case "BLOCK" Case "INSERT": Case "LINE" Case "CIRCLE": Case "ARC" Case "TEXT": Case else END SELECT Loop3. ADO在遠程設計中的連接

7、 作圖環(huán)境和布線環(huán)境的分離有利于在AutoCAD下作圖不破壞已布線記錄，利用Automation 技術在兩種環(huán)境切換，不會影響整體功能。 OrCAD,Protel 等多應用于PCB(印制電路板)和專用集成電路設計的設計，對大型布線系統(tǒng)，如航空電纜，電力系統(tǒng)等布線并不合適，基于布線系統(tǒng)的復雜性，Vb環(huán)境下的通用作圖環(huán)境是windows所支持的點陣圖，而我們需要矢量作圖法，以矢量信息為記錄，保證了與數(shù)據(jù)庫的數(shù)據(jù)交換。 在VB中采用了ADO控件（ActiveX Data Objects）是由微軟公司推出的以ActiveX技術為基礎的數(shù)據(jù)存取方法。ADO的主要特點是使用更加容易，訪問速度更快，而對磁盤

8、和存儲容量的要求更小；ADO支持建立各種客戶/服務器模式與基于Web的應用程序，具有遠程數(shù)據(jù)服務RDS（Remote Data Service）的特性, 通過RDS能夠在一次往返中將服務器端的數(shù)據(jù)傳送到客戶端的應用程序或Web頁面中，并在客戶端對數(shù)據(jù)進行處理后，立即更新服務器端的數(shù)據(jù)。采用ADO所基于的OLE DB技術，可以對電子郵件、文本文件、數(shù)據(jù)表格等各類數(shù)據(jù)通過統(tǒng)一的接口API接口進行存取，是遠程數(shù)據(jù)存取的一個主要發(fā)展方向。DCOM數(shù)據(jù)庫 ADOActive Server(DLL or EXE)Client ApplicationOLE DB 記錄矢量繪圖的信息方法：在VB picyur

9、ebox控件中使用line,circle,rect等繪圖語句同時，放置記錄到數(shù)據(jù)控件的recordset中， ADO連接及定義原理圖表,示例:Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "布線庫.mdb"Adodc1.CommandType = adCmdTableAdodc1.RecordSource = "原理圖導線表"Adodc1

10、.RefreshAdodc1.Recordset.Filter = "命令='T' and N4='" & Adodc1.Recordset.Fields("源代號").Value & "' and N5='" & Adodc1.Recordset.Fields("源針號").Value & "'"If Adodc1.Recordset.AbsolutePosition >= 0 Then 加入繪圖時的矢量信息

11、End if Adodc1.Recordset.Filter = 0 Adodc1.Recordset.MoveFirst矢量作圖的關鍵點是放大,縮小時,線信息不變,只是重新定義坐標系:(M為放大倍數(shù)),示例: picture1.ClsTempy = Abs(picture1.ScaleHeight) Tempx = Abs(picture1.ScaleWidth)Mousey = CInt(VScroll1.Value / 2.5) * 2.5Mousex = CInt(HScroll1.Value / 2.5) * 2.5 picture1.Scale (Mousex, (Mousey +

12、 Tempy / M)-(Mousex + Tempx / M), Mousey) 4. AutoCAD與VB的ActiveX Automation 連接技術 為使用AutoCAD的Auotomation對象，必須首先在Visual Basic 6.0中引用該對象類型庫acad.tlb  ,并連接如下1： Public acadApp As Object AutoCAD 的application對象 Public acadDoc As Object AutoCAD document對象 Public moSpace As Object Modelspace 模型空間對象集合

13、 Public paSpace As Object PaperSace 圖紙空間對象集合 On Error Resume Next Set acadApp = GetObject(,” AutoCAD.Application”) If Err Then Err.Clear Set acadApp = Creatobject(“AutoCAD.Application”) If Err Then Msgbox Err.description Exit Sub End If End if 在存儲及繪圖模板使用如下3：acadDoc.activedocument.SaveAs(d:capp原理圖.dw

14、g) 執(zhí)行ActiveDocument對象的SaveAs方法exportFile := d:capp原理圖acadDoc.Export (exportFile, DXF,acadDoc)使用Export方法把圖形文檔存放在d:capp路徑中acadDoc.activedocument.new (acad) 執(zhí)行ActiveDocument對象的New方法，以acad.dwt為模板創(chuàng)建一個新的圖像文件。5. 事例分析:以航空電纜布線系統(tǒng)為例,以下為系統(tǒng)框圖: AutoCAD繪制輔助圖,Export方式導出DXF圖形信息導入導出VB通過ADO控件對遠程數(shù)據(jù)庫的連接Active Automation生成輔助圖表,目錄表遠程中心數(shù)據(jù)庫VB布