利用VB實(shí)現(xiàn)AutoCAD二次開發(fā)中參數(shù)化繪圖

1、利用VB實(shí)現(xiàn)AutoCAD二次開發(fā)中參數(shù)化繪圖一、實(shí)現(xiàn)參數(shù)化繪圖的背景AutoCAD作為一款工程方面非常出色的軟件，因其優(yōu)秀圖形處理能力和通用性而得到廣泛普及與應(yīng)用，正因?yàn)樵撥浖ㄓ眯院軓?qiáng)，從而在進(jìn)行具體圖形繪制和數(shù)據(jù)處理綜合應(yīng)用的時(shí)候自身所具有的功能就顯得相形見絀。比如在機(jī)械制圖時(shí)，如螺母、墊圈、軸承、彈簧、齒輪等一些標(biāo)準(zhǔn)件、常用件的設(shè)計(jì)和繪制，都需要用戶逐一繪制，這些標(biāo)準(zhǔn)件都會(huì)有大量數(shù)據(jù)，用戶繪圖時(shí)必須查找各種標(biāo)準(zhǔn)，不僅費(fèi)時(shí)而且容易出錯(cuò)。為了解決上述問題，盡可能的不重復(fù)勞動(dòng)，提高設(shè)計(jì)效率，減少設(shè)計(jì)開發(fā)周期，因此我們想到了實(shí)現(xiàn)圖形的自動(dòng)繪制方法。根據(jù)機(jī)械制圖中各種標(biāo)準(zhǔn)件結(jié)構(gòu)特點(diǎn)，同一個(gè)系列內(nèi)

2、，它們基本結(jié)構(gòu)相似，僅是尺寸上有些變化。對(duì)于齒輪、彈簧等常用件，盡管不能像螺栓、螺母那樣完全實(shí)現(xiàn)標(biāo)準(zhǔn)化，但可以實(shí)現(xiàn)部分結(jié)構(gòu)標(biāo)準(zhǔn)化。比如彈簧，我們只需輸入起始半徑、垂直增量、水平增量、圈數(shù)、分段數(shù)等參數(shù)，即可編程實(shí)現(xiàn)該二維或三維圖形的自動(dòng)繪制。二、VB實(shí)現(xiàn)參數(shù)化繪圖的優(yōu)勢(shì)為了使重復(fù)性較大的計(jì)算繪圖工作量減小和更加規(guī)范準(zhǔn)確，AutoCAD提供了二次開發(fā)的功能接口。進(jìn)行其二次開發(fā)的常用工具目前大體有五種，分別是ADS、ObjectARX、AutoLISP、VBA。其中，ADS是AutoCAD的C語言開發(fā)系統(tǒng)，直接利用C語言編譯器，因涉及到C語言的編程它的開發(fā)不易上手并且難度較大；ObjectARX的

3、功能強(qiáng)大，效率較高，但是開發(fā)人員必須掌握VC+，難度很大，而且開發(fā)效率不高，容易出現(xiàn)內(nèi)存泄漏；AutoLISP語言雖然其語法規(guī)則簡(jiǎn)單、靈活，但是缺乏綜合性的開發(fā)環(huán)境，綜合能力差；是微軟新一代技術(shù)平臺(tái)，功能強(qiáng)大，但對(duì)開發(fā)環(huán)境要求較高，而且可供學(xué)習(xí)參考的資料較少；VBA即McrosoftOffice中的VisualBasic（簡(jiǎn)稱VB）forApplications開發(fā)環(huán)境，被集成到AutoCAD中，從AutoCADRI嫩本以后，就增加了ActiveXAutomation自動(dòng)化服務(wù)的功能。而VisualBasic是Windows操作系統(tǒng)下最常用的支持ActiveXAutomation技術(shù)的開發(fā)工具

4、。VB是一種面向?qū)ο蟮目梢暬绦蜷_發(fā)工具，它入門簡(jiǎn)單易學(xué)，具有快速的程序開發(fā)環(huán)境，代碼的編寫量小，開發(fā)人員改動(dòng)界面方便直接、所見即所得，并且支持各類最新的Windows技術(shù)，擁有強(qiáng)大的數(shù)據(jù)庫編程能力，廣泛使用于Windows平臺(tái)上。下面以彈簧繪制為例用VB實(shí)現(xiàn)參數(shù)化繪圖對(duì)AutoCAD進(jìn)行二次開發(fā)，解決機(jī)械制圖中標(biāo)準(zhǔn)件、常用件的參數(shù)化繪圖問題。三、VB實(shí)現(xiàn)參數(shù)化繪圖的系統(tǒng)設(shè)計(jì)1建立主界面。打開在MicrosoftVisualBasic設(shè)計(jì)工具，選擇文件中“新建工程”，進(jìn)入窗體設(shè)計(jì)器。首先，在“工程”菜單中選擇“移除Form1”。然后，在“工程”菜單中選擇“添加MDI窗體”，即可添加MDIFor

5、ml主控窗體。最后，在“文件”菜單中保存該工程，將窗體保存為默認(rèn)文件名，把新工程保存為“VB實(shí)現(xiàn)參數(shù)化繪圖.vbp”。3添加子窗體。選擇“工程”菜單中“添加窗體”，在彈出的對(duì)話框中選擇“窗體”并打開，然后修改新建窗體的MDIChild屬性為“True”，最后保存該窗體。采用相同的方法，將2中所有菜單全部建立好相對(duì)應(yīng)的子窗體，并在菜單中用“窗體名.show”命令調(diào)用各自子窗體。如：“彈簧”子菜單，打開它對(duì)應(yīng)的窗體（窗體名為frmTh），則用命令frmTh.show，代碼如下：PrivateSubth_Click（）frmTh.showEndSub最后添加Label、TextBox、Command

6、Butto暗件完成參數(shù)化繪圖窗口的設(shè)計(jì)。4編程流程圖。開始，連接CAD-滲數(shù)賦值，根據(jù)每圈分段數(shù)計(jì)算角度間隔-用循環(huán)計(jì)算每個(gè)控制點(diǎn)坐標(biāo)-把所有控制點(diǎn)連接成多段線-繪制截面圓生成面域-完成-結(jié)束5實(shí)現(xiàn)結(jié)果和結(jié)論（ 1）輸入?yún)?shù)如下時(shí)，繪制彈簧并生成彈簧圖形每一圈大小都相同，且彈簧圈數(shù)為4圈。起始半徑：60，垂直增量：10，水平增量：0，旋轉(zhuǎn)圈數(shù)：4，分段數(shù)：50。（ 2）當(dāng)改變參數(shù)為下所示時(shí)，生成彈簧圖形每一圈大小按增量遞增，其彈簧圈數(shù)為3圈。起始半徑：30，垂直增量：20，水平增量：10，旋轉(zhuǎn)圈數(shù)：3，分段數(shù)：100。通過上述2組數(shù)據(jù)的實(shí)驗(yàn)，輸入的參數(shù)不同生成的圖形也不同，說明VB實(shí)現(xiàn)參數(shù)化繪圖是可行的。通過VB編程對(duì)AutoCAD進(jìn)