VB連接Solidworks2012

1、SolidWorks二次開發(fā)基本知識(shí)（開發(fā)人員提供）SolidWorks提供了幾百個(gè)API（Application Program Interface，應(yīng)用程序接口），可以使用VB/VB/VC/Delphi等高級(jí)語言對(duì)SolidWorks進(jìn)行二次開發(fā)，建立符合要求的、專用的SolidWorks功能模塊VBAVBA（Visual Basic for ApplicationsVisual Basic for Applications）VBAVBA（Visual Basic for ApplicationsVisual Basic for Applications）是是19931993年由年由Mic

2、rosoftMicrosoft推出的一種可以被多推出的一種可以被多種應(yīng)用程序共享的、針對(duì)應(yīng)用程序內(nèi)部可種應(yīng)用程序共享的、針對(duì)應(yīng)用程序內(nèi)部可編程的、通用的可視化應(yīng)用程序編程語言。編程的、通用的可視化應(yīng)用程序編程語言。VBAVBA是一套完整的應(yīng)用程序開發(fā)環(huán)境，它為是一套完整的應(yīng)用程序開發(fā)環(huán)境，它為用戶和開發(fā)人員提供了一種應(yīng)用程序間通用戶和開發(fā)人員提供了一種應(yīng)用程序間通用的應(yīng)用程序語言，減少了學(xué)習(xí)時(shí)間和支用的應(yīng)用程序語言，減少了學(xué)習(xí)時(shí)間和支持費(fèi)用。持費(fèi)用。在Microsoft Office中，所有的應(yīng)用程序都可以使用VBA在SolidWorks中，VBA最常見的用途即是錄制宏。幾乎所有用鍵盤或菜單命

3、令完成的動(dòng)作均被宏記錄下來，然后對(duì)不同的數(shù)據(jù)進(jìn)行（或播放）同一批操作。SolidWorks的對(duì)象、方法很多，其中SldWorks對(duì)象有98種方法，ModelDoc對(duì)象有477種方法，通常，開發(fā)者先錄制一段宏，然后將宏代碼修改后復(fù)制到VB中去。宏是一系列命令的集合，相當(dāng)于Dos的批處理文件，可以通過錄制使用SolidWorks用戶界面執(zhí)行的操作，然后使用SolidWorks宏重新執(zhí)行這些操作。1.在Solidworks中，應(yīng)用紀(jì)錄宏（【工具】 【宏操作】 【錄制】停止宏停止宏保存于文件夾保存于文件夾2.操作、停止并保存3.編輯宏4.執(zhí)行宏操作將宏錄制的代碼照搬到VB，并不一定能夠繪圖，有時(shí)會(huì)出現(xiàn)

4、錯(cuò)誤，需進(jìn)行修改。SolidWorks二次開發(fā)常用代碼打開SolidWorks新文件SldWorks:NewPart：打開一個(gè)被自動(dòng)命名的新零件SldWorks:NewDocment(模板名，圖紙尺寸，用戶紙寬，用戶紙高)：創(chuàng)建一個(gè)具有模板名的新文件SldWorks:NewAssembly：創(chuàng)建一個(gè)被自動(dòng)命名的裝配體文件SldWorks:NewDrawing2（模板類型，模板名，圖紙尺寸，紙寬，紙高）：創(chuàng)建一個(gè)新的具有模板或用戶圖紙的工程圖文件，文件名被自動(dòng)命名。保存和退出文件ModelDoc:SaveAs(文件名，版本信息，選項(xiàng)，.)：用不同的名稱保存文件ModelDoc:SaveAs2 (

5、文件名)：用新名字保存文件SldWorks:ExitApp退出SolidWorks保存在當(dāng)前路徑：App.path & “文件名”其他代碼ModelDoc2:InsertSketch2:開始/結(jié)束草圖繪制ModelDoc2:ClearSelection()：清除任何選擇ModelDoc2.InsertKetchText(X坐標(biāo)，Y坐標(biāo)，Z坐標(biāo)，文本，文本的對(duì)齊方式):插入草圖文本Part.FeatureExtrusion(拉伸方向，終止1，終止2，拉深深度.)例：Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0

