SolidWorks表格驅動(dòng)應用

　　選中“參數”工作表中的“長(cháng)”下面的所有數值表格，然后點(diǎn)擊公式欄中的“名稱(chēng)管理器”，新建一個(gè)名稱(chēng)為“長(cháng)”， 引用位置為剛才選中表格范圍的名稱(chēng)內容，如圖8。

　　6.引用參數區域

　　這是為了將驅動(dòng)尺寸與設定好的參數進(jìn)行關(guān)聯(lián)調用，采用下拉框來(lái)實(shí)現，如圖9。

　　7.設置尺寸參數之間的關(guān)系

　　這一步可以充分利用Excel表格方便的公式計算功能，如圖10。

　　8.定義ActiveX控件按鈕

　　切換到“開(kāi)發(fā)工具”選項卡(此前要確保在“Excel選項→常用”中將開(kāi)發(fā)工具選項卡激活)，激活“設計模式”，在該選項卡中，點(diǎn)擊“插入→ActiveX控件→命令按鈕”，繪制一個(gè)按鈕，并修改該按鈕的顯示名稱(chēng)為“更新尺寸”。如果你喜歡，也可以將該按鈕的樣式顏色修改一下，效果如圖11。

　　9.修改按鈕的代碼內容

　　雙擊該按鈕，在彈出窗口的代碼中加入驅動(dòng)SolidWorks尺寸參數的內容。需要說(shuō)明的是，該代碼形式固定，需要更改的只是箭頭所指的變量傳遞部分語(yǔ)句，其中，前面括號中是在SolidWorks中的模型尺寸名，后面括號中是Excel表格中相應的單元格名稱(chēng)。注意，代碼中數值單位是m，而本例模型中單位是mm，因此在代碼中數值要除以1000。另外，按鈕名稱(chēng)不要弄錯，一定要與控件名稱(chēng)一致(注意不是顯示名稱(chēng))。需要指出的是，長(cháng)方體需要長(cháng)、寬和高三個(gè)參數，而我們只定義了2個(gè)參數“長(cháng)、高”，這是因為，“寬”的參數SolidWorks的方程式中定義了。如圖12。

　　通用代碼內容如下，其中，紅色部分可直接復制重用到其他例子中。

　　Private Sub CommandButton1_Click()

　　Dim swApp As Object

　　Dim Part As Object

　　Dim Gtol As Object

　　Dim longstatus As Long

　　Dim boolstatus As Boolean

　　Set swApp = CreateObject(“SldWorks.Application”)

　　Set Part = swApp.ActiveDoc

　　‘Values for calcualtions are in meters

　　Part.Parameter(“長(cháng)@Sketch1”).SystemValue=Range(“A4”).Value/1000

　　Part.Parameter(“寬@Extrude1”).SystemValue=Range(“B4”).Value/1000Part.EditRebuild

　　End Sub