利用VB實現AutoCAD二次開發中參數化繪圖

（江蘇省大豐中等專業學校，江蘇 大豐 224100）

利用VB實現AutoCAD二次開發中參數化繪圖

陳 煒

（江蘇省大豐中等專業學校，江蘇 大豐 224100）

通過參數化繪圖的背景分析和AutoCAD二次開發五種常用工具的分析比較，利用VB對AutoCAD二次開發實現參數化繪圖是可行的。再利用彈簧繪制為例詳細描述了VB實現參數化繪圖的具體步驟。更加確定了VB實現AutoCAD二次開發中參數化繪圖是具有優勢的，它縮短繪圖操作時間，提高工作效率。

參數化繪圖;AutoCAD ;二次開發;VB

一、實現參數化繪圖的背景

AutoCAD作為一款工程方面非常出色的軟件，因其優秀圖形處理能力和通用性而得到廣泛普及與應用，正因為該軟件通用性很強，從而在進行具體圖形繪制和數據處理綜合應用的時候自身所具有的功能就顯得相形見絀。比如在機械制圖時，如螺母、墊圈、軸承、彈簧、齒輪等一些標準件、常用件的設計和繪制，都需要用戶逐一繪制，這些標準件都會有大量數據，用戶繪圖時必須查找各種標準，不僅費時而且容易出錯。為了解決上述問題，盡可能的不重復勞動，提高設計效率，減少設計開發周期，因此我們想到了實現圖形的自動繪制方法。根據機械制圖中各種標準件結構特點，同一個系列內，它們基本結構相似，僅是尺寸上有些變化。對于齒輪、彈簧等常用件，盡管不能像螺栓、螺母那樣完全實現標準化，但可以實現部分結構標準化。比如彈簧，我們只需輸入起始半徑、垂直增量、水平增量、圈數、分段數等參數，即可編程實現該二維或三維圖形的自動繪制。

二、VB實現參數化繪圖的優勢

為了使重復性較大的計算繪圖工作量減小和更加規范準確，AutoCAD提供了二次開發的功能接口。進行其二次開發的常用工具目前大體有五種，分別是ADS、ObjectARX、AutoLISP、.NET、VBA。其中，ADS是AutoCAD的C語言開發系統，直接利用C語言編譯器，因涉及到C語言的編程它的開發不易上手并且難度較大；ObjectARX的功能強大，效率較高，但是開發人員必須掌握VC++，難度很大，而且開發效率不高，容易出現內存泄漏；AutoLISP語言雖然其語法規則簡單、靈活，但是缺乏綜合性的開發環境，綜合能力差；.NET是微軟新一代技術平臺，功能強大，但對開發環境要求較高，而且可供學習參考的資料較少；VBA即McrosoftOffice中的Visual Basic（簡稱VB） for Applications開發環境，被集成到AutoCAD中，從AutoCADR14版本以后，就增加了ActiveX Automation 自動化服務的功能。而VisualBasic是Windows 操作系統下最常用的支持 ActiveXAutomation 技術的開發工具。VB是一種面向對象的可視化程序開發工具，它入門簡單易學，具有快速的程序開發環境，代碼的編寫量小，開發人員改動界面方便直接、所見即所得，并且支持各類最新的 Windows 技術，擁有強大的數據庫編程能力，廣泛使用于Windows平臺上。

根據以上五個工具的比較，利用VB對AutoCAD二次開發實現參數化繪圖將更具優勢，用VB語言編程開發，將AutoCAD看著VB程序中一個繪圖的窗口，對其進行打開、編輯、繪圖、打印和關閉等操作，其速度相對較快。為此，可以作為我們進行程序設計的首選工具。

下面以彈簧繪制為例用VB實現參數化繪圖對AutoCAD進行二次開發，解決機械制圖中標準件、常用件的參數化繪圖問題。

三、VB實現參數化繪圖的系統設計

1 建立主界面。打開在Microsoft Visual Basic設計工具，選擇文件中“新建工程”，進入窗體設計器。首先，在“工程”菜單中選擇“移除 Form1”。然后，在“工程”菜單中選擇“添加 MDI 窗體”，即可添加MDIForm1主控窗體。最后，在“文件”菜單中保存該工程，將窗體保存為 默認文件名，把新工程保存為“VB實現參數化繪圖.vbp”。

2 在MDI主窗體中建立菜單。點擊MDIForm1主窗體，在其上右擊，選擇“菜單編輯器”，在彈出的對話框中根據需求完成相應的菜單設計，注意每個菜單的名稱的命名必須符合語法規范并要有意義，這里統一用菜單名的拼音首字母命名，如標題為“彈簧”，名稱為“th”。

3 添加子窗體。選擇“工程”菜單中“添加窗體”，在彈出的對話框中選擇“窗體”并打開，然后修改新建窗體的MDIChild屬性為“True”，最后保存該窗體。

采用相同的方法，將2中所有菜單全部建立好相對應的子窗體，并在菜單中用“窗體名.show”命令調用各自子窗體。如：“彈簧”子菜單，打開它對應的窗體（窗體名為frmTh），則用命令frmTh.show，代碼如下：

Private Sub th_Click（）

frmTh.show

End Sub最后添加Label、TextBox、CommandButton控件完成參數化繪圖窗口的設計。

4編程流程圖。開 始-＞連接CAD-＞參數賦值-＞根據每圈分段數計算角度間隔-＞用循環計算每個控制點坐標-＞把所有控制點連接成多段線-＞繪制截面圓生成面域-＞完 成-＞結 束

5 實現結果和結論

（1）輸入參數如下時，繪制彈簧并生成彈簧圖形每一圈大小都相同，且彈簧圈數為4圈。

起始半徑：60，垂直增量：10，水平增量：0，旋轉圈數：4，分段數：50。

（2）當改變參數為下所示時，生成彈簧圖形每一圈大小按增量遞增，其彈簧圈數為3圈。

起始半徑：30，垂直增量：20，水平增量：10，旋轉圈數：3，分段數：100。

通過上述2組數據的實驗，輸入的參數不同生成的圖形也不同，說明VB實現參數化繪圖是可行的。

通過VB編程對AutoCAD進行二次開發，可以使標準件繪圖繁瑣的問題得以圓滿解決，操作起來也簡單易行。大家還可利用ImageList與ToolBar控件制作一個工具條，通過工具條按鈕點擊常用菜單命令繪圖將會更加方便快捷。

[1]張帆．AutoCAD VBA二次開發教程[M]．北京:清華大學出版社,2006．

[2]劉永波．分析AutoCAD二次開發方法的研究[J]．軟件．2013．34（5）．

TP39

：A