6、.017, 0.017, 0, 0 其他代碼Mddeldoc:Featurecut4(單（雙）向，反側(cè)切除，方向1，終止1，終止2，切割深度1，切割深度2，拔模):VB連接SolidworksDim swApp As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)連接Solidworks并新建自動(dòng)命名的零件模型文件Private Sub Command1_Click()Dim swApp As ObjectDim npart As ObjectSet swApp = CreateObject(Sld

7、Works.Application)Swapp.visible(true)Set npart = swApp.Newpart()End Sub連接Solidworks并新建自動(dòng)命名的裝配模型文件Dim swApp As ObjectDim nassembly As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)Set nassembly = swApp.Newassembly()連接Solidworks并新建工程圖文件Dim swApp As ObjectDim pDrawing As Object

8、Set swApp = CreateObject(SldWorks.Application)Set pDrawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159)新建文件例題：Private Sub Command1_Click()Dim swApp As ObjectDim npart As ObjectSet swApp = CreateObject(SldWorks.Application)Swapp.visible(true)Set npart = swApp.Newpart()End SubPrivate Sub Command2_Clic

9、k()Dim swApp As ObjectDim pDrawing As ObjectSet swApp = CreateObject(SldWorks.Application)Set pDrawing = swApp.NewDrawing2(13, , 0, 0.2794, 0.2159)End SubPrivate Sub Command3_Click()Dim swApp As ObjectDim nassembly As ObjectSet swApp = CreateObject(SldWorks.Application)Set nassembly = swApp.Newassem

10、bly()End Sub編程舉例代碼Private Sub Command1_Click()Dim swApp As ObjectDim Part As ObjectSet swApp = CreateObject(SldWorks.Application)swApp.Visible (True)Set Part = swApp.Newpart()Set Part = swApp.ActiveDocPart.InsertSketchPart.SketchRectangle 0, 0, 0, 0.1, 0.1, 0, 1Part.FeatureExtrusion 1, 0, 1, 0, 0, 0

11、.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0代碼代碼Part.SelectByID 前視, PLANE, 0, 0, 0Part.InsertSketchPart.CreateCircle 0.05, 0.05, 0, 0.07, 0.07, 0Part.ShowNamedView2 *等軸測(cè), 7Part.FeatureCut4 1, 0, 0, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1, 0Part.V

12、iewZoomtofit2End Sub 抽殼Modeldoc2:insertfeatureshelladdthicknessPrivate Sub Command1_Click()在前視面，以左下角為原點(diǎn)生成一個(gè)100 x100 x20的長方體對(duì)此長方體進(jìn)行多厚度抽殼Dim swApp As ObjectDim Part As ObjectSet swApp = CreateObject(SldWorks.Application)Set Part = swApp.ActiveDocswApp.Visible (True)Set Part = swApp.newpart()Part.Inser

13、tSketchPart.SketchRectangle 0, 0, 0, 0.1, 0.1, 0, 1Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0Part.SelectByMark 基體-拉伸, BODYFEATURE, 0, 0, 0, 0Part.AndSelectByMark , FACE, 0.03, 0.03, 0, 1 選擇開放面?標(biāo)號(hào)是1 選擇兩個(gè)有不等厚度的非開放面?標(biāo)號(hào)是2Part.AndSelectByMark , F

14、ACE, 0.09999999999991, 0.04121560801519, -0.01272845167375, 2Part.AndSelectByMark , FACE, 0.05376383570518, 0.09999999999985, -0.01066374420634, 2 為每個(gè)面設(shè)置厚度Part.InsertFeatureShellAddThickness 0.005Part.InsertFeatureShellAddThickness 0.02 生成抽殼特征Part.InsertFeatureShell 0.001, 0Part.ShowNamedView2 *Isom

15、etric, 7Part.ViewZoomtofit2End Sub參數(shù)化設(shè)計(jì)打開打開VB，建立工程并，建立工程并設(shè)計(jì)相應(yīng)的窗體，設(shè)計(jì)相應(yīng)的窗體，編寫代碼，調(diào)用編寫代碼，調(diào)用SolidWorksDim swApp As ObjectDim npart As Object 定義OLE對(duì)象變量，分別對(duì)應(yīng)SldWorks和Part對(duì)象 Set swApp = CreateObject(SldWorks.Application)創(chuàng)建SldWorks對(duì)象Set Part = swApp.ActivateDoc(Part1)在SolidWorks中創(chuàng)建一個(gè)新零件文件，零件名被自動(dòng)命名Swapp.visible(true)Option ExplicitDim swApp As ObjectDim Part As ObjectDim D1 As DoubleDim D2 As DoublePrivate Sub Command1_Click()Set swApp = CreateObject(SldWorks.Application)Set Part = swApp.ActivateDoc(“Part1”)當(dāng)前文件名當(dāng)前文件名Part.Parameter(