SolidWorks沖壓模具標(biāo)準(zhǔn)模架庫的設(shè)計(jì)(二)

2013-07-15 by:廣州Solidworks培訓(xùn)中心來源:仿真在線

2.3 數(shù)據(jù)連接

在VB開發(fā)環(huán)境中采用ADO(ActiveX Data Objects)技術(shù)對(duì)上述所建的Access數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行操作檢索,再通過與SolidWorks的接口對(duì)象直接訪問前面所建立的模架標(biāo)準(zhǔn)件參數(shù)化模型的相應(yīng)參數(shù),驅(qū)動(dòng)模型尺寸自動(dòng)改變。

下面以導(dǎo)柱為例,列出了使用ADO技術(shù)在VB中檢索和讀取數(shù)據(jù)的程序代碼:

Dim iNum As Integer

Dim con As ADODB.Connection

Set con=New ADODB.Connection /*定義ADO對(duì)象變量

Dim sLreon As String

Dim i As Integer

con.Open”Provider=Microsoft.Jet.OLEDB.4.0;

Data Seuwe=”&App.Path&”\沖壓模具模架庫\data\數(shù)據(jù)庫.mdb;”

/*建立ADO連接,打開數(shù)據(jù)庫

Dim mt As ADODB.Recordset

Set rst=New ADODB.Recordset

Dim sSQL As String

sSQL=”Select*from A型導(dǎo)柱”

Set rst.ActiveCormection=con

rst.CursorLocation=3

rst.Open sSQL,con,sdOpenStatic,_adLockBatchOptimistic

/*打開記錄集

iNum=rst.RecontCount

ReDim MyArray(iNum,2)

i=0

Do While Not rst.EOF

MyArray(i,O)=rst(0)

MyArray(i,1)=rst(1)

i=i+l

rst.MoveNext

Loop

/*讀取導(dǎo)柱數(shù)據(jù)

rst.Close

con.Close

txtbh.Caption=MyArray(0,0)

txtd.Caption=MyArray(0,1)

以下是用從數(shù)據(jù)庫中讀取的導(dǎo)柱參數(shù)驅(qū)動(dòng)SolidWorks生成導(dǎo)柱實(shí)體模型的程序代碼:

Set swApp=Application.SldWorks

Set Part=swApp.OpenDoc6(“&App.Path&”\沖壓模具模架庫\part\導(dǎo)柱\導(dǎo)柱.SLDPRT”,1,0,””,longstatus,longwarnings)

Set Part=swApp.ActivateDoe(”導(dǎo)柱.SLDPRT”) /*打開并激活導(dǎo)柱零件模型

swApp.ActiveDoc.ActiveView.FrameState=1

boolstatus=Part.Extension.SelectBylD(”注解”,”DCABINET”,0,0,0,False,0,Nothing)

boolstatus=Part.Extension.SelectBylD(”DI@草圖1@零件1.SLDPRT”,”DIMENSION”,0.01486567214088,0.01178031393098,-0.008637617561889,False,0,Nothing)

Part.Parameter(”Dl@草圖1”).SyslemValue=txthh.Caption/1000

boolstatus=Part.Extension.SeleetByID(”D2@草圖1@零件1.SLDPRT”,”DIMENSION”,0.03763007077089,-0.01186011234155,-0.03984466282271,False,0,Nothing)

Part.Parameter(”D2@草圖1”).SystemValue=txtd.Caption/1000/*對(duì)導(dǎo)柱進(jìn)行尺寸驅(qū)動(dòng)

Part.EditRebuild

Part.SaveAs2"&App.Path&\沖壓模具模架庫\save\導(dǎo)柱1.SLDPRF",0,False,False

2.4 用戶界面

友好的用戶界面可以方便地引導(dǎo)使用者來設(shè)計(jì)自己所需要的標(biāo)準(zhǔn)模架,而不需要了解具體是怎么實(shí)現(xiàn)的。圖4是利用VB開發(fā)的標(biāo)準(zhǔn)模架庫主用戶界面,使用者首先選擇需要的模架類型,然后在“零件列表”框中選擇標(biāo)準(zhǔn)零件(如上模座、下模座、導(dǎo)柱及導(dǎo)套),之后點(diǎn)擊“零件預(yù)覽”,即可進(jìn)入圖2、圖3所示的模架及模架零件數(shù)據(jù)庫管理界面,選定模架各組成零件的尺寸,點(diǎn)擊“生成”按鈕就會(huì)驅(qū)動(dòng)SolidWorks自動(dòng)生成模架各組成零件的三維實(shí)體模型。之后返回主用戶界面通過點(diǎn)擊“裝配體預(yù)覽”并選擇裝配關(guān)系參數(shù)(閉合高度和凹模周界)來生成模架的三維裝配模型。

2.5 二維工程圖的自動(dòng)生成

本系統(tǒng)還開發(fā)了模架庫二維工程圖(包括零件圖和裝配圖)自動(dòng)生成模塊。通過本模塊可自動(dòng)生成模架各組成零件和模架的二維工程圖。

開放分享：優(yōu)質(zhì)有限元技術(shù)文章,助你自學(xué)成才