時(shí)間:2012-12-29 來(lái)源:合肥網(wǎng)hfw.cc 作者:hfw.cc 我要糾錯(cuò)
摘 要AutoCAD 是機(jī)械設(shè)計(jì)人員最常用地繪圖工具,功能無(wú)比強(qiáng)盛,但常因缺少常用結(jié)構(gòu)圖形庫(kù)而影響繪圖效力,為此,,論文提到在A(yíng)utoCAD 環(huán)境下采用AutoCAD VBA 方式對(duì)于機(jī)械圖形中地常用結(jié)構(gòu)做一個(gè)參數(shù)化設(shè)計(jì)地解決計(jì)劃。因?yàn)槌S媒Y(jié)構(gòu)地開(kāi)發(fā)方式相似,便以軸類(lèi)整機(jī)中鍵槽結(jié)構(gòu)地主視圖和剖面圖為例,,講述了Access 數(shù)據(jù)庫(kù)地構(gòu)建方式、利用ADO 方式來(lái)開(kāi)發(fā)數(shù)據(jù)庫(kù)地進(jìn)程和編程實(shí)現(xiàn)終極圖形地過(guò)程,。
關(guān)鍵詞AutoCAD,,常用結(jié)構(gòu),參數(shù)化設(shè)計(jì)
AutoCAD 視為運(yùn)用最普遍地繪圖軟件,,它地功能異常壯大,,基于A(yíng)utoCAD 環(huán)境下地2次開(kāi)發(fā)一樣很便利。然而,,在A(yíng)utoCAD 繪圖軟件地各種版本中,,均無(wú)現(xiàn)成地常用結(jié)構(gòu)圖形庫(kù)。本文采用AutoCAD VBA(Visual Basic for Applications),電氣繪圖軟件,,針對(duì)于各類(lèi)零件特色地常用結(jié)構(gòu),,像軸類(lèi)零件地鍵槽、帶輪槽、密封圈槽,、移出剖面圖和部分放大圖等,,實(shí)現(xiàn)了對(duì)于常用結(jié)構(gòu)地參數(shù)化繪圖[1]。繪圖人員只有輸入請(qǐng)求地參數(shù),,就可以主動(dòng)天生對(duì)于應(yīng)圖形,,簡(jiǎn)單方便實(shí)用。因?yàn)槌S媒Y(jié)構(gòu)地編程過(guò)程非常類(lèi)似,,下面就以鍵槽為例,,講述標(biāo)準(zhǔn)結(jié)構(gòu)參數(shù)化設(shè)計(jì)及繪圖過(guò)程。
1 參數(shù)抉擇
鍵槽是軸類(lèi)零件上常見(jiàn)地結(jié)構(gòu),,通過(guò)對(duì)于圖1和圖2 地比較可見(jiàn),,只要圖2 中5 個(gè)參數(shù)給定,就可將鍵槽地主視圖和剖面圖斷定下來(lái)[2],。而且,,根據(jù)標(biāo)準(zhǔn)機(jī)械設(shè)計(jì)手冊(cè),參數(shù)中地b,、t 是由軸徑d決議地,,那么,繪圖過(guò)程須要地參數(shù)只有3個(gè)d,、l,、a。而另外兩個(gè)參數(shù)b,、t 可當(dāng)為數(shù)據(jù)庫(kù)內(nèi)容通過(guò)d 來(lái)查詢(xún),,這部分義務(wù)通過(guò)程序來(lái)完成。因而,,經(jīng)由分辨可知,,繪圖人員只要輸入?yún)?shù)d、l,、a 地?cái)?shù)值就能疾速簡(jiǎn)潔地完成(圖2)了。
2 編程思路
2. 1 建破Access 數(shù)據(jù)庫(kù)
普通平鍵及鍵槽尺寸類(lèi)似這樣圖3 所示,。
Access 是開(kāi)發(fā)小型數(shù)據(jù)庫(kù)利用體系地幻想工具,,功效機(jī)動(dòng),易于學(xué)習(xí)跟操作[3],。本軟件便采用Access 來(lái)樹(shù)立數(shù)據(jù)庫(kù),。表地構(gòu)造十分簡(jiǎn)略,只是對(duì)于機(jī)械手冊(cè)相干表格中部門(mén)字段地選取,。對(duì)鍵槽來(lái)說(shuō),,則采取如表1 地表格情勢(shì)(表1 只選取完全表格地1局部)。
2. 2 數(shù)據(jù)庫(kù)操作部分
本軟件對(duì)于數(shù)據(jù)庫(kù)地操作應(yīng)用ADO(ActiveXData Objects)方式[3]。
其中,,翻開(kāi)數(shù)據(jù)庫(kù)地語(yǔ)句類(lèi)似下
Public Const DATABASE As String = " 常用
結(jié)構(gòu). mdb"
Private cnn As ADODB. Connection
Set cnn = New ADODB. Connection
cnn. ConnectionString = " Provider = Microsoft.
Jet. OLEDB. 4. 0,;Data Source = " - + App. path +
" " + DATABASE + " ;"
cnn,PDM系統(tǒng). Open
對(duì)于數(shù)據(jù)庫(kù)中地?cái)?shù)據(jù),,本軟件最常用地是查詢(xún)功能,。例像這樣依據(jù)所給軸地直徑d 查詢(xún)鍵槽地相關(guān)尺寸b、t 地檢查語(yǔ)句類(lèi)似下
SELECT b,,t FROM 一般平鍵及鍵槽尺寸表
WHERE d > dmin and d < = dmax.
其余對(duì)于數(shù)據(jù)庫(kù)地操作與查詢(xún)類(lèi)似,3DVIA,,不再贅述。
2. 3 繪圖部分
對(duì)于于鍵槽結(jié)構(gòu)來(lái)說(shuō),,圖形分為兩部分主視圖和剖面圖,。線(xiàn)條比擬簡(jiǎn)單,重要采用畫(huà)直線(xiàn)和圓弧地命令,,尺寸標(biāo)注一樣主要采用線(xiàn)性型尺寸標(biāo)準(zhǔn)方法,,它地基礎(chǔ)命令為
ThisDrawing. ModelSpace. AddDimAligned( startPoint,
endPoint,,location),。
下面以繪直線(xiàn)為例,表明作圖過(guò)程[4]
startPoin(t 0) = ArcCenPointX +(d/ 2# - t)
startPoin(t 1) = ArcCenPointY + b / 2
startPoin(t 2) = 0#
endPoin(t 0) = ArcCenPointX +(d / 2# - t)
endPoin(t 1) = ArcCenPointY - b / 2
endPoin(t 2) = 0#
Set lineObj =
ThisDrawing. ModelSpace. AddLine( startPoint,,
endPoint)
當(dāng)然,,繪圖部分實(shí)現(xiàn)最終地圖形顯示,電氣制圖軟件,在程序中未免有相稱(chēng)多地?cái)?shù)據(jù)地傳輸調(diào)用,。本文采用地是全局變量地形式,。例類(lèi)似這樣軸徑Public d As Double。
與AutoCAD 地接口可以使用菜單方式,,一樣可以采用命令方式,,都非常方便簡(jiǎn)單。
3 停止語(yǔ)
本文所實(shí)現(xiàn)地對(duì)于常用結(jié)構(gòu)地參數(shù)化設(shè)計(jì),,是在A(yíng)utoCAD 環(huán)境下,,應(yīng)用VBA 這種編程語(yǔ)言實(shí)現(xiàn)地。界面簡(jiǎn)練,,簡(jiǎn)單易用,,減少了繪圖職員地查閱尺度時(shí)光,減輕了繪圖工作量,,進(jìn)步了出圖速度,,并且能夠防止在繪圖和查表地交織進(jìn)行一個(gè)中發(fā)生地失誤,存在必定地適用價(jià)值,。
參考文獻(xiàn)
[1]董玉德,,譚建榮,,趙韓,等. AutoCAD 系統(tǒng)開(kāi)發(fā)技術(shù)-程序?qū)崿F(xiàn)
與實(shí)例[M],PDM軟件. 合肥中國(guó)科學(xué)技術(shù)大學(xué)出版社,,2001
[2]西北產(chǎn)業(yè)大學(xué)工程制圖教研室. 畫(huà)法多少何及機(jī)械制圖( 下)
[M]. 西安陜西迷信技巧出版社,,2000
[3]啟明工作室. Visual Basic Access 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)與實(shí)例
[M]. 北京國(guó)民郵電出版社,2004
[4]張帆,,鄭立楷,,王華杰. AutoCAD VBA 開(kāi)發(fā)出色實(shí)例教程
[M]. 北京清華大學(xué)出版社,2004
短信驗(yàn)證碼 酒店vi設(shè)計(jì) 投資移民
關(guān)于我們 | 打賞支持 | 廣告服務(wù) | 聯(lián)系我們 | 網(wǎng)站地圖 | 免責(zé)聲明 | 幫助中心 | 友情鏈接 |
Copyright © 2025 hfw.cc Inc. All Rights Reserved. 合肥網(wǎng) 版權(quán)所有
ICP備06013414號(hào)-3 公安備 42010502001045