基于CAD利用VB.NET二次開發自動化繪圖應用研究

羅碧君

摘 要：從CAD支持點NET以來，給開發人員帶來了很大的便利。在建筑繪圖領域，利用點NET在CAD下面進行二次開發成為主流，開發自動化繪圖應用提高了建筑領域數據處理和繪圖工作的效率，減輕了工作的勞動強度。本文主要介紹利用VB.NET開發自動化繪圖的步驟及要點。

關鍵詞：CAD二次開發；VB.NET；自動化繪圖；地形圖

1 前言

隨著VB.NET在開發領域的利用越來越廣，CAD的最新版本已經支持點NET進行二次開發。CAD以前只有LISP、VBA等進行二次開發，這幾種開發方式都有自己的優點和缺點。CAD支持點NET后，可以充分發揮點NET的綜合開發的功能，讓開發人員更便捷快速的利用CAD的各項功能。下面主要介紹利用VB.NET在CAD下面進行開發，并以實例：開發自動化繪圖應用簡單介紹開發步驟和要點。

2 CAD二次開發的需求

在建設繪圖領域工作中，時常需要利用CAD制圖工具進行繪圖及數據內業處理。但是由于建筑測繪專業工作的特殊性，有時候處理的數據比較繁多，利用CAD直接一個個的人工進行數據處理繪制圖形，需要花費的時間和人力是比較多的。這樣就需要有一個可以處理大批量數據的程序應用，利用CAD自動的繪制數據所代表的圖形元素（包括點、線、圓、符號、文字等），需要處理的數據有時幾百、幾千，甚至上萬個數據，給我們在野外完成測繪調查后處理數據繪制圖形工作帶來很大的壓力。這個就需要我們有一個在CAD下面可以處理和繪制大批量數據的應用提供使用，滿足內業處理數據和圖形繪制工作，提高工作的效率和降低勞動的強度。在CAD支持點NET進行開發后，我們可以方便的利用它來進行這方面的工作。我們利用在CAD下面實現繪制測繪地形圖的部分元素方法來認識利用VB.NET在CAD下面進行的二次開發方法。

3 開發工具準備

利用點NET在CAD下進行二次開發主要利用工具包括：VB.NET開發工具（本文利用VS2008）、AutoCAD（支持點NET版本）本文利用CAD2008版。

4 VB.NET開發流程

4.1 準備數據

4.1.1 點數據樣式：一個點數據包括X，Y，H，點號四個數值。樣例：100，100，20，A（代表X=100，Y=100，H=20，點號為A）。準備一個樣式數據文件（點數據.txt）：

4.1.2 線數據樣式：一個線數據樣式包括起點X，Y，H；終點X，Y，H六個數值。樣例：100，100，10，200，200，20。準備一個樣式數據文件（線數據.txt）：

4.1.3 文字數據樣式：一個文字數據樣式包括X，Y，H，位置四個數值。樣例：100，100，20，房子。準備一個樣式數據文件（文字數據.txt）：

4.2 VB.NET建立DLL文件

本過程主要目的利用VB.NET建立一個可以在CAD下面加載運行的生成chengtu.dll文件。主要步驟包括如下：

①建立解決方案。②添加類項目。③引用相關.NET， CAD的acdbmdb.dll、acmgd.dll等。④編寫代碼文件：主要包括連接CAD空間、菜單代碼、功能代碼等。

a.在CAD下面加載一個目錄菜單

Dim pm As AcadPopupMenu = acadapp.MenuGroups.Item（0）.Menus.Add（“成圖”）

b.建立菜單項

pmi = pm.AddMenuItem（pm.Count + 1， “新建數據庫”， “_XJSJK ”），換行，pmi.HelpString = “新建數據庫”。

pm.AddSeparator（pm.Count + 1），添加一個分隔條

pmi = pm.AddMenuItem（pm.Count + 1， “錄入數據”， “_Lrsj ”），換行，pmi.HelpString = “錄入*txt格式數據”

pmi = pm.AddMenuItem（pm.Count + 1， “繪制圖”， “_Hzt ”），換行，pmi.HelpString = “繪制圖”

c.編寫功能代碼

新建數據庫代碼：dbs = ws.CreateDatabase（gxpath， DAO.LanguageConstants.dbLangChineseSimplified）

td = dbs.CreateTableDef（“ZB”）

然后在表tb添加相關的數據字段：X坐標、Y坐標、H坐標、點號等。

繪制點及點號代碼：

Point=mspace.AddText（點號， ZB， DX）

wtext = mspace.AddText（點號， ZB， DX），注：點號，ZB，為每一條記錄的點號和XYZ坐標。

繪制直線：

LJCK = mspace.AddLine（qdzb， zdzb）

注：qdzb，zdzb為每一條記錄的起點XY和終點的XY。

繪制塊：

acadblock = mspace.InsertBlock（ZB， 塊名字， 1， 1， 1， 0）

繪制圓：

acadblock = mspace.AddCircle（ZB， 2）

⑤生成chengtu.dll文件

利用VB.net生成chengtu.dll文件，直接在VB.NET下面生成打包，生成chengtu.dll文件。相關過程可以參考VB.NET幫助。

4.3 CAD加載chengtu.dll文件

在CAD下面，輸入命令NETLOAD，按照窗口加載以上生成的chengtu.dll文件。在CAD下面輸入命令addmenu，在CAD下面加載菜單“成圖”（菜單項包括：繪制點、繪制線、繪制塊、繪制圓等。

4.4 利用菜單命令繪圖

（1）點擊菜單“新建數據庫”，選擇目錄文件建設一個自己的繪圖使用的數據庫文件。

（2）點擊菜單“錄入數據”，選擇測繪的數據文件。

（3）繪制圖形數據。點擊繪制點，在CAD下執行繪制點代碼，讀取每天數據庫記錄，按照相應的數據在圖形文件上面繪制點元素，并繪制文字。同理繪制線、塊、圓的元素，自動進行處理。

（4）保存繪制的圖形CAD文件：圖形.dwg。繪制圖形完成。

5 總結

在基于CAD二次開發方面，VB.NET可以實現很多以前其他方法在CAD下面可以實現的事情，并更加方便快捷。本次介紹的在CAD下面實現的最基本的相關數據處理和圖形繪制的功能，在此功能上，可以利用VB.net發掘更好的應用功能。使我們在繁雜的工作量中可以很方便的進行處理。在建筑測繪工程領域，可以很好的利用這方面的功能，開發一些新的有用的應用功能，例如：對圖形元素和數據的對比檢查、圖形統計、數據統計等合適有效的功能應用，實現測繪地形圖的自動化，提高工作效率和減輕勞動的強度。

6 結束語

通過開發基礎的自動化繪圖工具，探索一個利用CAD、VB.NET來開發計算機自動化處理數據和繪圖的程序應用，給我們在提供了一個很好的思路和方向，讓我們的很多重復的數據量大的處理工作可以通過程序應用進行統一處理。

參考文獻

[1]曾洪飛，張帆.AUTOCAD VBA&VB.NET開發基礎與實例教程[M].中國電力出版社，2008，2.