SolidWorks沖壓模具標(biāo)準(zhǔn)模架庫(kù)的設(shè)計(jì)(二)
2013-07-15 by:廣州Solidworks培訓(xùn)中心 來(lái)源:仿真在線
SolidWorks沖壓模具標(biāo)準(zhǔn)模架庫(kù)的設(shè)計(jì)(二)
2.3 數(shù)據(jù)連接
在VB開發(fā)環(huán)境中采用ADO(ActiveX Data Objects)技術(shù)對(duì)上述所建的Access數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行操作檢索,再通過(guò)與SolidWorks的接口對(duì)象直接訪問(wèn)前面所建立的模架標(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&”\沖壓模具模架庫(kù)\data\數(shù)據(jù)庫(kù).mdb;”
/*建立ADO連接,打開數(shù)據(jù)庫(kù)
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ù)庫(kù)中讀取的導(dǎo)柱參數(shù)驅(qū)動(dòng)SolidWorks生成導(dǎo)柱實(shí)體模型的程序代碼:
Set swApp=Application.SldWorks
Set Part=swApp.OpenDoc6(“&App.Path&”\沖壓模具模架庫(kù)\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&\沖壓模具模架庫(kù)\save\導(dǎo)柱1.SLDPRF",0,False,False
2.4 用戶界面
友好的用戶界面可以方便地引導(dǎo)使用者來(lái)設(shè)計(jì)自己所需要的標(biāo)準(zhǔn)模架,而不需要了解具體是怎么實(shí)現(xiàn)的。圖4是利用VB開發(fā)的標(biāo)準(zhǔn)模架庫(kù)主用戶界面,使用者首先選擇需要的模架類型,然后在“零件列表”框中選擇標(biāo)準(zhǔn)零件(如上模座、下模座、導(dǎo)柱及導(dǎo)套),之后點(diǎn)擊“零件預(yù)覽”,即可進(jìn)入圖2、圖3所示的模架及模架零件數(shù)據(jù)庫(kù)管理界面,選定模架各組成零件的尺寸,點(diǎn)擊“生成”按鈕就會(huì)驅(qū)動(dòng)SolidWorks自動(dòng)生成模架各組成零件的三維實(shí)體模型。之后返回主用戶界面通過(guò)點(diǎn)擊“裝配體預(yù)覽”并選擇裝配關(guān)系參數(shù)(閉合高度和凹模周界)來(lái)生成模架的三維裝配模型。
2.5 二維工程圖的自動(dòng)生成
本系統(tǒng)還開發(fā)了模架庫(kù)二維工程圖(包括零件圖和裝配圖)自動(dòng)生成模塊。通過(guò)本模塊可自動(dòng)生成模架各組成零件和模架的二維工程圖。
相關(guān)標(biāo)簽搜索:SolidWorks沖壓模具標(biāo)準(zhǔn)模架庫(kù)的設(shè)計(jì)(二) 增城SolidWorks設(shè)備設(shè)計(jì) 二維工程圖繪制 SolidWorks培訓(xùn)課程 SolidWorks設(shè)計(jì)教程 SolidWorks視頻教程 SolidWorks軟件下載 SolidWorks在建筑室內(nèi)設(shè)計(jì)工業(yè)設(shè)計(jì)的應(yīng)用 SolidWorks基礎(chǔ)知識(shí) SolidWorks代做 Fluent、CFX流體分析 HFSS電磁分析 Ansys培訓(xùn)